[vbs] testen op systeem variable

[BasXcore]

Ik ben een scripts aan het maken om printers te installeren via VBS.

Nu moet ik via vbs testen op een "systeem variable" die ik heb gedefinïeerd. Nu doe ik dat nog via een batch, maar ik wil dit in 1 vbs. En ik ben opzoek gegaan om dit voor elkaar te krijgen, maar ik ben er gewoon geen ster in.

Dit is hoe ik het doe via batch:

code:

@ECHO OFF
if "%LOKATIE%"=="breestraat" call "printers-breestraat.vbs"
if "%LOKATIE%"=="oudevest" call "printers-oudevest.vbs"
exit

En dan 2 vbs files die er als volgt uit zien :

code:

Set wshNetwork = CreateObject ("WScript.Network")
PrinterPath = "\\srv-sbs\HPLaserJ-bree"
PrinterDriver = "HP LaserJet 4"
WshNetwork.AddwindowsPrinterConnection PrinterPath, PrinterDriver
Wscript.Echo "Breestraat Printer 1 Lade 1 geïnstalleerd"
WshNetwork.SetDefaultPrinter "\\srv-sbs\HPLaserJ-bree"
Wscript.Echo "Breestraat Printer 1 Lade 1 is uw Standaard Printer"

code:

Set wshNetwork = CreateObject ("WScript.Network")
PrinterPath = "\\srv-sbs\HPLaserJ-oude"
PrinterDriver = "HP LaserJet 4"
WshNetwork.AddwindowsPrinterConnection PrinterPath, PrinterDriver
Wscript.Echo "Breestraat Printer 1 Lade 1 geïnstalleerd"
WshNetwork.SetDefaultPrinter "\\srv-sbs\HPLaserJ-oude"
Wscript.Echo "Oudevest Printer 1 Lade 1 is uw Standaard Printer"

LOKATIE is dus het systeem variable, en "breestraat" & "oudevest" zijn de 2 waarden.

Als iemand me opweg kan helpen, graag.

[eek]

code:

Set wshShell    = CreateObject("Wscript.Shell")
Set wshNetwork  = CreateObject("Wscript.Network")
strLokatie      = wshShell.ExpandEnvironmentStrings("%LOKATIE%")
strShortLokatie = Left(strLokatie,4)
PrinterPath     = "\\srv-sbs\HPLaserJ-"+strShortLokatie
PrinterDriver   = "HP LaserJet 4"
WshNetwork.AddwindowsPrinterConnection PrinterPath, PrinterDriver
Wscript.Echo strLokatie+" Printer 1 Lade 1 geïnstalleerd"
WshNetwork.SetDefaultPrinter PrinterPath
Wscript.Echo strLokatie+" Printer 1 Lade 1 is uw Standaard Printer"

Uit het hoofd dus geen idee of het ook werkt.