I use something like:

Code:
 
	$OS          = split(@ProductType)[1]
	$CSD         = val(right(@csd,1))
	$ADMIN       = ingroup('@wksta\'+sidtoname('S-1-5-32-544'))-1+@INWIN
	$HKLMSCCS    ="HKLM\SYSTEM\CurrentControlSet"
	$HKCUSMWCV   ="HKCU\Software\Microsoft\Windows\CurrentVersion"
	$HKLMSMWCV   ="HKLM\Software\Microsoft\Windows\CurrentVersion"
	$HKLMSMWNTCV ="HKLM\Software\Microsoft\Windows NT\CurrentVersion"
	$HKCUSMWNTCV ="HKCU\Software\Microsoft\Windows NT\CurrentVersion"
  	$Desktop     =readvalue($HKCUSMWCV+"\Explorer\Shell Folders",'Desktop')
	$StartMenu   =readvalue($HKCUSMWCV+"\Explorer\Shell Folders",'StartMenu')
	$Favorites   =readvalue($HKCUSMWCV+"\Explorer\Shell Folders",'Favorites')
	$MyDocuments =readvalue($HKCUSMWCV+"\Explorer\Shell Folders",'MyDocuments')
	$alldesktop  =expandenvironmentvars(readvalue($HKLMSMWCV+"\Explorer\User Shell Folders","Common Desktop"))
	$allstartmenu=expandenvironmentvars(readvalue($HKLMSMWCV+"\Explorer\User Shell Folders","Common Start Menu"))
	$LDAP        ="LDAP://"+@domain+"/"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")
_________________________
How to ask questions the smart way <-----------> Before you ask