code:

---

 SELECT
CASE INGROUP ("MOVED_USERS")
	GOSUB gla
CASE INGROUP ("GRAMPIAN-GRP")
	GOSUB gra
CASE INGROUP ("PANDD-GRP")
	GOSUB pan
CASE 1
	; not in any of the above groups
ENDSELECT
EXIT

:GLA
?"in GLA"
? "USERS NAME IS " + @fullname
? "MACHINE NAME IS " + @wksta
? "IP ADDRESS IS " + @ipaddress0
? "CPU IS " + @cpu
? "OPERATING SYSTEM IS " + @producttype
? "SERVICE PACK IS " + @csd
?
?
If @INWIN=1
   If InGroup("IT-PRINT1-GRP")
      $null=AddPrinterConnection("\\Gfclnt04\CITSL4C1")
      $null=AddPrinterConnection("\\Gfclnt04\CITSLJ03")
      $null=AddPrinterConnection("\\Gfclnt04\AITSL502")
      $null=AddPrinterConnection("\\Gfclnt04\AITSL501")
      $null=SetDefaultPrinter("\\Gfclnt04\AITSL502")
      ? "Added printer connection.........."
   ENDIF

   IF InGroup("IT-PRINT2_GRP")
      $null=AddPrinterConnection("\\Gfclnt04\CITSL4C1")
      $null=AddPrinterConnection("\\Gfclnt04\CITSLJ03")
      $null=AddPrinterConnection("\\Gfclnt04\AITSL502")
      $null=AddPrinterConnection("\\Gfclnt04\AITSL501")
      $null=SetDefaultPrinter("\\Gfclnt04\AITSL501")
      ? "Added printer connection.........."
   ENDIF
 
   If InGroup("checkline-grp")
      MapDrive("H:","GCKLNT01","wineftnt")
   Endif
   
   IF InGroup("MOVED_USERS")
      SHELL 'SUBST U: /D '
      SHELL 'SUBST U: "\\gfclnt03\users\%username%" '
   ENDIF

   IF InGroup("RESEARCH-GRP")
      MapDrive("Z:","GAPPNT02","RESEARCH")
   ENDIF

Else ; Win95

   IF InGroup("MOVED_USERS")
      MapDrive("U:","gfclnt03","users")
      CD U:\users\@userid
   ENDIF
Endif
 
:GRA
?"in GRA"
IF @INWIN = 1 
	IF InGroup("LOCAL_ADMINS")
		SHELL "CMD /C SUBST U: /D"
	ELSE
		SHELL 'SUBST U: /D '
		SHELL 'SUBST U: "\\QCLUNT01\users\%username%" '
	ENDIF

ELSE ; win95

	MapDrive("U:", "QCLUNT01", "users")
	cd U:\users\@USERID
ENDIF

:PAN
?"in PAN"
IF @INWIN = 1 
      SHELL 'SUBST U: /D '
      SHELL 'SUBST U: "\\lbdcnt01\%username%" '

ELSE ; Win95
      MapDrive("U:", "lbdcnt01", "Users")
      CD U:\users\@userid
ENDIF

IF InGroup("PRIME-GRP")
   MapDrive("J:","LAPPNT02","AREV31")
   MapDrive("F:","LAPPNT02","PSDATA")
ENDIF

IF InGroup("PANDD-GRP")
   MapDrive("J:","LFILNT01","PearlAndDean")
   MapDrive("K:","LAPPNT01","ACT")
ENDIF

IF InGroup("Scottish Magazines")
   MapDrive("N:","GAPPNT04","ScottishMagazines")
ENDIF

IF InGroup("Solus-Grp")
   MapDrive("Q:","GAPPNT04","SolusBookingSystem")
ENDIF

IF InGroup("ADQUICK-GRP")
   MapDrive("G:","GTPSNT01","Quick")
ENDIF

IF InGroup("CUSTSERV-GRP")
   MapDrive("R:","GAPPNT02","CSDBase")
