一個網友提問：
select * from win32_service 這個能查服務名稱、狀態……
但我想查這個服務的制造商，如微軟、農業銀行，還是未知的？？這個屬性是什么，謝謝……
我發現msconfig中可以看見的，但無法提取
下面給出解答，一種間接方法：
根據服務名獲取到關聯的主程序，再從主程序獲取制造商
| Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!//./root/cimv2")Set Services = objWMIService.ExecQuery("Select * from Win32_Service")Set fso = CreateObject("Scripting.FileSystemObject")Set objShell = CreateObject("Shell.Application")Set objFolder = objShell.NameSpace(0)i = 0Do If objFolder.GetDetailsOf("", i) = "公司" Then '非中文系統自行修改 Exit Do Else i = i+1 End IfLoopFor Each objService in Services path = GetPath(objService.PathName) IF fso.GetExtensionName(path) = "" Then path = path & ".exe" Set objFolder = objShell.NameSpace(fso.GetParentFolderName(path)) Set objItem = objFolder.ParseName(fso.GetFileName(path)) comp = objFolder.GetDetailsOf(objItem, i) If comp = "" Then comp = "未知" info = info & "服務："& objService.DisplayName &" 制造商："& comp & vbCrLFNextfso.CreateTextFile("info.txt", true).WriteLine infoMsgBox "完成"Function GetPath(strng) Dim re Set re = New RegExp re.Pattern = "^""?(.+//[^///s""]+).*" GetPath = re.Replace(strng,"$1") Set regEx = NothingEnd Function |
是不是非常不錯的解法，小伙伴們可以學習下。
新聞熱點
疑難解答
圖片精選
