Criar um script

Nesta seção, criamos um script. O script verifica se o serviço do Messenger está funcionando ou não na máquina local. Esse script é desenvolvido usando o depurador de script e demonstra alguns dos recursos deste.

Exemplo

Function main

'declara os objetos que precisamos usar

Dim wmi As Object

Dim objswbemobject As Object

'declara outras variáveis necessárias

Dim strComputer As String

Dim cr As String

strComputer = "127.0.0.1"

'retorno de carro

cr = Chr(13) + Chr(10)

'gancho com o objeto wmi

Set wmi = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

'verifica se o gancho foi bem-sucedido

If wmi is Nothing Then echo ("error1")

'retorna a instância de serviços do wmi

Set wmiinst=wmi.instancesof("Win32_Service")

'verifica se a instância está disponível

If wmiinst is Nothing Then echo ("error2")

'loop verdadeiro cada instância

For Each objswbemobject In wmiinst

If objswbemobject.DisplayName = "Messenger" Then

echo(“Nome Serviço= ")

'exibe serviços

echo(objswbemobject.DisplayName+cr)

echo("Service Status= ")

'exibe estado

echo(objswbemobject.State+cr)

If objswbemobject.State = "Running" Then main = true

If objswbemobject.State = "Running" Then main = true

End If

Next

End Function