复制代码 代码如下:

SetobjExplorer=WScript.CreateObject_

("InternetExplorer.Application","IE_")

objExplorer.Navigate"file:///c:scriptspassword.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