;windirs.kix
  ;version 1.006
  ;show some usefull system dirs and env

  IF (@inwin = 1)
    $NT_mode="yes"
  ELSE
    $NT_mode="no"
  ENDIF
  $os=""
  $os_dos=@dos
  SELECT
    CASE ($NT_mode = "yes") AND ($os_dos = "5.1")   ; - Windows XP -
      $os="winXP"
    CASE ($NT_mode = "yes") AND ($os_dos = "5.0")   ; - Windows 2000 -
      $os="win2K"
    CASE ($NT_mode = "yes")                         ; - Windows NT -
      $os="winNT"
    CASE ($NT_mode <> "yes") AND ($os_dos = "4.90") ; - Windows ME -
      $os="winME"
    CASE ($NT_mode <> "yes") AND ($os_dos = "4.10") ; - Windows 98 -
      $os="win98"
    CASE ($NT_mode <> "yes") AND ($os_dos = "4.0")  ; - Windows 95 -
      $os="win95"
    CASE 1
      $os="unkwn" ; - undetermined -
  ENDSELECT
  ? 'System Directories and environment for ' + $os

  $debug_file = "windirs" + "." + $os + ".log"

  IF (exist($debug_file) = 1)
    del $debug_file
  ENDIF

  $SysLang = @SysLang
  $UserLang = @USERLANG
  $windir = "%WinDir%"

$EnvALLUSERSPROFILE = "%ALLUSERSPROFILE%"
$EnvAPPDATA ="%APPDATA%"
$EnvCommonProgramFiles = "%CommonProgramFiles%"
$EnvCOMPUTERNAME = "%COMPUTERNAME%"
$EnvComSpec = "%ComSpec%"
$EnvDEVMGR_SHOW_NONPRESENT_DEVICES="%DEVMGR_SHOW_NONPRESENT_DEVICES%"
$EnvHOMEDRIVE = "%HOMEDRIVE%"
$EnvHOMEPATH = "%HOMEPATH%"
$EnvLOGONSERVER = "%LOGONSERVER%"
$EnvNUMBER_OF_PROCESSORS = "%NUMBER_OF_PROCESSORS%"
$EnvOS = "%OS%"
$EnvPath = "%Path%"
$EnvPROCESSOR_ARCHITECTURE = "%PROCESSOR_ARCHITECTURE%"
$EnvPROCESSOR_IDENTIFIER = "%PROCESSOR_IDENTIFIER%"
$EnvPROCESSOR_LEVEL = "%PROCESSOR_LEVEL%"
$EnvPROCESSOR_REVISION = "%PROCESSOR_REVISION%"
$EnvProgramFiles = "%ProgramFiles%"
$EnvPROMPT = "%PROMPT%"
$EnvSESSIONNAME = "%SESSIONNAME%"
$EnvSystemDrive = "%SystemDrive%"
$EnvSystemRoot = "%SystemRoot%"
$EnvTEMP = "%TEMP%"
$EnvTMP = "%TMP%"
$EnvUSERDOMAIN = "%USERDOMAIN%"
$EnvUSERNAME = "%USERNAME%"
$EnvUSERPROFILE = "%USERPROFILE%"
$Envwindir = "%windir%"

$Envwinbootdir = "%winbootdir%"

$Curr0Subkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
$CurrDesktop = MyReadValue($Curr0Subkey, "Desktop")
$CurrFavorites = MyReadValue($Curr0Subkey, "Favorites")
$CurrCache = MyReadValue($Curr0Subkey, "Cache")
$CurrCookies = MyReadValue($Curr0Subkey, "Cookies")
$CurrHistory = MyReadValue($Curr0Subkey, "History")
$CurrRecent = MyReadValue($Curr0Subkey, "Recent")
$CurrStartup = MyReadValue($Curr0Subkey, "Startup")
$CurrAppData = MyReadValue($Curr0Subkey, "AppData")
$CurrStartMenu = MyReadValue($Curr0Subkey, "Start Menu")
$CurrFonts = MyReadValue($Curr0Subkey, "Fonts")
$CurrPrograms = MyReadValue($Curr0Subkey, "Programs")
$CurrSendTo = MyReadValue($Curr0Subkey, "SendTo")
$CurrPersonal = MyReadValue($Curr0Subkey, "Personal")
$CurrNetHood = MyReadValue($Curr0Subkey, "NetHood")
$CurrPrintHood = MyReadValue($Curr0Subkey, "PrintHood")
$CurrTemplates = MyReadValue($Curr0Subkey, "Templates")
$CurrLocalAppData = MyReadValue($Curr0Subkey, "Local AppData")
$CurrMyMusic = MyReadValue($Curr0Subkey, "My Music")
$CurrMyPictures = MyReadValue($Curr0Subkey, "My Pictures")
$CurrMyVideo = MyReadValue($Curr0Subkey, "My Video")
$CurrAdministrativeTools = MyReadValue($Curr0Subkey, "Administrative Tools")

