dim oie,doc1,fso
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colprocess = objWMIService.ExecQuery _
("Select * from Win32_process")
for each objprocess in colprocess
a=20-len(objprocess.caption)
b=10-len(objprocess.handle)
for i = 0 to a
p=p&"."
next
for i = 0 to b
q=q&"."
next
pross= pross&objprocess.caption&p&objprocess.handle&q&objprocess.commandline&vbcrlf
p=""
q=""
next
no="軞輛最杅峈:"&colprocess.count
b="-------------------------------------------------------------------------------"&vbcrlf
set oie=wscript.createobject("internetexplorer.application")
oie.navigate "www.輛最.com"
oie.visible = 1
oie.toolbar = 0
oie.statusbar= 1
oie.width = 900
oie.Height =500
do while (oie.busy) : loop
set doc1=oie.document
doc1.open
doc1.writeln "<html><head><title>珆尨輛最</title></head>"
doc1.writeln "<BACKGROUND= 'E:\picture\釬こ\PhoXo3.jpg' >"
doc1.writeln "<pre><center><font color=red size=5>輛最陓洘</font></center><p><font color=black size=2>"
doc1.writeln b&pross&b&no
doc1.writeln "底岩 底岩弧 底岩弧府 底岩 "
doc1.writeln "怪岩 怪岩戕 岱 弧岱 怪岩 "
doc1.writeln "彿岩 忽 彿 彿岩忽彿岩 彿岩 "
doc1.writeln "-------------------------------------------------------------------------------"
doc1.writeln ""
doc1.writeln ""
doc1.writeln "<pre><center><font color=white size=1>CopyRight To ZhangBo</font></center>"
doc1.writeln "<pre><center><font color=white size=1>Zhangbo846@hotmail.com</font></center>"
doc1.writeln "</font></p></pre></body></html>"
doc1.close
评论2
最新资源