建立指令碼

在本節中將建立指令碼。 該指令碼將檢查本機電腦上是否執行有訊息服務。 該指令碼使用指令碼偵錯工具開發以示範某些功能。

範例

Function main

'宣告我們將需要使用的物件

Dim wmi As Object

Dim objswbemobject As Object

'宣告我們需要的其他變數

Dim strComputer As String

Dim cr As String

strComputer = "127.0.0.1"

'歸位字元

cr = Chr(13) + Chr(10)

'與 wmi 物件相連

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

'檢查連線是否成功

If wmi is Nothing Then echo ("error1")

'傳回 wmi 的服務執行個體

Set wmiinst=wmi.instancesof("Win32_Service")

'檢查執行個體是否可用

If wmiinst is Nothing Then echo ("error2")

'對每個執行個體進行 true 迴圈

For Each objswbemobject In wmiinst

If objswbemobject.DisplayName = "Messenger" Then

echo("服務名稱= ")

'顯示服務

echo(objswbemobject.DisplayName+cr)

echo("服務狀態= ")

'顯示狀態

echo(objswbemobject.State+cr)

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

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

End If

下一步

End Function