VB Script получает сервисы удаленной машины, не всегда предоставляя массив - PullRequest
Новая
       26

VB Script получает сервисы удаленной машины, не всегда предоставляя массив

0 голосов
/ 01 июля 2011

Использование следующего кода VB Script для различных версий ОС Windows: 

Dim objComputer
Dim computername, computerstr
Dim rs, objcmd, cobj
'dim oLog, oFSO, svccnt
dim arg1, args

set args = WScript.Arguments
arg1 = args(0)
WScript.echo arg1
Computerstr = "WinNT://" & arg1
Set objComputer = GetObject(computerstr)
objComputer.Filter = Array("Service")
For Each aService In objComputer
WScript.echo aService.Name
      if  aService.Name = "MSSQLSERVER" then
        if aService.Status = 4 then
          WScript.echo "running"
        else
          WScript.echo "not running"
        end if 
      end if
    Next

Это прекрасно работает на каждом сервере (45), кроме одного.Иногда он возвращает массив служб, а иногда нет.Это удается пару раз, а затем - около 15 минут.

...