一個(gè)網(wǎng)友提問(wèn)：
select * from win32_service 這個(gè)能查服務(wù)名稱(chēng)、狀態(tài)……
但我想查這個(gè)服務(wù)的制造商，如微軟、農(nóng)業(yè)銀行，還是未知的？？這個(gè)屬性是什么，謝謝……
我發(fā)現(xiàn)msconfig中可以看見(jiàn)的，但無(wú)法提取
下面給出解答，一種間接方法：
根據(jù)服務(wù)名獲取到關(guān)聯(lián)的主程序，再?gòu)闹鞒绦颢@取制造商
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
是不是非常不錯(cuò)的解法，小伙伴們可以學(xué)習(xí)下。
您可能感興趣的文章:- ACCESS的參數(shù)化查詢(xún),附VBSCRIPT(ASP)和C#(ASP.NET)函數(shù)
- vbs版IP地理位置查詢(xún)小偷
- vbs版sql查詢(xún)分析器lcx作品
- 可以查詢(xún)系統(tǒng)用戶(hù)名sid的vbs
- 字符ANSI代碼查詢(xún)工具vbs版
- QueryCode.vbs 文本文件編碼查詢(xún)工具
- 通過(guò)IIS自帶工具Iisapp.vbs查詢(xún)哪個(gè)w3wp.exe站點(diǎn)占用資源(cpu或內(nèi)存)
