Option Explicit

Dim strPw

strPw = GetPassword( "Please enter your password:" )
WScript.Echo "Your password is: " & strPw

Function GetPassword( myPrompt )
' This function uses Internet Explorer to
' create a dialog and prompt for a password.
'
' Argument:   [string] prompt text, e.g. "Please enter password:"
' Returns:    [string] the password typed in the dialog screen
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com
	Dim objIE
	' Create an IE object
	Set objIE = CreateObject( "InternetExplorer.Application" )
	' specify some of the IE window's settings
	objIE.Navigate "about:blank"
	objIE.Document.Title = "Password"
	objIE.ToolBar        = False
	objIE.Resizable      = False
	objIE.StatusBar      = False
	objIE.Width          = 320
	objIE.Height         = 180
	' Center the dialog window on the screen
	With objIE.Document.ParentWindow.Screen
		objIE.Left = (.AvailWidth  - objIE.Width ) \ 2
		objIE.Top  = (.Availheight - objIE.Height) \ 2
	End With
	' Wait till IE is ready
	Do While objIE.Busy
		WScript.Sleep 200
	Loop
	' Insert the HTML code to prompt for a password
	objIE.Document.Body.InnerHTML = "<DIV ALIGN=""center""><P>" & myPrompt _
	                              & "</P>" & vbCrLf _
	                              & "<P><INPUT TYPE=""password"" SIZE=""20"" " _
	                              & "ID=""Password""></P>" & vbCrLf _
	                              & "<P><INPUT TYPE=""hidden"" ID=""OK"" " _
	                              & "NAME=""OK"" VALUE=""0"">" _
	                              & "<INPUT TYPE=""submit"" VALUE="" OK "" " _
	                              & "OnClick=""VBScript:OK.Value=1""></P></DIV>"
	' Make the window visible
	objIE.Visible = True
	' Wait till the OK button has been clicked
	Do While objIE.Document.All.OK.Value = 0
		WScript.Sleep 200
	Loop
	' Read the password from the dialog window
	GetPassword = objIE.Document.All.Password.Value
	' Close and release the object
	objIE.Quit
	Set objIE = Nothing
End Function