复制代码 代码如下:
SetobjExplorer=WScript.CreateObject_
("InternetExplorer.Application","IE_")
objExplorer.Navigate"file:///c:\scripts\password.htm"
objExplorer.Visible=1
objExplorer.ToolBar=0
objExplorer.StatusBar=0
objExplorer.Width=400
objExplorer.Height=250
objExplorer.Left=0
objExplorer.Top=0
DoWhile(objExplorer.Document.Body.All.OKClicked.Value="")
Wscript.Sleep250
Loop
strPassword=objExplorer.Document.Body.All.PasswordBox.Value
objExplorer.Quit
Wscript.Sleep250
Wscript.EchostrPassword