Hallo zusammen,
ich hoffe, dass mir hier jemand weiterhelfen
kann, nachdem ich schon das ganze Netz durchsucht, aber nichts passendes
gefunden habe.
Ich habe ein VB-Script welches direkt gestartet
wird und Netzlaufwerke spontan verbinden soll. Der Benutzername und das
Kennwort werden mir jedoch im Klartext angezeigt. Beim Namen ist das
kein Problem, beim Passwort jedoch schon. Ich habe bislang nur Lösungen
gefunden welche über einen Browser laufen.
Hier der Code den ich bislang am laufen habe:
On Error Resume Next
Set objnet = CreateObject ("WScript.Network")
Set Network = WScript.CreateObject("WScript.Network")
Set objNetwork = CreateObject("WScript.Network")
Set fs = CreateObject("Scripting.filesystemobject")
objnet.RemoveNetworkDrive "K:", true
objnet.RemoveNetworkDrive "L:", true
objnet.RemoveNetworkDrive "M:", true
objnet.RemoveNetworkDrive "N:", true
objnet.RemoveNetworkDrive "O:", true
UserName = InputBox("Benutzername eingeben","Benutzer") ' benutzername abfragen
If Username<>"" Then ' ohne benutzername ist weitermachen sinnlos
PWD = InputBox("Passwort eingeben","Passwort") ' Passwort abfragen
objnet.MapNetworkDrive "K:", "\\PG-DC\Allgemein",, "PG\" & UserName, PWD
objnet.MapNetworkDrive "L:", "\\PG-DC\Schriftverkehr",, "PG\" & UserName, PWD
objnet.MapNetworkDrive "M:", "\\PG-DC\Vergleichstest",, "PG\" & UserName, PWD
objnet.MapNetworkDrive "N:", "\\PG-DC\" & UserName & "$",, "PG\" & UserName, PWD
objnet.MapNetworkDrive "O:", "\\PG-DC\QM",, "PGH\" & UserName, PWD
end if
ich hoffe, dass mir hier jemand weiterhelfen
kann, nachdem ich schon das ganze Netz durchsucht, aber nichts passendes
gefunden habe.
Ich habe ein VB-Script welches direkt gestartet
wird und Netzlaufwerke spontan verbinden soll. Der Benutzername und das
Kennwort werden mir jedoch im Klartext angezeigt. Beim Namen ist das
kein Problem, beim Passwort jedoch schon. Ich habe bislang nur Lösungen
gefunden welche über einen Browser laufen.
Hier der Code den ich bislang am laufen habe:
On Error Resume Next
Set objnet = CreateObject ("WScript.Network")
Set Network = WScript.CreateObject("WScript.Network")
Set objNetwork = CreateObject("WScript.Network")
Set fs = CreateObject("Scripting.filesystemobject")
objnet.RemoveNetworkDrive "K:", true
objnet.RemoveNetworkDrive "L:", true
objnet.RemoveNetworkDrive "M:", true
objnet.RemoveNetworkDrive "N:", true
objnet.RemoveNetworkDrive "O:", true
UserName = InputBox("Benutzername eingeben","Benutzer") ' benutzername abfragen
If Username<>"" Then ' ohne benutzername ist weitermachen sinnlos
PWD = InputBox("Passwort eingeben","Passwort") ' Passwort abfragen
objnet.MapNetworkDrive "K:", "\\PG-DC\Allgemein",, "PG\" & UserName, PWD
objnet.MapNetworkDrive "L:", "\\PG-DC\Schriftverkehr",, "PG\" & UserName, PWD
objnet.MapNetworkDrive "M:", "\\PG-DC\Vergleichstest",, "PG\" & UserName, PWD
objnet.MapNetworkDrive "N:", "\\PG-DC\" & UserName & "$",, "PG\" & UserName, PWD
objnet.MapNetworkDrive "O:", "\\PG-DC\QM",, "PGH\" & UserName, PWD
end if