;
; Uses GLOBAL Variables: $PCDomain
DIM $TWHT, $CLRH, $GenShare, $UserShellFolders, $x, $IsFacServ, $Serv, $TWHT2
$TWHT = "\\twhtshr04"
$TWHT2 = "\\twhtshr02"
$CLRH = "\\CLRHSVR03"
$GenShare = SUBSTR(@userid,1,9)
$UserShellFolders = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
; ************************************************
; Home-drive mapping
IF EXIST ("$TWHT\"+@userid+"$")
MapDrive("H:","$TWHT\"+@userid+"$")
IF NOT ReadValue($UserShellFolders, "Personal") = "H:\"
$x = WriteValue($UserShellFolders, "Personal", "H:\", "REG_SZ" )
ENDIF
IF NOT EXIST ("H:\Favorites")
MD "H:\Favorites"
ENDIF
IF NOT EXIST ("H:\Outlook")
MD "H:\Outlook"
ENDIF
; IF NOT EXIST ("C:\Documents and Settings\@userid\Favorites.txt")
; COPY "C:\Documents and Settings\@userid\Favorites\" "H:\Favorites\" /s
; ENDIF
IF NOT ReadValue($UserShellFolders, "Favorites") = "H:\Favorites"
$x = WriteValue($UserShellFolders, "Favorites", "H:\Favorites", "REG_SZ" )
ENDIF
ENDIF
? " "
RETURN
; *************************
; * MAPDRIVE *
; *************************
Function MapDrive($Drive, $Path)
Use $Drive /del
Use $Drive $Path
if @ERROR = 0
? " Drive " + $Drive + " mapped to " + $Path
else
Color r+/n
? " Error Mapping Drive " + $Drive + " to " + $Path + " !!"
? "Error: " + @Error + " - " + @SError
Color w/n
endif
EndFunction
RETURN