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