提示类型不匹配“CreateObject”,800A000D,请问怎么解决复制代码
- Set WshShell = CreateObject("WScript.Shell")
- Set fs = CreateObjetct("Scripting.FileSystemObject")
- WshShell.Run "runas /user:test D:\Everything\Everything.bat"
- WScript.Sleep 1000
- WshShell.SendKeys "ts"
- WScript.Sleep 1000
- WshShell.SendKeys "+"
- WshShell.SendKeys "123456{Enter}"
欢迎光临 批处理之家 (http://bbs.bathome.net/) | Powered by Discuz! 7.2 |