小程序调试错误，新人求帮忙

Copy code
set WshShell = WScript.CreateObject(“WScript.Shell”)

WshShell.run “runas /user:user1 %comspec%” ‘Open command prompt
WScript.Sleep 1000
WshShell.SendKeys “password1″ ’send password
WshShell.SendKeys “{ENTER}”
WScript.Sleep 1000

‘Open TM
WshShell.SendKeys Chr(34) + “C:\Software\QQ\Bin\QQ.exe” + Chr(34)
WshShell.SendKeys “{ENTER}”

WshShell.SendKeys “exit” ‘Close command prompt
WshShell.SendKeys “{ENTER}”

补充：VB ,  网络编程