进程列表信息.vbs

最新推荐文章于 2022-04-17 13:28:27 发布

cunzhangxp

最新推荐文章于 2022-04-17 13:28:27 发布

阅读量1.2k

点赞数

文章标签： function string file each

本文链接：https://blog.csdn.net/cunzhangxp/article/details/1238965

版权

strComputer = InputBox("请输入计算机名或者IP地址", "输入")

file = "d:/TaskInfo_" & strComputer & ".txt" '保存信息的文件名

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process")
Message = Message & vbCrlf & "以下为"& strComputer & "当前正在运行的进程列表：" & vbCrlf
Message = Message & "---------------------------------------------------" & vbCrLf & vbCrLf
For Each objProcess in colProcessList
    Message = Message & "- " & objProcess.caption & vbcrlf & Space(15)
    Message = Message & Standardoutput(objProcess.ExecutablePath) & vbcrlf
Next
'WScript.echo Message
Message = Message & vbcrlf & String(40,"-") & "　结束　" & String(40,"-") & vbcrlf
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(file, True)
objFile.write Message
Set objFile = nothing

Wscript.Echo strComputer & "当前正在运行的进程列表信息已存放在"& file

Function standardoutput(inputword)
If IsNull(inputword) Then
standardoutput = "系统进程"
Else
standardoutput = inputword
End If
End Function