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