|
うーーーん。
VBS をCallして時間差で入力すればとりあえず実現できたね。 でも、これ超イケてない気がする…。
----------------------------------------------------------------- 'Shell関連の操作を提供するオブジェクトを取得 Set objShell = WScript.CreateObject("WScript.Shell")
Dim exeCmd exeCmd = "runas /user:test02 ""RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255""" REM Call Msgbox(exeCmd)
'先ほどのrunasコマンドを発行 objShell.Run exeCmd
'3秒まつ WScript.Sleep 3000
'パスワード文字列を送信 objShell.SendKeys( "1qaz2wsx" ) 'Enterキーの入力情報を送信 objShell.SendKeys( "{ENTER}" ) -----------------------------------------------------------------
ベター案、引き続き募集中
|