-- 作者：lime
-- 发布时间：6/21/2005 1:09:00 PM
-- WSH求解呀!~
下面是代码！我有些地方不懂！~那位前辈帮忙解释一下呀！~
多谢了！~ ~_^ Set objWMI = _
GetObject("winmgmts:{impersonationLevel=impersonate}//./root/cimv2")
Set colProcesses = objWMI.ExecQuery("SELECT * FROM Win32_Process")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objNewFile = objFS.CreateTextFile("htmloutput.htm")
objNewFile.WriteLine "<html>"
objNewFile.WriteLine "<head>"
objNewFile.WriteLine "<title>Process Report</title>"
objNewFile.WriteLine "</head>"
objNewFile.WriteLine "<body>"
objNewFile.WriteLine "<h1>Process Report -- Date: " & Now() & _
"</h1>" & vbCrLf
For Each objProcess In colProcesses
objNewFile.WriteLine "Process Name: " & objProcess.Name
objNewFile.WriteLine "Executable Path: " & objProcess.ExecutablePath
objNewFile.WriteLine _
".............................................."
objNewFile.WriteLine vbCrLf
Next
objNewFile.WriteLine "</body>"
objNewFile.WriteLine "</html>"
objNewFile.Close
|