VBS mit Angabe von Domain, Benutzername und Passwort

' -------------------------------------------------------'  
' 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