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