;

$Default0Subkey = "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
$DefaultDesktop = MyReadValue($Default0Subkey, "Desktop")
$DefaultFavorites = MyReadValue($Default0Subkey, "Favorites")
$DefaultCache = MyReadValue($Default0Subkey, "Cache")
$DefaultCookies = MyReadValue($Default0Subkey, "Cookies")
$DefaultHistory = MyReadValue($Default0Subkey, "History")
$DefaultRecent = MyReadValue($Default0Subkey, "Recent")
$DefaultStartup = MyReadValue($Default0Subkey, "Startup")
$DefaultAppData = MyReadValue($Default0Subkey, "AppData")
$DefaultStartMenu = MyReadValue($Default0Subkey, "Start Menu")
$DefaultFonts = MyReadValue($Default0Subkey, "Fonts")
$DefaultPrograms = MyReadValue($Default0Subkey, "Programs")
$DefaultSendTo = MyReadValue($Default0Subkey, "SendTo")
$DefaultPersonal = MyReadValue($Default0Subkey, "Personal")
$DefaultNetHood = MyReadValue($Default0Subkey, "NetHood")
$DefaultPrintHood = MyReadValue($Default0Subkey, "PrintHood")
$DefaultTemplates = MyReadValue($Default0Subkey, "Templates")
$DefaultLocalAppData = MyReadValue($Default0Subkey, "Local AppData")
$DefaultMyMusic = MyReadValue($Default0Subkey, "My Music")
$DefaultMyPictures = MyReadValue($Default0Subkey, "My Pictures")
$DefaultMyVideo = MyReadValue($Default0Subkey, "My Video")
$DefaultAdministrativeTools = MyReadValue($Default0Subkey, "Administrative Tools")

;

$Common0Subkey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Shell Folders"
$CommonAdminTools = MyReadValue($Common0Subkey, "Common Administrative Tools")
$CommonAppData = MyReadValue($Common0Subkey, "Common AppData")
$CommonDesktop = MyReadValue($Common0Subkey, "Common Desktop")
$CommonMyDocuments = MyReadValue($Common0Subkey, "Common Documents")
$CommonFavorites = MyReadValue($Common0Subkey, "Common Favorites")
$CommonPrograms = MyReadValue($Common0Subkey, "Common Programs")
$CommonStartMenu = MyReadValue($Common0Subkey, "Common Start Menu")
$CommonStartup = MyReadValue($Common0Subkey, "Common Startup")
$CommonTemplates = MyReadValue($Common0Subkey, "Common Templates")
$CommonMyMusic = MyReadValue($Common0Subkey, "CommonMusic")
$CommonMyPictures = MyReadValue($Common0Subkey, "CommonPictures")
$CommonMyVideo = MyReadValue($Common0Subkey, "CommonVideo")

;

$SysSubkey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion"
$SysDevicePath = MyReadValue($SysSubkey, "DevicePath")
$SysProgramFiles = MyReadValue($SysSubkey, "ProgramFilesDir")
$SysCommonFilesDir = MyReadValue($SysSubkey, "CommonFilesDir")
$SysMediaPath = MyReadValue($SysSubkey, "MediaPath")
$SysConfigPath = MyReadValue($SysSubkey, "ConfigPath")
$SysSystemRoot = MyReadValue($SysSubkey, "SystemRoot")
$SysProgramFilesPath = MyReadValue($SysSubkey, "ProgramFilesPath")

;

$ie0Subkey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
$ieMinorVersion = MyReadValue($ie0Subkey, "MinorVersion")
$ie0Subkey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion"
$iePlusVersion = MyReadValue($ie0Subkey, "Plus! VersionNumber")
$ie0Subkey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer"
$ieChannelLocale = MyReadValue($ie0Subkey, "ChannelLocale")
$ieBuild = MyReadValue($ie0Subkey, "Build")
$ieVersion = MyReadValue($ie0Subkey, "Version")

;

