Password Entry displayed as "******"

[roles40]

Is there any way to mask a msgbox entry as *****'s to hide a password?

 

[EBGreen]

If you mean InputBox, then no. If you need to get user password input, the best bet is to create an HTA then you can create a password input field.

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[Rick998]

roles40,

Another way is to use Bill Stewart's excellent freeware third-party dll. 'PassDlg.dll' can be obtained from

http://mywebpages.comcast.net/stewartb/passdlg/.

Add it to the system folder then register it to use.

Below is an example to popup a dialog asking for the Administrator password before running 'Add/Remove Programs' as Administrator.

Dim WSH, AdminPassWrd, PassDlg, prog
Set WSH = WScript.CreateObject("WScript.Shell")
Set PassDlg = CreateObject("PassDlg.PasswordDialog")
PassDlg.ShowDialog "Administrator password required"
AdminPassWrd = PassDlg.Password
prog = "runas.exe /env /user:Administrator "
prog = prog & """Control %systemRoot%\system32\appwiz.cpl,System"""
WSH.Run prog,2,false
WScript.Sleep 500
WSH.Sendkeys AdminPassWrd
WSH.Sendkeys "~"

'Finish up
Set WSH = Nothing
Set PassDlg = Nothing

Hope this helps...

Rick