Code:

If NOT @LOGONMODE
	Break On
Else
	Break Off
EndIf
Dim $SO
$SO = SetOption("Explicit","On")
$SO = SetOption("NoMacrosInStrings","On")
$SO = SetOption("NoVarsInStrings","On")
$SO = SetOption("WrapAtEOL","On")

CreateSpecialFolderVars()

? $AllUsersStartMenu

Function CreateSpecialFolderVars()
	Dim $OldExplicitOption
	$OldExplicitOption = SetOption("Explicit","Off")
	$AllUsersStartMenu                   = GetSpecialFolders(22)[1] ;2K/XP
	$OldExplicitOption = SetOption("Explicit",$OldExplicitOption)
EndFunction

Function GetSpecialFolders($Folder)
  Dim $objFolderItem
  $objFolderItem=CreateObject('Shell.Application').Namespace($Folder).Self
  $GetSpecialFolders=$objFolderItem.Name,$objFolderItem.Path
EndFunction