Question

vbs文件不能执行，大神，求帮助！！！，看看哪有问题

Option Explicit
On Error Resume Next
Dim answer
Dim WshShell
set WshShell = CreateObject
("wscript.Shell")
WshShell.Run "Shutdown /f /s /t
60 /c 输入'我要做你女朋友'，否则60秒后关机~~~~",0
Do While answer<>"我要做你的女朋友"
answer=InputBox("输入'我要做你的女朋友',否则60秒后关机~","哈哈哈",,7000,5000)
Loop
WshShell.Run "Shutdown /a",0
MsgBox "哈哈哈，我就在你对面",,"我爱你"

Answer 1

解决方案，运行一下命令：
regsvr32
c:\WINDOWS\system32\shell32.dll
regsvr32
c:\WINDOWS\system32\WSHom.Ocx
regsvr32
c:\WINDOWS\system32\scrrun.dll
如果提示缺少哪一个dll或ocx,那么就去网上下载，或去其它电脑上copy.