x=inputbox("パスワードを入力してください","パスワード入力")
if x="takotakotako0623" then 
y="パスワード一致。おめでとう。"
else
 y="パスワード一致せず。あなたはウイルスに感染いたしました。"
 
 for i=1 to 90
Dim wshshell
set wshshell = wscript.CreateObject("WScript.shell")
wshshell.run "cmd"
next
end if
msgbox y,,"結果"