Creación de un script

En esta sección se crea un script. Este script verifica si el servicio de mensajería instantánea se ejecuta o no en el equipo local. El script se desarrolla utilizando el depurador de scripts y demuestra algunas de sus características.

Ejemplo

Function main

'declarar los objetos que será necesario utilizar

Dim wmi As Object

Dim objswbemobject As Object

'declarar otras variables que se necesitan

Dim strComputer As String

Dim cr As String

strComputer = "127.0.0.1"

'retorno de carro

cr = Chr(13) + Chr(10)

'vincular con gancho con el objeto wmi

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

'verificar que el gancho haya sido correcto

If wmi is Nothing Then echo ("error1")

'devolver la instancia de servicios de la wmi

Set wmiinst=wmi.instancesof("Win32_Service")

'verificar que la instancia esté disponible

If wmiinst is Nothing Then echo ("error2")

'aplicar loop true a cada instancia

For Each objswbemobject In wmiinst

If objswbemobject.DisplayName = "Messenger" Then

echo("Service Name= ")

'mostrar servicios

echo(objswbemobject.DisplayName+cr)

echo("Service Status= ")

'mostrar estado

echo(objswbemobject.State+cr)

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

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

End If

Siguiente

End Function