- 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}"
复制代码 提示类型不匹配“CreateObject”,800A000D,请问怎么解决 |