|
Here is what my script looks like: (I left out the functions WMIQuery and AddPrinter to save space)
Call '@\functions\PriMapState.udf'
Call '@\functions\ComputerInGroup.udf'
;IT group login
If ComputerInGroup('TestGroup') = 1
If PriMapState('\\servre1\HP4000N-IT') = 0
AddPrinterConnection ("\\server1\HP4000N-IT")
EndIf
If PriMapState('\\server1\Canon 5020') = 0
AddPrinterConnection ("\\server1\Canon 5020")
EndIf
EndIf
;El Paso Office
If ComputerInGroup('TestGroup') = 1
AddPrinter("192.168.5.200","HP LaserJet 4000 Series PS",,"EP-4000N in Recpt.")
EndIf
;Get system Info
$model = WMIQuery("Model","Win32_ComputerSystem")[0]
$memory = MemorySize()
$ServiceTag = WMIQuery("SerialNumber","Win32_SystemEnclosure")[0]
;Write to publidr\pcinventory.txt and touch c:\cputest.txt after inventory
If NOT Exist("c:\cputest.txt")
$RC=RedirectOutput("p:\pcinventory.txt")
"@Monthno/@Mdayno/@YEAR"+" PC Name:"+@WKSTA + " CPU:" + $model + " Memory:" + $memory + "MB" + " Service Tag:" + $ServiceTag ?
$RC=RedirectOutput("")
$TRC=RedirectOutput("c:\cputest.txt")
"DO NOT DELETE THIS FILE - Part of CPU test 01/27/2004" ?
$TRC=RedirectOutput("")
EndIf
MessageBox ("Login successful", "Scripts",1,3)
Exit
| 
