wescraven07
Goto Top

VBS mit Angabe von Domain, Benutzername und Passwort

Hallo Admins, habe ein kleines Problem mit einer VBS, mit der ich meine Laufwerke mappe.

Ich habe hier im Forum eine Vorlage gefunden, die die Laufwerke mapp und gleichzeitig nach wunsch benennt.In der Domain funktioniert das wunderbar. Jetzt habe ich aber ein Notebook, dass nicht in der Domain ist und auch nicht reinsoll, demenstrechend funktioniert das Script nicht.

Ich würde jetzt gerne die Domain, den Benutzernamen und das Passwort in der VBS mitgeben. Ich habe ein paar Beispiele gefunden, bekomme aber mit dem Script ständig Syntaxfehler.

Evtl. habt Ihr eine Idee, wie ich das Script anpassen kann:

Danke schonmal für Tips

' -------------------------------------------------------'  
' MapDrives.vbs  
' by fritzo@stop1984.org in 12/2010  
' VBScript to map multiple network drives  
' enhancement of namedrive.vbs by Guy Thomas and Barry Maybury  
' -------------------------------------------------------'  
Option Explicit
WScript.Echo "Script Start"  
Dim objNetwork, objShell, objFile
Dim drv, drvpath, drvname

Set objNetwork = CreateObject("WScript.Network")  
Set objShell = CreateObject("Shell.Application")  
Set objFile = CreateObject("Scripting.FileSystemObject")	  

MapDrive "W:", "\\ServerFSt\Daten\Eigene Dateien\BZ Finanzberatung GmbH", "BZ Finanzberatung GmbH (\\Server)"  
MapDrive "Y:", "\\ServerFSt\Daten", "Daten (\\Server)"   

strUsername = "UBZ\Braun"  
strPassword = "1234517_Braun"  


WScript.Echo "done"  

Set objNetwork = Nothing
Set objShell = Nothing
Set objFile = Nothing

Wscript.Quit

Sub MapDrive (drv, drvpath, drvname)
	If objFile.DriveExists(drv) Then
		WScript.Echo "Drive already exists"  
		Exit Sub
	Else
		objNetwork.MapNetworkDrive drv, drvpath
		objShell.NameSpace(drv).Self.Name = drvname
	End If
End Sub

Content-Key: 248917

Url: https://administrator.de/contentid/248917

Ausgedruckt am: 29.03.2024 um 06:03 Uhr

Mitglied: colinardo
colinardo 11.09.2014 aktualisiert um 12:10:42 Uhr
Goto Top
Moin wes,
hatten wir schon mal was ähnliches hier:
Persistent NO ind VBS Script einbauen

Zeile 36 sieht mit Credentialsübergabe so aus:
objNetwork.MapNetworkDrive drv, drvpath, false, strUsername, strPassword
siehe MapNetworkDrive Method

Grüße Uwe
Mitglied: wescraven07
wescraven07 11.09.2014 um 13:16:08 Uhr
Goto Top
alles klar, man dankt ich lese es mir mal durch und meld mich wieder