Visual Basic-Frage / Login-Script direkt ins Homeverzeichnis

[Admin]

Hallo,

ich habe hier ein Login-Script gefunden, das ein Laufwerk mappt und vorher Usernamen und Passwort abfragt.

Set fs = CreateObject("Scripting.filesystemobject") 

Set net = CreateObject("WScript.Network") 

UserName = InputBox("Benutzername eingeben","Benutzer") 

If Username<>"" Then 

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

Function GetPassword( myPrompt )

Dim objIE
Set objIE = CreateObject( "InternetExplorer.Application" )
objIE.Navigate "about:blank"
objIE.Document.Title = "Password"
objIE.ToolBar = False
objIE.Resizable = False
objIE.StatusBar = False
objIE.Width = 320
objIE.Height = 180
With objIE.Document.ParentWindow.Screen
objIE.Left = (.AvailWidth - objIE.Width ) \ 2
objIE.Top = (.Availheight - objIE.Height) \ 2
End With
Do While objIE.Busy
WScript.Sleep 200
Loop
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>"
objIE.Visible = True
Do While objIE.Document.All.OK.Value = 0
WScript.Sleep 200
Loop
GetPassword = objIE.Document.All.Password.Value
' Close and release the object
objIE.Quit
Set objIE = Nothing


net.MapNetworkDrive "X:", "\\server\RedirectedS\g$", false, "AOxxxxTE\" & UserName , GetPassword 

End Function

end if

Das scheint auch gut zu funktionieren.

Die Frage ist nur, was das hier ("AOxxxxTE\" ) in der folgenden Zeile bewirkt:

net.MapNetworkDrive "X:", "\\server\RedirectedS\g$", false, "AOxxxxTE\" & UserName , GetPassword

Ich bräuchte am Ende den Pfad:

\\server\RedirectedS\EINGEGEBENER-USERNAME

Vielen Dank für die Hilfe.

 

[Zuckerbäcker]

Die Frage ist nur, was das hier ("AOxxxxTE\" ) in der folgenden Zeile bewirkt:

net.MapNetworkDrive "X:", "\\server\RedirectedS\g$", false, "AOxxxxTE\" & UserName , GetPassword

Ich bräuchte am Ende den Pfad:

\\server\RedirectedS\EINGEGEBENER-USERNAME
.

AOxxxxTE ist die Domäne bzw. der Rechnername.
net.MapNetworkDrive "X:", "\\server\RedirectedS\" & Username, false, "AOxxxxTE\" & UserName , GetPassword
das müsste auf den Benutzername verbinden

 

[Admin]

Danke, dann teste ich das mal am Montag ;D

 

[QBorg]

Hi Elmar,

Die Frage ist nur, was das hier ("AOxxxxTE\" ) in der folgenden Zeile bewirkt:

net.MapNetworkDrive "X:", "\\server\RedirectedS\g$", false, "AOxxxxTE\" & UserName , GetPassword

\\server\RedirectedS\EINGEGEBENER-USERNAME

VB ist nicht so wirklich mein Spezialgebiet, aber das schaut nach einer simplen String-Verknüpfung aus, d.h. pappe String a an String b und übergib das dann an eine Funktion.

d.h. wenn du wirklich nur den eingegebenen Benutzernamen brauchst, dann kannst du das mit

net.MapNetworkDrive "X:", "\\server\RedirectedS\g$", false, UserName , GetPassword

machen.

Grüsse,
Wolfgang

 

[Guzzi]

AOxxxxTE ist die Domäne bzw. der Rechnername.
net.MapNetworkDrive "X:", "\\server\RedirectedS\" & Username, false, "AOxxxxTE\" & UserName , GetPassword
das müsste auf den Benutzername verbinden

So interpretiere ich das auch, allerdings - um ganz genau zu sein - ist das der NETBIOS-Name der Domäne.

Grüße...

 

[Hopfenmuffin]

AOxxxxTE ist die Domäne bzw. der Rechnername.

GöGa kennt sich gut mit VB aus und kommt zu dem gleichen Schluß, incl. dem Punkt mit dem NETBIOS.

Ich soll dir außerdem noch den Link: hier MapNetworkDrive Method geben, evtl hilft´s noch.

Servus