dunno... did you get the one for $desktop and $startmenu
I use these all the time:
$HKLMSMWCV
$HKCUSMWCV
$HKLMSMWNTCV
$HKCUSMWNTCV
for AD I like:
$oRootDSE = GetObject("LDAP://rootDSE")
$oDefautNamingContext = $oRootDSE.Get("defaultNamingContext")
$oRootDSE = 0
$ldap="LDAP://"+@domain+"/"+$oDefautNamingContext
code:
$nul =SpecialFolder("Desktop StartMenu Favorites AllUsersDesktop AllUsersStartMenu")
;****************************************************************************************************
Function SpecialFolder($folders)
Dim $sAllFolders, $objWshShell, $Folder, $nul
$sAllFolders= "AllUsersDesktop AllUsersStartMenu AllUsersPrograms AllUsersStartup AppData Desktop Favorites "+
"Fonts MyDocuments NetHood PrintHood Programs Recent SendTo StartMenu Startup Templates"
$objWshShell = CreateObject("WScript.Shell")
If @ERROR Exit(1) EndIf
For Each $Folder in Split($Folders)
if instr($folder, $sAllFolders)
$nul=Execute("global $$folder")
$nul=Execute("$"+$Folder+" = $$objWshShell.SpecialFolders($$Folder)")
endif
Next
$objWshShell=''
EndFunction
[ 15. August 2003, 17:12: Message edited by: Radimus ]