<html>
<title>列举进程 - HTA 版 - by zh159@bbs.cn-dos.net - 2007-6-28</title>
<script language="VBScript">
width = 800
height = 700
window.resizeTo width, height
ileft=(window.screen.width-width)/2
itop=(window.screen.height-height)/2
window.moveTo ileft,itop
</script>
<body scroll="no" style="border: 1 solid #9ab8f6;FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2);color:#ffffff;">
<table width="100%" align="center" style="font: 12px 宋体;"><td align="center"><textarea id="result" style="width:100%; height:600; font: 13px 宋体;border: 1 solid #9ab8f6;"></textarea><br><input type="button" class1="button" name="Button" value="复制到剪贴板" onClick="copy('result')" style="height:27;border: 1 solid #9ab8f6;FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2);color:#ffffff;cursor:hand;"></td></table>
</body>
<script language="VBScript">
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
For Each objItem in colItems
Num = Num + 1
str = str & Num & ". " & objItem.Caption & vbCrLf & _
"================================================================================" & vbCrLf & _
"Caption: " & objItem.Caption & vbCrLf & _
"CommandLine: " & objItem.CommandLine & vbCrLf & _
"CreationClassName: " & objItem.CreationClassName & vbCrLf & _
"CreationDate: " & objItem.CreationDate & vbCrLf & _
"CSCreationClassName: " & objItem.CSCreationClassName & vbCrLf & _
"CSName: " & objItem.CSName & vbCrLf & _
"Description: " & objItem.Description & vbCrLf & _
"ExecutablePath: " & objItem.ExecutablePath & vbCrLf & _
"ExecutionState: " & objItem.ExecutionState & vbCrLf & _
"Handle: " & objItem.Handle & vbCrLf & _
"HandleCount: " & objItem.HandleCount & vbCrLf & _
"InstallDate: " & objItem.InstallDate & vbCrLf & _
"KernelModeTime: " & objItem.KernelModeTime & vbCrLf & _
"MaximumWorkingSetSize: " & objItem.MaximumWorkingSetSize & vbCrLf & _
"MinimumWorkingSetSize: " & objItem.MinimumWorkingSetSize & vbCrLf & _
"Name: " & objItem.Name & vbCrLf & _
"OSCreationClassName: " & objItem.OSCreationClassName & vbCrLf & _
"OSName: " & objItem.OSName & vbCrLf & _
"OtherOperationCount: " & objItem.OtherOperationCount & vbCrLf & _
"OtherTransferCount: " & objItem.OtherTransferCount & vbCrLf & _
"PageFaults: " & objItem.PageFaults & vbCrLf & _
"PageFileUsage: " & objItem.PageFileUsage & vbCrLf & _
"ParentProcessId: " & objItem.ParentProcessId & vbCrLf & _
"PeakPageFileUsage: " & objItem.PeakPageFileUsage & vbCrLf & _
"PeakVirtualSize: " & objItem.PeakVirtualSize & vbCrLf & _
"PeakWorkingSetSize: " & objItem.PeakWorkingSetSize & vbCrLf & _
"Priority: " & objItem.Priority & vbCrLf & _
"PrivatePageCount: " & objItem.PrivatePageCount & vbCrLf & _
"ProcessId: " & objItem.ProcessId & vbCrLf & _
"QuotaNonPagedPoolUsage: " & objItem.QuotaNonPagedPoolUsage & vbCrLf & _
"QuotaPagedPoolUsage: " & objItem.QuotaPagedPoolUsage & vbCrLf & _
"QuotaPeakNonPagedPoolUsage: " & objItem.QuotaPeakNonPagedPoolUsage & vbCrLf & _
"QuotaPeakPagedPoolUsage: " & objItem.QuotaPeakPagedPoolUsage & vbCrLf & _
"ReadOperationCount: " & objItem.ReadOperationCount & vbCrLf & _
"ReadTransferCount: " & objItem.ReadTransferCount & vbCrLf & _
"SessionId: " & objItem.SessionId & vbCrLf & _
"Status: " & objItem.Status & vbCrLf & _
"TerminationDate: " & objItem.TerminationDate & vbCrLf & _
"ThreadCount: " & objItem.ThreadCount & vbCrLf & _
"UserModeTime: " & objItem.UserModeTime & vbCrLf & _
"VirtualSize: " & objItem.VirtualSize & vbCrLf & _
"WindowsVersion: " & objItem.WindowsVersion & vbCrLf & _
"WorkingSetSize: " & objItem.WorkingSetSize & vbCrLf & _
"WriteOperationCount: " & objItem.WriteOperationCount & vbCrLf & _
"WriteTransferCount: " & objItem.WriteTransferCount & vbCrLf & vbCrLf
Next
result.Value = str
</script>
<script language=JavaScript>
function copy(ob){
var obj=findObj(ob); if (obj) {
obj.select();js=obj.createTextRange();js.execCommand("Copy");}
}
function findObj(n, d) {
var p,I,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
</script>
</html>