$offversion = "8.0"
$OffNewSubkey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\" + $offversion + "\New User Settings\Word\Options"
$OffNewProgramDir = MyReadValue($OffNewSubkey, "PROGRAMDIR")
$OffNewToolsPath = MyReadValue($OffNewSubkey, "TOOLS-PATH")
$OffNewPicturePath = MyReadValue($OffNewSubkey, "PICTURE-PATH")
$OffNewStartupPath = MyReadValue($OffNewSubkey, "STARTUP-PATH")

$OffDefSubkey = "HKEY_USERS\.DEFAULT\Software\Microsoft\Office\" + $offversion + "\Word\Options"
$OffDefProgramDir = MyReadValue($OffDefSubkey, "PROGRAMDIR")
$OffDefToolsPath = MyReadValue($OffDefSubkey, "TOOLS-PATH")
$OffDefPicturePath = MyReadValue($OffDefSubkey, "PICTURE-PATH")
$OffDefStartupPath = MyReadValue($OffDefSubkey, "STARTUP-PATH")

IF (RedirectOutput($debug_file) = 0)

;? 'System Directories'
;?''
?'[OS] ' + $os
?'[SysLang] ' + $SysLang
?'[UserLang] ' + $UserLang
?'[windir] ' + $windir
?''

? '[Curr0Subkey] ' + $Curr0Subkey
? '[CurrDesktop] ' + $CurrDesktop
? '[CurrFavorites] ' + $CurrFavorites
? '[CurrCache] ' + $CurrCache
? '[CurrCookies] ' + $CurrCookies
? '[CurrHistory] ' + $CurrHistory
? '[CurrRecent] ' + $CurrRecent
? '[CurrStartup] ' + $CurrStartup
? '[CurrAppData] ' + $CurrAppData
? '[CurrStartMenu] ' + $CurrStartMenu
? '[CurrFonts] ' + $CurrFonts
? '[CurrPrograms] ' + $CurrPrograms
? '[CurrSendTo] ' + $CurrSendTo
? '[CurrPersonal] ' + $CurrPersonal
? '[CurrNetHood] ' + $CurrNetHood
? '[CurrPrintHood] ' + $CurrPrintHood
? '[CurrTemplates] ' + $CurrTemplates
? '[CurrLocalAppData] ' + $CurrLocalAppData
? '[CurrMyMusic] ' + $CurrMyMusic
? '[CurrMyPictures] ' + $CurrMyPictures
? '[CurrMyVideo] ' + $CurrMyVideo
? '[CurrAdministrativeTools] ' + $CurrAdministrativeTools
?''

? '[Default0Subkey] ' + $Default0Subkey
? '[DefaultDesktop] ' + $DefaultDesktop
? '[DefaultFavorites] ' + $DefaultFavorites
? '[DefaultCache] ' + $DefaultCache
? '[DefaultCookies] ' + $DefaultCookies
? '[DefaultHistory] ' + $DefaultHistory
? '[DefaultRecent] ' + $DefaultRecent
? '[DefaultStartup] ' + $DefaultStartup
? '[DefaultAppData] ' + $DefaultAppData
? '[DefaultStartMenu] ' + $DefaultStartMenu
? '[DefaultFonts] ' + $DefaultFonts
? '[DefaultPrograms] ' + $DefaultPrograms
? '[DefaultSendTo] ' + $DefaultSendTo
? '[DefaultPersonal] ' + $DefaultPersonal
? '[DefaultNetHood] ' + $DefaultNetHood
? '[DefaultPrintHood] ' + $DefaultPrintHood
? '[DefaultTemplates] ' + $DefaultTemplates
? '[DefaultLocalAppData] ' + $DefaultLocalAppData
? '[DefaultMyMusic] ' + $DefaultMyMusic
? '[DefaultMyPictures] ' + $DefaultMyPictures
? '[DefaultMyVideo] ' + $DefaultMyVideo
? '[DefaultAdministrativeTools] ' + $DefaultAdministrativeTools
?''

;

? '[Common0Subkey] ' + $Common0Subkey
? '[CommonAdminTools] ' + $CommonAdminTools
? '[CommonAppData] ' + $CommonAppData
? '[CommonDesktop] ' + $CommonDesktop
? '[CommonFavorites] ' + $CommonFavorites
? '[CommonPrograms] ' + $CommonPrograms
? '[CommonStartMenu] ' + $CommonStartMenu
? '[CommonStartup] ' + $CommonStartup
? '[CommonTemplates] ' + $CommonTemplates
? '[CommonMyDocuments] ' + $CommonMyDocuments
? '[CommonMyMusic] ' + $CommonMyMusic
? '[CommonMyPictures] ' + $CommonMyPictures
? '[CommonMyVideo] ' + $CommonMyVideo
?''

