SetTime "\\dc1"
CLS
Break off
;---------------------------------------------------------------
;Delete Network Mappings
;---------------------------------------------------------------
Use "*" /delete /PERSISTENT
;---------------------------------------------------------------
;Map Global Network Drives
;---------------------------------------------------------------
? "Mapping Drives"
Use H: "\\nasbox\vol2"
Use I: "\\saturn\vol3"
Use J: "\\nasbox\vol4"
Use K: "\\nasbox\vol5"
Use L: "\\saturn\vol6"
Use N: "\\saturn\vol11"
Use O: "\\saturn\vol8"
Use P: "\\saturn\vol6\PDOXDATA"
Use Q: "\\minerva\AutoCadE"
Use R: "\\nasbox\snap"
Use S: "\\dc1\netlogon"
Use U: "\\nasbox\production"
Use V: "\\Juno\D"
Use Y: "\\nasbox\Network"
Use X: "\\nasbox\users\@userid"
Use Z: "\\minerva\vol1\apps\acad"
;---------------------------------------------------------------
;Map Printers
;---------------------------------------------------------------
? "Deleting Printers"
delprinterconnections()
? "Adding Printers"
If AddPrinterConnection ("\\ps\HP1220C") = 0
? "Added HP 1220C Color Inkjet Printer Connection"
'Error: ' + @ERROR + ' - ' + @SERROR ?
EndIf
If AddPrinterConnection ("\\ps\hp5000") = 0
? "Added HP5000 Laserjet Printer Connection"
'Error: ' + @ERROR + ' - ' + @SERROR ?
EndIf
If AddPrinterConnection ("\\ps\p7400") = 0
? "Added Xerox Phaser 7400 Color Laser Printer Connection"
'Error: ' + @ERROR + ' - ' + @SERROR ?
EndIf
;---------------------------------------------------------------
;Display AUP
;---------------------------------------------------------------
Dim $Site, $IExplore
$Site = '\\saturn\vol11\aup\motd.htm'
$IExplore = ReadValue('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE','')
RUN $IExplore + ' ' + $Site
;---------------------------------------------------------------
;Run TrackIt audit
;---------------------------------------------------------------
run 'N:\TrackIt\audit32.exe'
;---------------------------------------------------------------
function DelPrinterConnections()
dim $c,$bk,$conn
$c=0
$bk="HKEY_CURRENT_USER\Printers\Connections"
$conn=enumkey($bk,$c)
while @error=0
$c=$c+0.5
$conn=delkey($bk+"\"+$conn)
$conn=enumkey($bk,$c)
loop
endfunction