RUNDLL32.EXE USER32.DLL,UpdatePerUserSystemParameters ,1 ,True 

;
;KD START
;

$System = CreateObject("Kixtart.System")
If Not $System
	$nul= MessageBox("KiXforms Not Initiated."+@CRLF+
	"Please verify KiXforms is installed."+@CRLF+
	"This Script Will Now Close.","Error",16)
	Quit()
EndIf

$Form = $System.Form()
$Form.BackColor = 212,208,200
$Form.Height = 337
$Form.Left = -16
$Form.Text = "User Setup 1.0"
$Form.Top = 13
$Form.Width = 541

$GroupBox1 = $Form.Controls.GroupBox()
$GroupBox1.BackColor = 212,208,200
$GroupBox1.Height = 183
$GroupBox1.Left = 60
$GroupBox1.Text = "Home Folder -- location for My Documents"
$GroupBox1.Top = 45
$GroupBox1.Width = 423

$Button1 = $GroupBox1.Controls.Button()
$Button1.Height = 23
$Button1.Left = 330
$Button1.Text = "Map Now"
$Button1.Top = 90
$Button1.Width = 75
$Button1.OnClick = "Redirect() "

$Label1 = $GroupBox1.Controls.Label()
$Label1.BackColor = 212,208,200
$Label1.Enabled = "False"
$Label1.Height = 24
$Label1.Left = 15
$Label1.Text = "Pass (X:) -- central Windows file service (win.pass.psu.edu)"
$Label1.Top = 90
$Label1.Width = 307

$Button2 = $Form.Controls.Button()
$Button2.Cancel = "True"
$Button2.FontBold = "True"
$Button2.FontUnderline = "True"
$Button2.Height = 23
$Button2.Left = 60
$Button2.Text = "Cancel"
$Button2.Top = 270
$Button2.Width = 75
$Button2.OnClick = "quit()"

$Button3 = $Form.Controls.Button()
$Button3.FontBold = "True"
$Button3.FontUnderline = "True"
$Button3.Height = 23
$Button3.Left = 240
$Button3.Text = "Help"
$Button3.Top = 270
$Button3.Width = 75

$Button4 = $Form.Controls.Button()
$Button4.FontBold = "True"
$Button4.FontUnderline = "True"
$Button4.Height = 23
$Button4.Left = 405
$Button4.Text = "OK"
$Button4.Top = 270
$Button4.Width = 75
$Button4.OnClick = "UpdateUserParameters()"

;
;KD END
;
$Form.Show
While $Form.Visible
	$=Execute($Form.DoEvents())
Loop
Exit 1
;==============================================
;
Function Redirect()
	$nul = WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Personal","y:\My Documents","REG_EXPAND_SZ")
	If Not(@ERROR = 0)
		? 'First WriteValue had an error# '+@ERROR
	EndIf
	$nul = WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal","y:\My Documents","REG_EXPAND_SZ") 
	If Not(@ERROR = 0)
		? 'Second WriteValue had an error# '+@ERROR
	EndIf
EndFunction
;
Function UpdateUserParameters()
	Shell 'RunDll32.exe user32.dll,UpdatePerUserSystemParameters'
	Exit @ERROR
EndFunction