Drives.vbs
'Remove Drives
ON ERROR RESUME NEXT
DIM objNetwork,colDrives,i
SET objNetwork = CREATEOBJECT("Wscript.Network")
SET colDrives = objNetwork.EnumNetworkDrives
FOR i = 0 to colDrives.Count-1 Step 2
' Force Removal of network drive and remove from user profile
' objNetwork.RemoveNetworkDrive strName, [bForce], [bUpdateProfile]
objNetwork.RemoveNetworkDrive colDrives.Item(i),TRUE,TRUE
NEXT
'Connect Drives
On Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
Set objShell = CreateObject("Shell.Application")
brugernavn = objNetwork.UserName
' Attach Share
objNetwork.MapNetworkDrive "H:", "\\Server\Share", TRUE
objShell.NameSpace("H:").Self.Name = "Share"
' Attach User Share
objNetwork.MapNetworkDrive "U:", "\\Server\UserShare\" & brugernavn, TRUE
objShell.NameSpace("U:").Self.Name = brugernavn & "´s dokumenter"
Printers.vbs
Set objNetwork = CreateObject("WScript.Network")
on error resume next
objNetwork.AddWindowsPrinterConnection "\\Server\Printer1"
objNetwork.AddWindowsPrinterConnection "\\Server\Printer2"
objNetwork.RemovePrinterConnection "\\Server\Printer3"
objNetwork.SetDefaultPrinter "\\Server\Printer1"
FontInstall.vbs
Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)
objFolder.CopyHere "\\Server\Share\Fonts\HelveticaNeueLTStd-Cn.otf"