Helen:
On the user account, under login script: domain_login
In the \\server\netlogon
\runtime
\Kix2001.doc
\kix2001.txt
\kix32.exe
\kx16.dll
\kx32.dll
\kx95.dll
\kxrpc.exe
\wkix32.exe
>>>Domain_logon.bat script start
@echo off
%0\..\runtime\kix32.exe %0\..\Domain_Logon_script.kix
Script End <<<<
>>>Domain_Logon_script SCRIPT START
; ===========================================================================================
;
; Script Information
;
; Title: Domain Login Script
; Author: Andi Faulds
; Description: Full Domain Login Script for Regional Offices
; Office: >
; Version: 2.5 Edited 2/12/2005
; (c) The Stroke Association IT Department
; ===========================================================================================
;********************************************************************************************
; Change Control
; 13/04/2005 - new proxy details information. have tested it seperatly on the server and another
; workstation and seems to be ok. Will need to check with users in ELON office tomorrow.
; 21/06/2005 - New Proxy Address entered . Changed from 10.2.0.6 to 10.2.2.2
; 21/06/2005 - Added extra check on the HKLM Internet settings key to change.
; 02/12/2005 - Added PCAudit script to be called at the end of the script.
;********************************************************************************************
;
:SetupScript
;Variable setup
$SupportText = "For all IT Support and Assistance, Please contact the New IT Helpdesk on:"
$SupportContact = "Tel: 0870 417 3894"
$Server = @Lserver
$hour = SubStr("@time",1,2)
$IP1 = Ltrim(SubStr(@IPADDRESS0, 1, 3))
$IP2 = Ltrim(SubStr(@IPADDRESS0, 5, 3))
$IP3 = Ltrim(SubStr(@IPADDRESS0, 9, 3))
$IP4 = Ltrim(SubStr(@IPADDRESS0, 13, 3))
$IP_Address = $IP1 + "." + $IP2 + "." + $IP3 + "." + $IP4
$ServerIP = Ltrim(SubStr(@IPADDRESS0, 5, 3))
$SharedTemplateLoc = ""
$TemplateLocation = "O:\TSATemplates"
;prepare salutation
Select
Case Val("$hour") < 12
$Salutation = "Good Morning"
Case Val("$Hour") > 12 And Val("$Hour") < 18
$Salutation = "Good Afternoon"
Case Val("$Hour") > 18
$Salutation = "Good Evening"
EndSelect
;Prepare logfile
$Log = $Server + "\netlogon\logon.log"
$DeLim = ","
$Chr = Chr(13) + Chr(10)
$handle = FreeFileHandle()
If $handle > 0
Open($handle,$Log,5)
EndIf
Open($Handle,$Log,5)
WriteLine($Handle, $Chr)

repareConsole
$ = SetConsole(show)=1
$ = SetConsole("Maximize")
Color c+/n
At (4, 0) $salutation + " " + @FULLNAME
? "Welcome to the @domain Domain"
Color g+/n
? $SupportText
? $SupportContact
:Synch_Workstation_time
SetTime $server
Color c+/n
At (10, 0) "The Current Domain Time Is: @time on @date"
? "************************************************************"
:System_Info
? "Your IP Address is : $IP_Address"
? "Your Domain is : @domain"
? "Your time server is : $Server"
? ""
? "************************************************************"

