Mit diesem Script werden Netzwerkpfade als Netzwerklaufwerke eingehängt um diese lokal zu benutzen.
Die Laufwerke werden nicht im Benutzerprofil gespeichert.
Ein direktes Einbinden der Laufwerke:
' laufwerke.vbs - Einbindung der Netzlaufwerke
' Author Christoph Goth
' -----------------------------------------------------------------'Option Explicit
Dim WSHNetwork
Set WSHNetwork = CreateObject("WScript.Network")' Zuordnung der Pfade und Laufwerke
WSHNetwork.MapNetworkDrive "G:", "\\SERVER\FREIGABE1"
WSHNetwork.MapNetworkDrive "H:", "\\SERVER\FREIGABE2"' Ende des Windows Logon Scripts
Wscript.Quit
Alternativ werden die Variablen vorher definiert und daraufhin verknüpft und eingebunden:
' laufwerke.vbs - Einbindung der Netzlaufwerke
' Author Christoph Goth
' -----------------------------------------------------------------'Option Explicit
Dim WSHNetwork, strRemotePath1, strRemotePath2
Dim strDriveLetter1, strDriveLetter2
Set WSHNetwork = CreateObject("WScript.Network")' Definition der Laufwerke und Pfade
strDriveLetter1 = "G:"
strDriveLetter2 = "H:"
strRemotePath1 = "\\SERVER\FREIGABE1"
strRemotePath2 = "\\SERVER\FREIGABE2"' Zuordnung der Pfade und Laufwerke
WSHNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1
WSHNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2' Ende des Windows Logon Scripts
Wscript.Quit
Um die Laufwerke fest im Benutzerprofil zu speichern ist es erforderlich diese wie folge zu mappen, True speichert das Laufwerk, False lässt es non-Persistent.
Außerdem lassen sich ein alternativer Benutzername und ein Password mitgeben.
' laufwerke.vbs - Einbindung der Netzlaufwerke
' Author Christoph Goth
' -----------------------------------------------------------------'Option Explicit
Dim WSHNetwork
Set WSHNetwork = CreateObject("WScript.Network")' Zuordnung der Pfade und Laufwerke
WSHNetwork.MapNetworkDrive "G:", "\\SERVER\FREIGABE1", true, BENUTZER, PASSWORD
WSHNetwork.MapNetworkDrive "H:", "\\SERVER\FREIGABE2", false, BENUTZER, PASSWORD' Ende des Windows Logon Scripts
Wscript.Quit
' laufwerke.vbs - Einbindung der Netzlaufwerke
' Author Christoph Goth
' -----------------------------------------------------------------'Option Explicit
Dim WSHNetwork, strRemotePath1, strRemotePath2
Dim strDriveLetter1, strDriveLetter2
Dim strProfile, strUser, strPassword
Set WSHNetwork = CreateObject("WScript.Network")' Definition der Laufwerke und Pfade
strDriveLetter1 = "G:"
strDriveLetter2 = "H:"
strRemotePath1 = "\\SERVER\FREIGABE1"
strRemotePath2 = "\\SERVER\FREIGABE2"
strProfile = "true"
strUser = "BENUTZER"
strPassword = "PASSWORD"' Zuordnung der Pfade und Laufwerke
WSHNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1, strProfile, strUser, strPassword
WSHNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2, strProfile, strUser, strPassword' Ende des Windows Logon Scripts
Wscript.Quit