Page 1 of 1 1
Topic Options
#196299 - 2009-10-08 11:22 AM kix32 will do nothing
Lvnielen Offline
Just in Town

Registered: 2009-08-05
Posts: 4
Loc: Netherlands
hello,

i have a kix32 logon script that make desktop icons for applications, netuse a home dir, make printers and set the start menu.

we have 3 windows terminal server 32bit there will the script work very fine. Now have a new server the is 64bit windows server and here will the kix32 script do nothing. When i logon with a user account on a 32bit server will the script start and have i all the icons and printers, when i logon with the same account on the 64bit server is the desktop emty.

When i logon on the 64bit server see i that the script start out the netlogon folder of the primary domain controler but the do nothing with desktop icons.

In the windows event viewer see i no error that have a relation with kix32.

We use KIX32 version 4.53.0.0

Thanks for help. Sorry for my broken english.

Top
#196301 - 2009-10-08 12:39 PM Re: kix32 will do nothing [Re: Lvnielen]
Glenn Barnas Administrator Offline
KiX Supporter
*****

Registered: 2003-01-28
Posts: 4396
Loc: New Jersey
This isn't a Kix issue - kix runs fine on W2K8. Have you left UAC enabled? It's the only change I've made to our 2K8 servers.

Glenn
_________________________
Actually I am a Rocket Scientist! \:D

Top
#196303 - 2009-10-08 02:10 PM Re: kix32 will do nothing [Re: Glenn Barnas]
Lvnielen Offline
Just in Town

Registered: 2009-08-05
Posts: 4
Loc: Netherlands
it is not server 2008 but server 2003 the 32 and 64 bit version.
All the windows updates are installed.

Top
#196304 - 2009-10-08 02:54 PM Re: kix32 will do nothing [Re: Lvnielen]
Witto Offline
MM club member
*****

Registered: 2004-09-29
Posts: 1828
Loc: Belgium
Like Glenn said,
 Originally Posted By: Glenn Barnas
This isn't a Kix issue

Login scripts do run on W2k3 R2 64 bit with KiXtart 4.53.
Who is logging on? Is it a "Domain Admin" or a "Local Admin" or a user with limited rights? Can you show the logon script?

Top
#196324 - 2009-10-12 08:32 AM Re: kix32 will do nothing [Re: Witto]
Lvnielen Offline
Just in Town

Registered: 2009-08-05
Posts: 4
Loc: Netherlands
the server is windows server 2003 enterprice X64 service pack 2. Not R2.

The user they logon is a normal domain user. No admin. The user have no problems with the other 32bit servers, there al the correct desktop icons.

the logon script:

 Code:
;*************************************************************************
;  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


Edited by Lvnielen (2009-10-12 08:36 AM)

Top
#196327 - 2009-10-12 04:51 PM Re: kix32 will do nothing [Re: Lvnielen]
Glenn Barnas Administrator Offline
KiX Supporter
*****

Registered: 2003-01-28
Posts: 4396
Loc: New Jersey
Since this is related only to 64b systems, and you're doing a lot of registry updates, I'd suggest you review the SetOption() function for the "WOW" settings. 64b systems change how certain file and registry paths are accessed, and Kix allows you to modify the behavior. Be sure to check the Readme file, since the manual only lists 1 of the 2 WOW settings.

Just a guess, since I don't have time to fully examine/test your script, but many of us have been bit by this in the past.

Glenn
_________________________
Actually I am a Rocket Scientist! \:D

Top
#196413 - 2009-10-21 09:11 AM Re: kix32 will do nothing [Re: Glenn Barnas]
Lvnielen Offline
Just in Town

Registered: 2009-08-05
Posts: 4
Loc: Netherlands
KIX give me in the command box: 17971797. That is the error for: 1797 The printer driver is unknown
i remove the add printer connection in kix and all the registry updates. When i logon have i no desktop icons.

Is there enything that i most enable or install to run kix?


Edited by Lvnielen (2009-10-21 10:14 AM)

Top
Page 1 of 1 1


Moderator:  Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart 
Hop to:
Shout Box

Who's Online
1 registered (Allen) and 466 anonymous users online.
Newest Members
gespanntleuchten, DaveatAdvanced, Paulo_Alves, UsTaaa, xxJJxx
17864 Registered Users

Generated in 0.058 seconds in which 0.022 seconds were spent on a total of 13 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org