$filename = "c:\documents and settings\olduser\ntuser.dat"
$rootkey = "HKEY_USERS\olduser"
$ReturnCode = LoadHive( $rootkey, $filename)
If $ReturnCode = 0
  ? "Hive loaded...."

  $CitrixCheckVar = ReadValue ($rootkey+"\Software\SchnitzerCitrix", "2K3ProfileMigrateDone")
  IF $CitrixCheckVar = 1
    ? "This key exists, and therefore the ELSE Section has been done!";
  else
    ...
    ...
    $ReturnCode = Writevalue($rootkey+"\Software\SchnitzerCitrix","2K3ProfileMigrateDone","1","REG_SZ")

  endif

  $ReturnCode = UnLoadHive( $rootkey )
Endif

;	commented out as get "reg.exe failed to initialize" error when the following line is run.  doh
;		Shell "REG EXPORT HKU\Oldprofile\Network x:\mydrives.reg";
;		If @error = 0
;			? "Network Drives Key Saved";
;			Shell "REG IMPORT x:\mydrives.reg";
;			If @error = 0
;				? "Network Drives Key Loaded...";
;			endif
;		endif

IF @WKSTA = "NICKEL21" or @WKSTA = "NICKEL22" or @WKSTA = "NICKEL23" or @WKSTA = "NICKEL24" or @WKSTA = "NICKEL25"

; *BEGIN* Main Citrix Server Farm Loop Keep things between this line and the ending line

IF INGROUP ("eTIMEUsers")
	use T: /d;
	use T: "\\silver1\etime";
ENDIF


