;============================================================

; KIXTART.KIX

;

; By Michael Rychter - For JGBS

;

; First created on 21 December 1999

; Revised: 22/07/2000 MR - For JGBS

; Revised: 20/01/2002 MR - To include McAfee update

; Revised: 27/01/2002 SF - Rebuilt server \\FRED to new name \\SERVER

; Revised: 27/12/2003 MR - Rebuilt for new SBS server

;=======================================================================



SETTIME "\\FRED"

;debug on

$HKCUExplorer  = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"

$HKCUSystem    = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System"

$McAfeeRegKey  = "HKEY_LOCAL_MACHINE\Software\Network Associates\TVD\Shared Components\On Access Scanner\Vshield\System Scan\General"

$McAfeeDlSite  = "HKEY_LOCAL_MACHINE\Software\Network Associates\TVD\Shared Components\McUpdate\CurrentVersion\Update\Update Site1"

$McAfeeVer     = "HKEY_LOCAL_MACHINE\Software\Network Associates\TVD\Shared Components\VirusScan Engine\4.0.xx"

$McAfeeExe     = "C:\Program Files\Common Files\Network Associates\McUpdate\McUpdate.exe"

$SysPath       = "C:\Windows\System\"

$Cr            = CHR(13) + CHR(10)

$Cr2           = $Cr + $Cr



$UserId=@userid

$HomeServer="FRED"



$ScriptsDrive="L:"

$ScriptsShare="\\$HomeServer\NETLOGON"



$NetWorkDrive="N:"

$NetWorkShare="\\$HomeServer\NetWork$"



$McAfeeDrive="M:"

$McAfeeShare="\\$HomeServer\McAfee$"



$PrivateDrive="P:"

$PrivateShare="\\$HomeServer\Private$"



$SBTDrive="H:"

$SBTShare="\\$HomeServer\SBT$"



$PayrollDrive="W:"

$PayrollShare="\\$HomeServer\Payroll$"



$CDROMDrive= "S:"

$CDROMShare="\\$HomeServer\CDROM"



$IDRDrive= "I:"

$IDRShare="\\$Homeserver\IDR$"



$ExecsDrive="X:"

$ExecsShare="\\$Homeserver\Execs$"



$UserDrive= "U:"

$UserShare= "\\$HomeServer\$UserId$"



;;;; Code exits to OS about here

USE $IDRDrive /DELETE

USE $ExecsDrive /DELETE

USE $NetWorkDrive /DELETE

USE $PrivateDrive /DELETE

USE $ScriptsDrive /DELETE

USE $SBTDrive /DELETE

USE $PayrollDrive /DELETE

USE $UserDrive /DELETE

USE $McAfeeDrive /DELETE

USE $CDROMDrive /DELETE



USE $UserDrive $UserShare

USE $CDROMDrive $CDROMShare

USE $NetWorkDrive $NetWorkShare



IF INGROUP("SBT")

  USE $SBTDrive $SBTShare

ENDIF



IF INGROUP("Domain Admins")

  USE $ScriptsDrive $ScriptsShare

ENDIF



IF INGROUP("Private")

  USE $PrivateDrive $PrivateShare

ENDIF



;================= Secure Backup Exec Data Recovery Files ============

IF INGROUP("Execs")

  USE $ExecsDrive $ExecsShare

  USE $IDRDrive $IDRShare

  COPY "I:\FRED.dr" "C:\FRED.dr"

  USE $IDRDrive /DELETE

ENDIF



;=================== Message Screen ===================================

$message = "Welcome @FULLNAME. You have been sucessfully authenticated" + CHR(13)

  + "on the @LDOMAIN System by the server called @LSERVER."

  + CHR(13) + CHR(13) 

  + "Your Workstation time has been set to @TIME" + CHR(13) + CHR(13)

  + "You are currently logged onto @WKSTA as @USERID with the following" + chr(13)

  + "drive mappings:" + CHR(13) + CHR(13)

  + "$UserDrive  $UserShare" + CHR(13)

  + "$CDROMDrive  $CDROMShare" + CHR(13)

  + "$NetworkDrive  $NetworkShare" + CHR(13)



IF INGROUP("Private")

  $message = $message + "$PrivateDrive $PrivateShare" + CHR(13)

ENDIF



IF INGROUP("Execs")

  $message = $message + "$ExecsDrive $ExecsShare" + CHR(13)

ENDIF



IF INGROUP("Domain Admins")

  $message = $message + "$ScriptsDrive $ScriptsShare" + CHR(13)

ENDIF



;=================== McAfee Splash Screen & Virus Update ================

USE $McAfeeDrive $McAfeeShare

$RK= KeyExist($McAfeeRegKey)

IF @ERROR = 0

  $RKVal = ReadValue($McAfeeRegKey,"bSkipSplash")

  IF $RKVal = "0"

    WriteValue($McAfeeRegKey, "bSkipSplash","1","REG_DWORD")

  ENDIF

ENDIF

$McAfeeSVersion = ReadProfileString($McAfeeDrive + "\Updates\Delta.ini", "Contents", "CurrentVersion")

$McAfeeWVersion = SUBSTR(ReadValue($McAfeeVer,"szDatVersion"),5,4)



IF $McAfeeSVersion <> $McAfeeWVersion

  $RK = KeyExist($McAfeeDlSite)

  IF @ERROR = 0

    $RK = WRITEVALUE($McAfeeDlSite, "bStoreAfter", "0", "REG_DWORD")

    $RK = WRITEVALUE($McAfeeDlSite, "szUNCLocation", "M:\Updates", "REG_SZ")

;   IF @ProductType = "Windows 2000 Professional"

;     $RK = WRITEVALUE($McAfeeDlSite, "uUpdateFrom", "3", "REG_DWORD")

;   ELSE

    $RK = WRITEVALUE($McAfeeDlSite, "uUpdateFrom", "1", "REG_DWORD")

;   ENDIF

;    SHELL "$McAfeeExe /task update /Quiet"

    SHELL "$McAfeeExe /task update"

    $Message = $Message + "AntiVirus updated to V" + $McAfeeWVersion + $Cr2

  ENDIF

ELSE

  $Message = $Message + "Your AntiVirus is current (V" + $McAfeeWVersion + ")" + $Cr2

ENDIF

USE $McAfeeDrive /DELETE

;

;==========================================================================







MESSAGEBOX($message, "JGBS", 0,1)



:end1

COOKIE1

:end

Quote:

---

IF INGROUP("Private") fails with a message "Unknown Command [Private]"

---

Quote:

---

;;;; Code exits to OS about here
USE $IDRDrive /DELETE

---

$rc=setoption('explicit','on')

$rc=setoption9'novarsinstrings','on')