Logon to Network drives / servers / domain from PE 2.0

[vizz]

Hello.

I was wondering if anyone have made some nice HTA or Script which can validate a typed user name/password to a domain or share on a server on a PE system.

I have done a VBscript which can but it is kind of primitive and the password is for now showed while typing.

Best Regards

Peter.

' Made by ptr 13.10.07

Dim objNetwork, Pass
Set objNetwork = WScript.CreateObject("WScript.Network")
Pass = 0

str1LocalDrive = "G:"
str1RemoteShare = "\\servername\d$"
str2LocalDrive = "I:"
str2RemoteShare = "\\servername\e$"
strPer = "FALSE"

Do While pass = 0
 On Error Resume Next
 strUsr = "servername\" + InputBox("Type UserID")
 strPas = InputBox("Type Password")
 objNetwork.MapNetworkDrive str1LocalDrive, str1RemoteShare, strPer, strUsr, strPas
 objNetwork.MapNetworkDrive str2LocalDrive, str2RemoteShare, strPer, strUsr, strPas
 if err then
 Wscript.Echo "Wrong username/Password"
 pass = 0
 else
 Wscript.Echo "gogogo"
 pass = 1
 end if

 loop

 Wscript.Echo "continue"

Edited October 14, 2007 by vizz