elete_Current_Mappings
Use H: /delete
Use I: /delete
Use L: /delete
Use M: /delete
Use N: /delete
Use O: /delete
Use P: /delete
Use Q: /delete
Use R: /delete
Use S: /delete
Use T: /delete
:Map_Network_Drives_For_All
? "Part 1 | Now Mapping Officewide Drives"
Use Q: $server + "\apps\av"
? "Q Mapped to AntiVirus folder"
Use O: $server + "\shared\region"
? "O Mapped to Office Shared Folder"
Use U: $server + "\homedir\@userid"
? "U Mapped to @userid HomeDirectory"
Use Z: $server + "\Mailboxes"
? "Z Mapped to Mailbox Folder"
:Map_Group_Membership_Drives
? $server
? ""
? " Part 2 | Now Mapping Group Membership Drives"
If InGroup("DSO")
Use M: $server + "\shared\DSO"
? "M Mapped to DSO Shared Folder"
EndIf
If InGroup("FSO")
Use N: $server + "\shared\FSO"
? "N Mapped to FSO Shared Folder"
EndIf
If InGroup("ETISO")
Use P: $server + "\shared\ETISO"
? "P Mapped to ETISO Shared Folder"
EndIf
If InGroup("RegMgr")
Use R: $server + "\shared\RegMgr"
? "R Mapped to RegMgr Shared Folder"
EndIf
If InGroup("Fundraising")
Use L: $server + "\shared\Fundraising"
? "L Mapped to Fundraising Shared Folder"
Use H: $server + "\Apps"
? "H Mapped for access to FD Database"
EndIf
If InGroup("IT")
Use I: $server + "\Apps"
? "I Mapped for the ITD Bods"
EndIf
If InGroup("DSFSDB")
Use H: $server + "\Apps"
? "H Mapped for access to DSO FSO Stats Database"
EndIf
:IE_Users
? ""
? " Part 3 | Configuring Internet Settings"
;This section will provide proxy details for IE for Internet Users ONLY
If InGroup("IEUsers")
;This NEW section is the proxy amendments
$ProxyServer = "10.2.2.2:8080"
$IEHomepage = "
$ServerIP = Ltrim(SubStr(@IPADDRESS0, 5, 3))
$ProxyOverRide = "10." + $serverIP + ".0.100;<local>"
$PEnable = ReadValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "Proxy Enabled")
If $PEnable <> 1
WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "1", "REG_DWORD")
? "1a)Proxy has been enabled"
Else
? "1b)Proxy already enabled"
EndIf
;Check HKCU
$ExProxyServer = ReadValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer")
If $ExProxyServer = $ProxyServer
? "2b)Proxy alread set to :" + $ProxyServer
Else
WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", $ProxyServer, "REG_SZ")
? "2a)Proxy changed to " + $ProxyServer
EndIf
;Check HKLM
$ExProxyServer = ""
$ExProxyServer = ReadValue("HKEY_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer")
If $ExProxyServer = $ProxyServer
? "2d)Proxy alread set to :" + $ProxyServer
Else
WriteValue("HKEY_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", $ProxyServer, "REG_SZ")
? "2c)Proxy changed to " + $ProxyServer
EndIf
$ExPOR = ReadValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride")
If $ExPOR <> $ProxyOverRide
WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride", $ProxyOverRide, "REG_SZ")
? "3a)Proxy Override set"
Else
? "3b)Proxy Override already set"
EndIf
$SetHomePage = ReadValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page")
? $sethomepage
If $sethomepage <> $IEHomePage
WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page", $IEHomepage, "REG_SZ")
? "4a)Homepage changed"
Else
?"4b)Homepage already configured"
EndIf
Goto Part4

art4
? ""
? ""
? "Part 4 | Additional Logon Script Features"
? ""
? "i) TSA Standard Templates Configuration"
WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\General","SharedTemplates",$TemplateLocation,"REG_SZ")
$SharedTemplateLoc = ReadValue("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\General","SharedTemplates")
? ""
? "Shared Template moved to: " + $SharedTemplateLoc
;Call "templates.kix"
? ""
? "TSA Standard Templates configured"
? ""
:Update_Log
WriteLine($Handle, "@DATE, @TIME,@USERID,$myIP")
Close($handle)

CAUDITv1
? ""
? "ii) PC Audit"
Color g+/n
? ""
? ""
? "Please wait while the IT Department performs an Audit of your PC"
Call "PCAuditv1.kix"
? ""
? "Logon Script Complete : @Time. This screen will autoclose in 5 seconds."
Sleep 5
End Script<<<<