作者: benteng302 时间: 2007-5-15 12:17 你用的什么操作系统呢?作者: jswxcy 时间: 2007-5-15 12:58 这个好像要用专门的软件吧?作者: benteng302 时间: 2007-5-15 17:29 看看以下代码,在我的机子上试验成功祝你好运。
on error resume next
Dim oShell
Set oShell = WScript.CreateObject("WScript.Shell")
oshell.Run "runas /profile /user:administrator C:\PROGRA~1\CONTRO~1\contro~1.exe"
wscript.sleep 100
oshell.SendKeys "123456"
wscript.sleep 500
oshell.SendKeys "{ENTER}"
[ Last edited by benteng302 on 2007-5-15 at 05:41 PM ]作者: 313044800 时间: 2007-5-15 18:47 我用的是win2003sp2的系统,你写的我试了下,第一次运行出现DOS窗口后 什么也没有发生,接着在运行就运行不了了,这个问题真的感觉难到很多人了,问了好多天了,QQ群上也问过 唉.....
Originally posted by benteng302 at 2007-5-15 05:29 PM:
看看以下代码,在我的机子上试验成功祝你好运。
on error resume next
Dim oShell
Set oShell = WScript.CreateObject("WScript.Shell")
oshell.Run "runas /profile / ...