Добрый день, уважаемые знатоки! Ситуация такая: в сети есть два сервера под управлением Windows Server Ent. 2008 SP2. Один из них 32 бита, второй 64. Есть несколько скриптов, использующих WMI. Эти скрипты замечательно отрабатываются относительно первого
сервера, но на 64х-битном вылетают с ошибкой. Например, самый простой скрипт, который определяет разрядность запущенной Windows (приведён ниже) при запуске на самом 64х-сервере отрабатывает без проблем, а при запуске на удалённой машине и обращении к этому
серверу вылетает с ошибкой VBscript 800A01CE.
Привожу текст скрипта:
Option Explicit
'Скрипт показывает разрядность операционной системы на удалённом компьютере.
'================================================================
'НАЧАЛО БЛОКА КОНФИГУРАЦИИ
Const HKLM = &H80000002
Const HKCU = &H80000001
Const HKU = &H80000003
Const strKeyPath = "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
Const strKeyName = "PROCESSOR_ARCHITECTURE"
Const TITLE = "Проверка разрядности операционной системы"
'ОКОНЧАНИЕ БЛОКА КОНФИГУРАЦИИ
'================================================================
'Инициализация.
Dim strComputer, WshNetwork, objReg, objWMI, strKey
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = LCase(WshNetwork.ComputerName)
strComputer = InputBox("Введите имя компьютера:", TITLE & ":", strComputer)
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
'Проверяем доступность компьютера
If Unavailable(strComputer) Then
MsgBox "Компьютер недоступен:" & vbCrLf & strComputer, vbExclamation, TITLE
strComputer = ""
End If
'Проверяем наличие установленного обновления.
If Len(strComputer) > 0 Then
objReg.GetStringValue HKLM, strKeyPath, strKeyName, strKey
MsgBox "На компьютере " & strComputer & " установлена система версии " & strKey
End If
'В случае ошибки
If Len(Err.Description) > 0 Then
If Not SILENT Then MsgBox strComputer & vbCrLf & "Ошибка:" & vbCrLf & Err.Description, vbExclamation, TITLE
End If
' Завершение исполняемой части
' ============================
Function Unavailable(addr)
'проверить доступность компьютера в сети
'вернуть True, если адрес недоступен
Dim ping, p
Set objWMI = GetObject("WinMgmts:{impersonationLevel=impersonate}")
Set ping = objWMI.ExecQuery("SELECT StatusCode FROM Win32_PingStatus WHERE Address = '" & addr & "'")
For Each p In ping
If IsNull(p.StatusCode) Then
Unavailable = True
Else
Unavailable = (p.StatusCode <> 0)
End If
Next
End Function
