一個網(wǎng)友提問:
select * from win32_service 這個能查服務(wù)名稱、狀態(tài)……
但我想查這個服務(wù)的制造商,如微軟、農(nóng)業(yè)銀行,還是未知的??這個屬性是什么,謝謝……
我發(fā)現(xiàn)msconfig中可以看見的,但無法提取
下面給出解答,一種間接方法:
根據(jù)服務(wù)名獲取到關(guān)聯(lián)的主程序,再從主程序獲取制造商
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 = 0 Do If objFolder.GetDetailsOf("", i) = "公司" Then '非中文系統(tǒng)自行修改 Exit Do Else i = i+1 End If Loop For 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 "服務(wù):" objService.DisplayName " 制造商:" comp vbCrLF Next fso.CreateTextFile("info.txt", true).WriteLine info MsgBox "完成" Function GetPath(strng) Dim re Set re = New RegExp re.Pattern = "^""?(.+\\[^\\\s""]+).*" GetPath = re.Replace(strng,"$1") Set regEx = Nothing End Function
是不是非常不錯的解法,小伙伴們可以學(xué)習(xí)下。
標(biāo)簽:鶴壁 湖州 四平 西安 銅川 邢臺 文山 巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《VBS實現(xiàn)查詢服務(wù)的制造商》,本文關(guān)鍵詞 VBS,實現(xiàn),查詢服務(wù),的,制造商,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
上一篇:VBS中解決帶空格路徑的三種方法
下一篇:VBS實現(xiàn)截圖功能