;*************************************************************************
; Script Name: kixtart
; Author:
; Date: 17-4-2007
; Description: login script
;*************************************************************************
;Script Options
$expire=(@MAXPWAGE - @PWAGE - 1)
$IconLocation="\\servernaam\Settings\koppeling"
If @USERID <> ("administrator")
;Variabelen
$Bureaublad = "%userprofile%\bureaublad"
$MenuStart = "%userprofile%\Menu Start"
$MenuStartProgram = "%userprofile%\Menu Start\Programma's"
;Netwerk mapping X aanmaken
USE x: "\\servernaam\Data"
;snelkoppeling maken voor homefolder
WshShortCut("$Bureaublad\@USERID.lnk","x:\home\@USERID")
;snelkoppeling maken voor afdelingfolder
If InGroup ("_Finance.Med")=1
WshShortCut("$Bureaublad\Finance.lnk","x:\afdeling\S&B\Finance")
EndIf
; applicatie pictogrammen neerzetten
If InGroup ("_Apps-msoffice")=1
WshShortCut("$Bureaublad\Internet.lnk","C:\Program Files\Internet Explorer\iexplore.exe")
WshShortCut("$MenuStart\Powerpoint.lnk","C:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE")
Copy "$IconLocation\Accecoires\*.*" "$MenuStart\" /s
Copy "$IconLocation\office\*.*" "$Bureaublad\"
Copy "$IconLocation\office\*.*" "$MenuStart\"
EndIf
If InGroup ("_Apps-rdp")=1
Copy "\\servernaam\rdp\*.*" "$Bureaublad\"
EndIf
; Verwijderen automatische snelkoppelingen
RD "%userprofile%\Menu Start\Programma's\Opstarten"
RD "%userprofile%\Menu Start\Programma's\Systeembeheer"
RD "%userprofile%\Menu Start\Programma's\Bureau-accessoires"
; printers aanmaken
If InGroup ("_CWS-Dsc435")=1
ADDPRINTERCONNECTION ("\\servernaam\CWS-Dsc435")
EndIf
;..............................................
;kopieren van office skeleton naar user folder
;..............................................
If InGroup ("_Terminal")=1
IF 1=EXIST("x:\home\@USERID")
IF 0=EXIST("x:\home\@USERID\office")
Copy "\\servernaam\Settings\Office\" "x:\home\@USERID\" /h /s
ENDIF
ENDIF
;----------------------------------------------------
$objSysInfo = CreateObject("ADSystemInfo")
$strUser = $objSysInfo.UserName
$objUser = GetObject("LDAP://" + $strUser)
$strDepartment = $objUser.Department
;----------------------------------------------------
If $strDepartment <> ""
$strDir = "x:\afdeling\$strDepartment"
Else
$strDir = "x:\home\@USERID"
Endif
;----------------------------------------------------
;.............................................
;Verplaatsen van excel en word standaard folder
;.............................................
$valueXl = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Options", "DefaultPath")
If $valueXl = $strDir
Else
$strSubKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Options"
$strEntry = "DefaultPath"
$strRet = WriteValue($strSubKey,$strEntry,$strDir,"REG_SZ")
Endif
;-----------------------------------------------------
$valueWd = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options", "DOC-PATH")
If $valueWd = $strDir
Else
$strSubKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options"
$strEntry = "DOC-PATH"
$strRet = WriteValue($strSubKey,$strEntry,$strDir,"REG_SZ")
Endif
;-----------------------------------------------------
;.............................................
;Verplaatsen van Mijn documenten
;.............................................
$valuePers = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\USER Shell Folders", "Personal")
$strDirPers = "x:\home\@USERID"
If $valuePers = $strDirPers
Else
$strSubKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\USER Shell Folders"
$strEntry = "Personal"
$strRet = WriteValue($strSubKey,$strEntry,$strDir,"REG_SZ")
Endif
;.............................................
;Verplaatsen van word herstelbestanden
;.............................................
$valueWdH = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options", "AUTOSAVE-PATH")
$strDirWdh = "x:\home\@USERID\office\word\herstelbestanden"
If $valueWdH = $strDirWdh
Else
$strSubKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options"
$strEntry = "AUTOSAVE-PATH"
$strRet = WriteValue($strSubKey,$strEntry,$strDirWdh,"REG_SZ")
Endif
;-----------------------------------------------------
;.............................................
;Verplaatsen van word sjablonen
;.............................................
$valueTemp = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\General", "UserTemplates")
$strDirTemp = "x:\home\@USERID\office\word\sjablonen"
If $valueTemp = $strDirTemp
Else
$strSubKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\General"
$strEntry = "UserTemplates"
$strRet = WriteValue($strSubKey,$strEntry,$strDirTemp,"REG_SZ")
Endif
;-----------------------------------------------------
;.............................................
;Verplaatsen van word woordenlijst
;.............................................
$valueTP = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options", "TOOLS-PATH")
$strDirTP = "x:\home\@USERID\office\word\woordenlijsten"
If $valueTP = $strDirTP
Else
$strSubKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options"
$strEntry = "TOOLS-PATH"
$strRet = WriteValue($strSubKey,$strEntry,$strDirTP,"REG_EXPAND_SZ")
Endif
;-----------------------------------------------------
;.............................................
;Verplaatsen van IE temp
;.............................................
$valueUSF = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", "Cache")
$strDir = "x:\home\@USERID\TIF\temp"
If $valueUSF = $strDir
Else
$strSubKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
$strEntry = "Cache"
$strRet = WriteValue($strSubKey,$strEntry,$strDir,"REG_SZ")
Endif
EndIf
; einde van: If InGroup ("_Terminal")=1
;$valueXl = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Options", "DefaultPath")
;$valueTP = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options", "TOOLS-PATH")
;$valueTemp = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\General", "UserTemplates")
;$valueWdH = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options", "AUTOSAVE-PATH")
;$valueWd = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options", "DOC-PATH")
;$valueUSF = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", "Cache")
;$valuePers = READVALUE ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", "Personal")
;MESSAGEBOX ("$valueXl"+chr(10)+"$valueTP"+chr(10)+"$valueTemp"+chr(10)+"$valueWdH"+chr(10)+"$valueWd"+chr(10)+"$valueUSF"+chr(10)+"$valuePers", "Controle", 0, 40)
EndIf
;einde van: If @USERID <> ("administrator")
function WshShortCut($path,$targetpath,optional $arguments,optional $startdir,optional $iconpath,optional $style)
dim $shell,$shortcut
$shell=createobject("wscript.shell")
if $shell
$shortcut=$shell.createshortcut($path)
if $shortcut
$shortcut.targetpath=$targetpath
if $arguments
$shortcut.arguments=$arguments
endif
if $startdir
$shortcut.workingdirectory=$startdir
endif
if $iconpath
$shortcut.iconlocation=$iconpath
endif
if $style
$shortcut.windowstyle=$style
endif
$shortcut.save
$shortcut=0
endif
$shell=0
endif
exit @error
endfunction