Re: [VBS-] 怎麼查詢檔案公司資料

看板EzHotKey作者junorn (威廉華勒斯)時間15年前 (2009/05/18 14:41)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/2 (看更多)

自問自答後來研究出來了 SET GetPro = Wmi.ExecQuery("Select * From Win32_Process") For Each Pro In GetPro ProPath = Pro.ExecutablePath IF ProPath <> "" Then GetFileName (ProPath) ObjLog.Write "[PID:" & Pro.ProcessID & "] " & _ ProPath & " [" & CompanyName & "]" & vbcrlf End IF Next Sub GetFileName (FilePath) If FilePath <> "" Then WMIPathMode=Replace(FilePath,"\","\\") Set colManufacturer = Wmi.ExecQuery _ ("SELECT * FROM CIM_DataFile Where Name='" & WMIPathMode & "'") For Each OBJManufacturer In colManufacturer IF Trim(OBJManufacturer.Manufacturer) <> "" Then CompanyName = OBJManufacturer.Manufacturer Else CompanyName = "N/A" End IF Next End IF End Sub ※ 引述《junorn (威廉華勒斯)》之銘言： : 小弟找網路的資料 + VBScript 500個活用範例 + MSDN Wmi範例 : 拼湊出了底下的代碼 : Set ObjFSO = CreateObject("Scripting.FileSystemObject") : Set ObjWSH = CreateObject("Wscript.Shell") : Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator") : Set Wmi = Locator.ConnectServer : AA = vbcrlf & "*****************************" & vbcrlf : SET ObjLog = ObjFSO.OpenTextFile("log.txt",2,true,0) : SET Env = ObjWSH.Environment("Process") : SystemRoot = Env("SystemRoot") : System = Env("SystemRoot") & "\" & "System32" : ProgramFiles = Env("ProgramFiles") : SET GetPro = Wmi.ExecQuery("Select * From Win32_Process") : For Each Pro In GetPro : ProPath = Pro.ExecutablePath : IF ProPath > "0" Then : ObjLog.Write "[PID:" & Pro.ProcessID & "] " & ProPath & vbcrlf : End IF : Next : 後略.... : 想請問的是 : Win32_Process似乎沒有參數可以查詢檔案公司資料 : 那有沒有其他方式能夠查詢從Win32_Process中提出來的檔案資訊？ : 目前是有看到有人用CIM_DateFile : 但用法我還是不了解0rz -- 人間世稱做緣相連的紅線不停纏繞脆弱而惹人悲憐的彼岸花憤怒、傷感、終日以淚洗面在凌晨零時的夜幕中為你消除無法平息的怨恨 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 210.68.130.155