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