VBS實現(xiàn)查詢服務(wù)的制造商
更新時間：2015年09月25日 10:30:28 投稿：hebedich
本文給大家分享的是一個使用VBS實現(xiàn)查詢服務(wù)的制造商的代碼，思路非常的巧妙，方法很簡單，這里推薦給大家。
一個網(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í)下。
相關(guān)文章
VBS教程：方法-Test 方法...2006-11-11
微軟手冊只提了一個remove，沒提增加，原來是這樣。2009-07-07
VBS教程：函數(shù)-GetObject 函數(shù)
使用 GetObject 函數(shù)可以訪問文件中的 Automation 對象，而且可以將該對象賦值給對象變量。使用 Set 語句將 GetObject 返回的對象賦值給對象變量。2006-11-11
IIS管理器也是通過調(diào)用iisvdir.vbs來實現(xiàn)虛擬目錄的創(chuàng)建和刪除的。我們可以通過命令行的方式來執(zhí)行iisvdir.vbs腳本2014-07-07
VBS教程：函數(shù)-IsEmpty 函數(shù)...2006-11-11
vbs實現(xiàn)的eMule電驢自動關(guān)機腳本代碼
verycd,eMule電驢官方網(wǎng)站上說：為了不違背共享精神，是不會為eMule電驢添加自動關(guān)機功能的，這要多費電呀，在網(wǎng)上看了一個方法，感覺非常不錯，改掉了原代碼的不足之處2008-07-07
把txt文件托放到這個vbs上試一下，它會自動生成一個htm文件。需要修的地方說一下。2011-01-01
用VBS修改遠程桌面3389端口并添加到Windows防火墻的代碼
用vbs實現(xiàn)端口就是用vbs修改的注冊表，主要是vbs的添加到防火墻的代碼，值得大家學(xué)習(xí)2008-06-06
使用VBS實現(xiàn)Hosts文件一鍵配置實現(xiàn)代碼
hosts文件存儲了IP地址與域名的映射。因為有的時候需要經(jīng)常性地配置hosts文件，因此這段時間我琢磨了一套傻瓜化的hosts文件配置方案，記錄如下2019-09-09
最近遇到一個應(yīng)用,要求將指定文件夾下的所有 html 文件中包含的某些文字的文件給改名2024-04-04