WSH/VBS check om printer og netværksdrev er mappede?

Dim net, objFso, nReturnCode, wshShell, strUser, MyComputer, objUser, strUserGroups
on error resume next
Set wshShell = WScript.CreateObject("WScript.Shell")
Set net = CreateObject("WScript.Network")   
set objFSO = CreateObject("Scripting.FileSystemObject")

'Drev:
if not objFSO.DriveExists("I:")=true THEN
  net.MapNetworkDrive "I:", "\\srvname\sharename","True"
END IF

'Printer:
net.AddWindowsPrinterConnection "\\HPPRNSRV\LJ4000TN-1"