Login Dialog

InternetExplorer.Application
VBScript Code:
arrLogin = IELogin( ) WScript.Echo "Your login user name is : " & arrLogin(0) WScript.Echo "Your login password is  : " & arrLogin(1) Function IELogin( ) ' This function uses Internet Explorer to create a login dialog. ' ' Arguments:  N/A ' Returns:    [array] the user name (0) and password (1) '                     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 = "Login" & String( 80, "." )     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 user input     objIE.Document.Body.InnerHTML = "<div align=""center"">" & vbcrlf _                                   & "<table cellspacing=""5""><tr nowrap>" _                                   & "<td>Name:</td><td>" _                                   & "<input type=""text"" size=""20"" " _                                   & "autocomplete=""off"" " _                                   & "id=""LoginName""></td></tr>" & vbcrlf _                                   & "<tr nowrap><td>Password:</td>" _                                   & "<td><input type=""password"" size=""20"" " _                                   & "id=""Password""></td>" & vbcrlf _                                   & "</tr></table>" & 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 user input from the dialog window     IELogin = Array( objIE.Document.All.LoginName.Value, objIE.Document.All.Password.Value )     ' Close and release the object     objIE.Quit     Set objIE = Nothing End Function
Requirements:
Windows version:	any
Network:	any
Client software:	Internet Explorer 4 or later
Script Engine:	WSH (CSCRIPT and WSCRIPT) (to use in HTAs, remove both WScript.Sleep lines)
Summarized:	Works in all Windows versions with Internet Explorer 4 or later, remove both WScript.Sleep lines to use in HTAs.
[Back to the top of this page]