しおそると

runasをスクリプトで実行する方法。
キーストロークを送る。簡単。

‘sleepは必要。時間は適当
Dim WshSHell
set WshShell = CreateObject(“WScript.Shell”)
WshShell.Run “runas.exe /user:shioadministrator “”\SMS-ServerSMSClienti386ccmsetup.exe /mp:a-open2″” “, 2
WScript.Sleep(100)
WshShell.AppActivate(“runas.exe”)
‘WScript.Sleep(1)
WshShell.SendKeys(“password{ENTER}”)