;
; Read HKEY_CURRENT_USER registry keys to see if something is there.  We set these values at the end to mark it as "run once"
; We selected the subkey of HKEY_CURRENT_USER\Software\SchnitzerCitrix\ as our root key to check for this sort of thing.
; The below section maps 3 Drives (root of PERSONAL_SHARES, old Citrix Profile, and new P: Drive, then copies the needed
; files out of the old profile.  The new Citrix Desktop profiles we limit to 30MB, so we move this to P instead.
;

; This variable and check for a reg key is how we "do this once" and "only once"
; If it is there, then we have done the work before, and we want to skip.

$CitrixCheckVar = ReadValue ("HKEY_CURRENT_USER\Software\SchnitzerCitrix", "2K3ProfileMigrateDone");

IF $CitrixCheckVar = 1
	? "This key exists, and therefore the ELSE Section has been done!";
ELSE

	; temp mapping to copy shortcut files from root of personal_share
	use w: \\hydrogen3\personal_shares;

	; temp mapping to copy files and folders from old profile
	use x: "\\corpfile\profiles\@USERID";

	; temp mapping to copy files and folders to new P Drive
	use y: "\\hydrogen3\personal_shares\@USERID";

	copy "X:\Desktop\*.*" "y:\OldCitrixDesktop\" /s	; copies the files from OLD Citrix TSE Desktop to new one
	copy "X:\Favorites\*.*" "c:\documents and settings\" + @userid + "\Favorites\" /s	; copies the files from OLD Citrix TSE Favorites to new one
	copy "P:\Internet\Favorites\*.*" "c:\documents and settings\" + @userid + "\Favorites\" /s	; copies the files from P: Favorites to new one
	copy "W:\*.lnk" "c:\documents and settings\" + @userid + "\Desktop\"	; copies a shortcut to P:\OldCitrixDesktop\ on new citrix desktop

	;This section below reads the old NTUSER.DAT from the Windows 2000 (NICKEL1X Boxes) and exports
	;mapped drives and printers from the HKEY_CURRENT_USER section of the registry, and then imports
	;it to the new Windows 2003 User profile

	$filename = "x:\ntuser.dat";
	$rootkey = "HKEY_USERS\Oldprofile";
	
	$ReturnCodeLoadHive = LoadHive($rootkey,$filename)

	If $ReturnCodeLoadHive = 0
		? "Old Citrix Server Hive loaded....";

	  	$ReturnCodeSavePrinter = SaveKey($rootkey + "\Printers\Connections", "x:\" + @USERID + "printers.reg");

			If $ReturnCodeSavePrinter = 0
				? "Printers Key saved...."

				$ReturnCodeLoadPrinter = LoadKey("HKEY_CURRENT_USER\Printers\Connections", "x:\" + @USERID + "printers.reg")

					If $ReturnCodeLoadPrinter = 0
						? "Printers Key loaded...."
					
					Else
						? "Printer Key did not load.  Error : $ReturnCodeLoadPrinter";					

					Endif
			Endif

	  	$ReturnCodeSaveDrives = SaveKey($rootkey + "\Network", "x:\" + @USERID + "drives.reg");

			If $ReturnCodeSaveDrives = 0
				? "Drives Key saved...."

				$ReturnCodeLoadDrives = LoadKey("HKEY_CURRENT_USER\Network", "x:\" + @USERID + "drives.reg")

				If $ReturnCodeLoadDrives = 0
					? "Network Drives Key loaded...."
				Else
					? "Network Drives did not load.  Error Code : $ReturnCodeLoadDrives";
				Endif
			Endif
	ELSE
	
	? "The Return Code is = $ReturnCodeLoadHive";

	Endif 

	; Cleanup from what you've done above...

	;unloads the loaded hive from above
	
	$ReturnCodeLoadHive = UnLoadHive( $rootkey );

	;disconnects the drives we mapped above to migrate the files

	use w: /d;
	use x: /d;
	use y: /d;

	;Write the registry key that shows we've done this before, so it is not done again

	Writevalue("HKCU\Software\SchnitzerCitrix","2K3ProfileMigrateDone","1","REG_SZ")
ENDIF

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Network]

data goes here...

regf
   
           
          
          

                                                                   
Øí x&Aâ- °Íã€u                      

;*******************************************************************************************************
; Citrix Server Farm Specific Mappings - Apply only to CITRIXSRV2X machines explicitly named in if statement
;*******************************************************************************************************

IF @WKSTA = "CITRIXSRV21" or @WKSTA = "CITRIXSRV22" or @WKSTA = "CITRIXSRV23" or @WKSTA = "CITRIXSRV24" or @WKSTA = "CITRIXSRV25"

; *BEGIN* Main Citrix Server Farm Loop Keep things between this line and the ending line
;
; This mapping for Employee Services and ADP users that run Etime
;

IF INGROUP ("eTIMEUsers")
	use T: /d;
	use T: "\\ACTGSVR\etime";
ENDIF

;
; Read HKEY_CURRENT_USER registry keys to see if something is there.  We set these values at the end to mark it as "run once"
; We selected the subkey of HKEY_CURRENT_USER\Software\CompanyName\ as our root key to check for this sort of thing.
; The below section maps 3 Drives (root of PERSONAL_SHARES, old Citrix Profile, and new P: Drive, then copies the needed
; files out of the old profile.  The new Citrix Desktop profiles we limit to 30MB, so we move this to P instead.
;

; This variable and check for a reg key is how we "do this once" and "only once"
; If it is there, then we have done the work before, and we want to skip.

$CitrixCheckVar = ReadValue ("HKEY_CURRENT_USER\Software\CompanyName", "2K3CitrixProfileMigrateDone");

; Have to declare the variable regpath outside of the loop or it does not run (it seems)
; We set the path to be dynamic so this script can execute by many users at once

$RegPath = "HKEY_USERS\" + @USERID;

IF $CitrixCheckVar = 1
	? "This key exists, and therefore the ELSE Section has been done!";
ELSE

	; copies the files from OLD Citrix TSE Desktop to new one
	copy "\\OLDFILESRV\profiles\" + @userid + "\Desktop\*.*" "\\NEWFILESRV\personal_shares\" + @USERID + "\OldCitrixDesktop\" /s;
	;
	; copies the files from OLD Citrix TSE Favorites to new one
	copy "\\OLDFILESRV\profiles\" + @userid + "\Favorites\*.*" "c:\documents and settings\" + @userid + "\Favorites\" /s;
	;
	; copies the files from OLD Citrix QuickLaunch to new one
	copy "\\OLDFILESRV\profiles\" + @userid + "\Application Data\Microsoft\Internet Explorer\Quick Launch\*.*" "\\NEWFILESRV\personal_shares\" + @USERID + "\OldCitrixDesktop\OldQuickLaunch\" /s;
	;
	; copies the files from P: Favorites to new one
	copy "P:\Internet\Favorites\*.*" "c:\documents and settings\" + @userid + "\Favorites\" /s;
	;
	; copies a shortcut to P:\OldCitrixDesktop\ on new citrix desktop
	copy "\\NEWFILESRV\apps\shortcuts\old citrix desktop.lnk" "c:\documents and settings\" + @userid + "\Desktop\";
	;
	;This section below reads the old NTUSER.DAT from the Windows 2000 (CITRIXSRV1X Boxes) and exports
	;mapped drives and printers from the HKEY_CURRENT_USER section of the registry, and then imports
	;it to the new Windows 2003 User profile

	$filename = "\\OLDFILESRV\profiles\" + @userid + "\ntuser.dat";
	$rootkey = $RegPath;

	$ReturnCodeLoadHive = LoadHive($rootkey,$filename);

	If $ReturnCodeLoadHive = 0
		? "Old Citrix Server Hive loaded....";

	  	$ReturnCodeSavePrinter = SaveKey($rootkey + "\Printers\Connections", "\\OLDFILESRV\profiles\" + @USERID + "\printers.reg");

			If $ReturnCodeSavePrinter = 0
				? "Printers Key saved....";

				$ReturnCodeLoadPrinter = LoadKey("HKEY_CURRENT_USER\Printers\Connections", "\\OLDFILESRV\profiles\" + @USERID + "\printers.reg")

					If $ReturnCodeLoadPrinter = 0
						? "Printers Key loaded....";
					
					Else
						? "Printer Key did not load.  Error : $ReturnCodeLoadPrinter";					

					Endif
			Endif

		$ReturnCodeSaveIE = SaveKey($rootkey + "\Software\Microsoft\Internet Explorer\Main", "\\OLDFILESRV\profiles\" + @USERID + "\ie.reg");

			If $ReturnCodeSaveIE = 0
				? "IE settings Key saved...."

				$ReturnCodeLoadIE = LoadKey("\Software\Microsoft\Internet Explorer\Main", "\\OLDFILESRV\profiles\" + @USERID + "\ie.reg")

				If $ReturnCodeLoadIE = 0
					? "IE settings Key loaded...."
				Else
					? "IE settings did not load.  Error Code : $ReturnCodeLoadIE";
				Endif
			Endif

	; Calls other kix file to copy the drive mappings section of the registry
	;-----------------------------------------------
	; Begin Registry SubRoutine
	;-----------------------------------------------
	;
	; This routine was found in the UDF Library on Kixtart.org
	; and can be found here:
	; http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=52468
	;
	; Here is a subroutine that can copy move or rename
	; a registry key. The whole thing is based on the
	; "enumkeys.kix" (thanks Shawn !) script file that comes
	; with the kixtart distribution.
	; 
	; In order this subroutine to work you have first to
	; define The $source_key, $destination_key, and $action
	; $action can be : "move", "rename", or "copy"
	;
	; This script comes in two parts. The main script
	; below is actually your script and can have
	; any name. Be carefull to place the "tree.kix" at the
	; same directory as this file
	
	$RegKey		 = "HKEY_USERS\" + @USERID;
	$source_key      = "$RegKey\Network"
	$destination_key = "HKEY_CURRENT_USER\Network"
	$action		 = "copy"
	gosub manage_key
	;----------------------------------------------------------
	;			Subroutines
	;----------------------------------------------------------
							goto end
	:manage_key
	gosub security_check		if $secheck=1 return endif 
	gosub correct_key_names		$zz=len($source_key)
	call tree.kix
	if $action <> "copy"
		$nul=deltree("$source_key")
	endif
	return
	;-----------------------
	:correct_key_names
	if substr($source_key,len($source_key),1)="\"
		$source_key=substr($source_key,1,len($source_key)-1)
	endif
	if substr($destination_key,len($destination_key),1)="\"
		$destination_key=substr($destination_key,1,len($destination_key)-1)
	endif
	return
	;-----------------------
	:security_check
	$secheck=0
	select
	case ( ( $action<>"move" ) and ( $action<>"copy" ) and ( $action<>"rename" ) )
	$secheck=1	'The variable $$action is not defined right. Please use' ?
			'for this variable one of the following values :' ?
			'"move" , "rename" , or "copy"' ?
	case exist( @scriptdir + "\" + "tree.kix" )<>1
	$secheck=1	'The library file "tree.kix" could not be found' ?
			'at current directory' ?
	case $source_key=""
	$secheck=1	'You have not define the $$source_key' ?
	case $destination_key="" 
	$secheck=1	'You have not define the $$destination_key' ?
	case existkey("$source_key")<>0
	$secheck=1	'The source key does not exist' ?
	case existkey("$destination_key")=0
	$secheck=1	'The destiantion key already exist. The destination' ?
			'key must be absent in order this script to work.' ?
			return
	case addkey("$destination_key")<>0
	$secheck=1	'Can not create the destination key. Probably you' ?
			'do not have the required permissions' ?
	endselect
	$nul=delkey("$destination_key")
	:quit_with_error2
	return
	;-----------------------
	:end
	
	;-----------------------------------------------
	; End Registry Subroutine
	;-----------------------------------------------

	ELSE
	
	? "The Return Code is = $ReturnCodeLoadHive";

	Endif 

	;unloads the loaded hive from above
	
	$ReturnCodeLoadHive = UnLoadHive( $rootkey );

	;Write the registry key that shows we've done this before, so it is not done again

	Writevalue("HKCU\Software\CompanyName","2K3CitrixProfileMigrateDone","1","REG_SZ")
ENDIF

; *END* Main Citrix Server Farm Loop Keep things between this line and the beginning line

ENDIF