On Error Resume Next ' Нужно чтобы было продолжение если не будет доступа к RCP серверу во время выполенния скрипта

Const adVarChar =  200  
Const MaxCharacters =  255  
Const ForReading =  1  
Const ForWriting =  2  
Const ADS_SCOPE_SUBTREE =  2  
Const FOR_WRITING =  2  
 
'************************ Create Server List **************************** 
 
set objFSO = CreateObject("Scripting.FileSystemObject") 

Set objFile = objFSO.CreateTextFile("Serverlist.txt") 
Set objShell = CreateObject("WScript.Shell")

Set objConnection = CreateObject("ADODB.Connection") 
Set objCommand =   CreateObject("ADODB.Command") 
objConnection.Provider = "ADsDSOObject" 
objConnection.Open "Active Directory Provider" 
 
Set objCOmmand.ActiveConnection = objConnection 
Set RootDse = GetObject( "LDAP://RootDse" ) 
strADSPath = "LDAP://" & RootDse.get( "DefaultNamingContext" ) 
objCommand.CommandText = "Select Name, Location from '" & strADSPath & "' Where objectClass='computer'" 
objCommand.Properties("Page Size") =  1000  
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  
Set objRecordSet = objCommand.Execute 

objRecordSet.MoveFirst 
 
Do Until objRecordSet.EOF 
    strComputer = objRecordSet.Fields("Name").Value 'Получаем текущее имя компьютера

    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '"& strComputer & "'")
    For Each objStatus In objPing
        If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <>  0  Then
            Avaible = False ' Провал попингуем. пишем в лог и закрываем рот
            objFile.WriteLine "СЕТИ НЕТ   на " & strComputer & "   дата: " & Now()        
        Else
            Avaible = True ' Пинг прошел, обрабатываем систему далее

        Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
        Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_OperatingSystem",, 48 ) 
        For Each objItem in colItems 
         objFile.WriteLine(objItem.CSName)
        Next
    End If
  Next
objRecordSet.MoveNext
Loop