;

? '[Sys0Subkey] ' + $SysSubkey
? '[SysDevicePath] ' + $SysDevicePath
? '[SysProgramFiles] ' + $SysProgramFiles
? '[SysCommonFilesDir] ' + $SysCommonFilesDir
? '[SysMediaPath] ' + $SysMediaPath
? '[SysConfigPath] ' + $SysConfigPath
? '[SysSystemRoot] ' + $SysSystemRoot
? '[SysProgramFilesPath] ' + $SysProgramFilesPath
?''

? '[iePlusVersion] ' + $iePlusVersion
? '[ieVersion] ' + $ieVersion
? '[ieBuild] ' + $ieBuild
? '[ieChannelLocale] ' + $ieChannelLocale
? '[ieMinorVersion] ' + $ieMinorVersion
?''

? '[EnvALLUSERSPROFILE] ' + $EnvALLUSERSPROFILE
? '[EnvAPPDATA] ' + $EnvAPPDATA
? '[EnvCommonProgramFiles] ' + $EnvCommonProgramFiles
? '[EnvCOMPUTERNAME] ' + $EnvCOMPUTERNAME
? '[EnvComSpec] ' + $EnvComSpec
? '[EnvDEVMGR_SHOW_NONPRESENT_DEVICES] ' + $EnvDEVMGR_SHOW_NONPRESENT_DEVICES
? '[EnvHOMEDRIVE] ' + $EnvHOMEDRIVE
? '[EnvHOMEPATH] ' + $EnvHOMEPATH
? '[EnvLOGONSERVER] ' + $EnvLOGONSERVER
? '[EnvNUMBER_OF_PROCESSORS] ' + $EnvNUMBER_OF_PROCESSORS
? '[EnvOS] ' + $EnvOS
? '[EnvPath] ' + $EnvPath
? '[EnvPROCESSOR_ARCHITECTURE] ' + $EnvPROCESSOR_ARCHITECTURE
? '[EnvPROCESSOR_IDENTIFIER] ' + $EnvPROCESSOR_IDENTIFIER
? '[EnvPROCESSOR_LEVEL] ' + $EnvPROCESSOR_LEVEL
? '[EnvPROCESSOR_REVISION] ' + $EnvPROCESSOR_REVISION
? '[EnvProgramFiles] ' + $EnvProgramFiles
? '[EnvPROMPT] ' + $EnvPROMPT
? '[EnvSESSIONNAME] ' + $EnvSESSIONNAME
? '[EnvSystemDrive] ' + $EnvSystemDrive
? '[EnvSystemRoot] ' + $EnvSystemRoot
? '[EnvTEMP] ' + $EnvTEMP
? '[EnvTMP] ' + $EnvTMP
? '[EnvUSERDOMAIN] ' + $EnvUSERDOMAIN
? '[EnvUSERNAME] ' + $EnvUSERNAME
? '[EnvUSERPROFILE] ' + $EnvUSERPROFILE
? '[Envwindir] ' + $Envwindir
? '[Envwinbootdir] ' + $Envwinbootdir

? '[OffNewSubkey] ' + $OffNewSubkey
? '[OffNewProgramDir] ' + $OffNewProgramDir
? '[OffNewToolsPath] ' + $OffNewToolsPath
? '[OffNewPicturePath] ' + $OffNewPicturePath
? '[OffNewStartupPath] ' + $OffNewStartupPath

? '[OffDefSubkey] ' + $OffDefSubkey
? '[OffDefProgramDir] ' + $OffDefProgramDir
? '[OffDefToolsPath] ' + $OffDefToolsPath
? '[OffDefPicturePath] ' + $OffDefPicturePath
? '[OffDefStartupPath] ' + $OffDefStartupPath
ELSE
  ? "RedirectOutput($debug_file) failed"
ENDIF

;;use EXPANDENVIRONMENTVARS for Expanding any environment variables inside a string to the corresponding plain text value


Function MyReadValue($key, $Value)
$MyReadValue = ReadValue($key, $Value)
If @ERROR <> 0
  $MyReadValue = '------------------------------------------'
ENDIF
EndFunction