Persistent NO ind VBS Script einbauen

' -------------------------------------------------------'  
' 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
Dim objNetwork, objShell, objFile
Dim drv, drvpath, drvname

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

MapDrive "y:", "\\Server\Daten", "Daten"  

MapDrive "z", "\\Server\Daten2", "Daten2"  


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, asc (drvname)
		objShell.NameSpace(drv).Self.Name = drvname
		Wscript.Echo "Check : "& drv & " for " & drvname  
	End If
End Sub