ENDIF

IF InGroup("SATEAM-GRP")
   MapDrive("X:","GMSHNT01","TECH_SUPPORT")
ENDIF

IF InGroup("MOVE-GRP")
   MapDrive("J:","GFCLNT04","CentralServices")
ENDIF

IF InGroup("CENTRALS-GRP") ;
   MapDrive("J:","GFCLNT04","CentralServices")
ENDIF

IF InGroup("GPNCENTRALS-GRP") ;
   MapDrive("N:","QCLUNT01","CentralServices")
ENDIF

IF InGroup("BROADCAS-GRP")
   MapDrive("K:","GFCLNT04","Broadcasting")
ENDIF

IF InGroup("BROADDIST-GRP")
   MapDrive("I:","GFCLNT04","Broadcasting")
ENDIF

IF InGroup("GPNBROADCAST-GRP")
   MapDrive("O:","QCLUNT01","Broadcasting")
ENDIF

IF InGroup("PUBLISHI-GRP")
   MapDrive("L:","GFCLNT04","Publishing")
ENDIF

IF InGroup("S1-GROUP")
   MapDrive("V:","GAPPNT03","S1")
   USE V: "\\GAPPNT03\S1"
ENDIF

IF InGroup("COGNOS-USERS")
   MapDrive("Y:","GTPSNT01","cognos")
ENDIF

IF InGroup("SUNDAY-GRP")
   MapDrive("S:","GMSHNT01","Sunday")
ENDIF

IF InGroup("STE-GRP")
   MapDrive("M:","GFCLNT04","Broadcasting")
ENDIF

IF InGroup("MARKETIN-GRP")
   MapDrive("T:","GAPPNT05","Despatch_DB")
ENDIF

IF InGroup("MARKETDB-GRP")
   MapDrive("S:","GAPPNT05","NSDOCS")
ENDIF

IF InGroup("MAGASUBS-GRP")
   MapDrive("F:","GAPPNT02","MAGAZINES")
ENDIF

IF InGroup("GPNPUBLIC-GRP") ;
   MapDrive("Q:","QCLUNT01","Public")
ENDIF

MapDrive("P:","GMSHNT01","Public")

RETURN


;--------------------------------------------------------------------------------------------------
Function MapDrive($Drive, $Server, $Share)
   Dim $Drive, $Server, $Share
   Color c+/n
   If $Drive<>"" and $Server<>"" and $Share<>""
      $LogText="Connecting $Drive to \\$Server\$Share"
      ? $LogText
      USE $Drive /Delete /Persistent
      USE $Drive "\\$Server\$Share"
      If @error=0
         color g+/n
         $x=" - Success"
         "$x"
      Else
         color r+/n
         $x=" - Failed: Error @error"
         "$x"
         $ErrorState=1
      Endif
      WriteLog ($LogText + $x)
      Color w+/n
   Else
      WriteLog ("Function 'MapDrive' called with invalid parameters: '$Drive', '$Server', '$Share'")
   Endif
Endfunction
;--------------------------------------------------------------------------------------------------
Function WriteLog($text)
   dim $RC, $text, $LogFile, $Filehandle
   $Filehandle = 1
   $LogFile = "\\Gfclnt03\Users\LoginLogs\logon.log"
   $RC=Writeline ($Filehandle, "@Date @Time - $Text" + Chr(13) + Chr(10))
   if $RC<0
      $RC=Close ($Filehandle)
      $RC=Open ($Filehandle, $LogFile, 5)
      Select
         Case $RC=-1
            $RC=MessageBox ("Invalid file name ($LogFile) specified for log file.","Logon Script Error",48)
         Case $RC=0
            WriteLog ($Text)
         Case $RC=>0
            $RC=MessageBox ("Error($RC) while attempting to open log file ($LogFile).","Logon Script Error",48)
      Endselect
   Endif
EndFunction  

 

---