Need Help Hiding / Masking Password Input For This Script

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Need Help Hiding / Masking Password Input For This Script

Logged in as: Guest

arrSession:exec spGetSession 2,2,64825

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Need Help Hiding / Masking Password Input For This Script
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Need Help Hiding / Masking Password Input For This Script - 10/6/2008 6:41:21 AM

kennywhite

Posts: 8
Score: 0
Joined: 10/6/2008
Status: offline

Hello,

The script below is used to join a computer to a domain. It prompts for the Computer Name (which I do later want to generate automatically), a User Name and Password.

The script works perfectly. The only problem is that I would like a way to hide the input for the password. I thought there was a simple way of doing this, but I have come to believe that I was mistaken.

I have looked for days trying to find a solution that will work within this script. I was told once that there was a way to hide the entire input box, but I haven't found a way to actually do that.

I have tried every script that I can find to hide input text, but haven't been able to get any of them to work even by themself, let alone with my script.

The ONLY exception is this script that I found. I can get it work on its own, but when I tried to use it along with my script I just got a bunch of errors.

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
' [link=http://www.robvanderwoude.com]http://www.robvanderwoude.com[/link]
   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

I would really rather not use the IE input box, but if it gets the job done I am totally ok with that.

Any help, advice, examples or whatever would be greatly appreciated.

THANKS!

Post #: 1

RE: Need Help Hiding / Masking Password Input For This ... - 10/6/2008 7:52:26 AM

kennywhite

Posts: 8
Score: 0
Joined: 10/6/2008
Status: offline

I got it to work on my second attempt at joining those two scripts together. I would still like to find a way to do it without the IE input box, but I am happy at the moment! It would be helpful if someone could tell me a way to possible have the curser already in the input field of the IE box (does that make sense? Sorry my brain is a bit fried from 6 hours of messing with my script.)

Two other changes that I would like to add to this script is 1) Adding a computer description. I've got no idea on how to do this. and 2) Having the computer name be filled in automatically. I do have a pretty good idea of how to do this.

Here is the code that I ended up with today.

'On Error Resume Next
'open the file system object
Set oFSO = CreateObject("Scripting.FileSystemObject")
set WSHShell = wscript.createObject("wscript.shell")
Dim sCname 'Variable to hold Computer Name you enter in the inputbox
Dim sUserName 'Domain User Name

'First param is message text, second is message title
sCname = InputBox("Enter computer name","Windows 2k3 Netdom Rename Script")
sUserName = InputBox("Enter Your Domain Username","Windows 2k3 Netdom Rename Script")

strPw = GetPassword( "Please enter your password:" )

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
' [link=http://www.robvanderwoude.com]http://www.robvanderwoude.com[/link]
   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

Call WSHShell.Run("cmd.exe /K NETDOM JOIN " & sCname & " /Domain:indloc.corp.whp.com /UserD:" & sUserName & " /PasswordD:" & strPw & " ")

(in reply to kennywhite)

Post #: 2

RE: Need Help Hiding / Masking Password Input For This ... - 10/6/2008 10:32:14 PM

mbouchard

Posts: 1916
Score: 16
Joined: 5/15/2003
From: USA
Status: offline

Take a look in the Window Load section below for examples on focusing on a text field and setting a value.

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to kennywhite)

Post #: 3

RE: Need Help Hiding / Masking Password Input For This ... - 10/7/2008 12:35:36 AM

kennywhite

Posts: 8
Score: 0
Joined: 10/6/2008
Status: offline

I tried adding in this line, but my script didn't like it very much

Password.focus

Thanks.

quote:

ORIGINAL: mbouchard

Take a look in the Window Load section below for examples on focusing on a text field and setting a value.

<head> <title>City of Charlotte Windows Setup</title> <HTA:APPLICATION ID="oHTA"> <script language="VBscript"> </Script> </head>  <body bgcolor="#2673C0" STYLE="font:14 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient (GradientType=0, StartColorStr='#000000', EndColorStr='#3399ff')"> <script language="VBscript"> Sub Window_Onload 'Set a fields value Document.All.u.value = "Something Here" 'Set focus to a field u.focus End Sub </script> <td>Enter your username and password:<br><br>Username: <input type="text" name="U"><br><br>Password: <input type="password" name="P"><br><br>

(in reply to mbouchard)

Post #: 4

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Need Help Hiding / Masking Password Input For This Script

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts