傑客邦

因為工作關係，仍持續使用Visual Basic 6，這套長老級的開發軟體。
不曉得在M$極力推廣 .NET 的技術下還能存在多少個開發用戶。
(我就是其中之一)



當然，我也不是那種墨守成規、閉門造車的人，在開發新系統的時候，也都已經採用 .NET 平台。
畢竟維護的系統太大，要由VB6轉變成VB.NET還需要一些時間吧…

最近，就遇到了棘手的問題，「如何在Win 2000/XP中重新啟動服務呢？」

在網路找了一些資料，原來可以透過WMI(Windows Management Instrumentation)的方式取得服務程序，
再進行啟動/關閉的動作。Sample Code如下述。


Private Function SwitchService(strSvcName As String, blnOpen As Boolean) As Boolean
Dim strWMIcls As String
Dim objSvc As Object

strWMIcls = "Win32_Service"
Set objSvc = GetObject("winmgmts:").InstancesOf(strWMIcls)(strWMIcls & ".Name=""" & strSvcName & """")
SwitchService = CallByName(objSvc, IIf(blnOpen, "StartService", "StopService"), 1) = 0
End Function

If SwitchService("W32Time", True) = True Then '只要將啟動/關閉的服務程序名稱帶入第一個引數
MsgBox "OK!"
End If


不過，我怎麼知道這個服務程序的名稱是什麼？有以下兩種方式：

1.很簡單，去[控制台]->[系統管理工具]->[服務]中，點兩下開啟服務，在跳出來的視窗中就有答案了。
　(下圖，是"服務名稱"非顯示名稱)



2.在系統機碼表中 \HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services 也可以看出來各個服務程序的名稱。