Использование переменных среды

  ...
  Dim WshShell, WshProcessEnv, WshSysEnv
  Set WshShell = CreateObject("WScript.Shell")
 
  ' Обращение к переменной уровня пользователя (процесса)
  Set WshProcessEnv = WshShell.Environment("Process")
  MsgBox WshProcessEnv("Path")
 
  ' Обращение к переменной уровня системы
  Set WshSysEnv = WshShell.Environment("System")
  MsgBox WshSysEnv("NUMBER_OF_PROCESSORS")
  ...

Function RemoteEnvironmentVariable(ServerName, VariableName)
  Dim objWMIService, colItems, objItem
 
  RemoteEnvironmentVariable = ""
  Set objWMIService = GetObject("winmgmts:\\" & ServerName & "\root\cimv2")
  Set colItems = objWMIService.ExecQuery("Select * from Win32_Environment Where Name = '" & VariableName & "'")
  For Each objItem in colItems
    RemoteEnvironmentVariable = objItem.VariableValue
  Next
End Function