作者junorn (威廉華勒斯)
看板EzHotKey
標題Re: [VBS-] 怎麼查詢檔案公司資料
時間Mon May 18 14:41:06 2009
自問自答
後來研究出來了
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
1F：推 ldwang:看不懂orz 純推 06/01 21:45