- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章ProcessMagnifier.vbs进程查看代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.
- ' FileName: ProcessMagnifier.vbs
- ' Function: Capture information about the running processes in detail
- ' code by somebody
- ' QQ: 240460440
- ' LastModified:2007-11-16 18:25
- ' 仅供学习
- Const HKEY_CURRENT_USER = &H80000001
- oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
- strKeyPath = "Console\%SystemRoot%_system32_cmd.exe"
- oReg.CreateKey(HKEY_CURRENT_USER, strKeyPath)
- strValueName1 = "CodePage"
- dwValue1 = 936
- strValueName2 = "ScreenBufferSize"
- dwValue2 = 98304200
- strValueName3 = "WindowSize"
- dwValue3 = 2818173
- strValueName4 = "HistoryNoDup"
- dwValue4 = 0
- strValueName5 = "WindowPosition"
- dwValue5 = 131068
- strValueName6 = "QuickEdit"
- dwValue6 = 2048
- oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName1, dwValue1)
- oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName2, dwValue2)
- oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName3, dwValue3)
- oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName4, dwValue4)
- oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName5, dwValue5)
- oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName6, dwValue6)
- Dim objWSH, FinalPath
- objWSH = WScript.CreateObject("WScript.Shell")
- If (LCase(Right(WScript.Fullname, 11)) = "wscript.exe") Then
- FinalPath = "'" & WScript.ScriptFullName & "'"
- objWSH.Run("cmd.exe /k cscript //nologo " & Replace(FinalPath, "'", """"))
- WScript.Quit()
- End If
- oReg.DeleteKey(HKEY_CURRENT_USER, strKeyPath)
- oReg = Nothing
- WScript.Echo()
- WScript.Sleep(1000)
- WScript.Echo("当前正在运行的进程简要信息列表如下:")
- WScript.Echo(vbCrLf)
- WScript.Sleep(2000)
- Dim MyOBJProcessName
- OBJWMIProcess = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_Process")
- WScript.Echo "Name: Priority: PID: Owner:" &vbTab&vbTab&"ExecutablePath: "
- WScript.Echo("---------------------------------------------------------------------------------------")
- For Each OBJProcess In OBJWMIProcess
- MyOBJProcessName=OBJProcess.Name&" "
- colProperties = OBJProcess.GetOwner(strNameOfUser, strUserDomain)
- WScript.Echo Mid(MyOBJProcessName,1,20) &vbTab& OBJProcess.Priority &vbTab& OBJProcess.ProcessID &vbTab& strNameOfUser &vbTab&vbTab& OBJProcess.ExecutablePath
- Next
- WScript.Sleep(5000)
- WScript.Echo(vbCrLf)
- WScript.Echo("当前正在运行的进程以及其加载的模块详细信息树状结构如下:")
- WScript.Echo(vbCrLf)
- WScript.Sleep(3000)
- WScript.Echo vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab& vbTab&"创建时间 文件制造商"
- OBJWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
- OBJRefresher = CreateObject("WbemScripting.SWbemRefresher")
- colItems = OBJRefresher.AddEnum(OBJWMIService, "Win32_PerfFormattedData_PerfProc_FullImage_Costly").ObjectSet
- OBJRefresher.Refresh()
- For Each OBJItem In colItems
- Dim originalPath, ModulePath, WMIPathMode, FileManufacturer, LCaseModulePath
- Dim FileExtension, mark, MyLCaseModulePath, FinalModulePath
- originalPath = OBJItem.Name
- ModulePath = Split(originalPath, "/")
- WMIPathMode = Replace(ModulePath(1), "\", "\\")
- OBJWMI = GetObject("winmgmts:\\.\root\CIMV2")
- colManufacturer = OBJWMI.ExecQuery("SELECT * FROM CIM_DataFile Where Name='" & WMIPathMode & "'")
- For Each OBJManufacturer In colManufacturer
- FileManufacturer = Trim(OBJManufacturer.Manufacturer)
- LCaseModulePath = LCase(Trim(OBJManufacturer.Name))
- FileExtension = Right(LCaseModulePath, 3)
- MyLCaseModulePath = LCaseModulePath & " "
- FSO = CreateObject("Scripting.FileSystemObject").GetFile(LCaseModulePath)
- If FileExtension = "exe" Then
- mark = "├—"
- FinalModulePath = Mid(MyLCaseModulePath, 1, 118)
- WScript.Echo("│")
- Else
- mark = "│├─"
- FinalModulePath = Mid(MyLCaseModulePath, 1, 116)
- End If
- WScript.Echo mark & FinalModulePath & FSO.DateCreated &vbTab& FileManufacturer
- Next
- Next
最后此篇关于ProcessMagnifier.vbs进程查看代码的文章就讲到这里了,如果你想了解更多关于ProcessMagnifier.vbs进程查看代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。
我使用 IBM Personal Communications 12.0.3.0 的宏记录器制作了一个凭据输入宏。它只是在调用时输入我的用户名和密码。 sub Credentials() Dim
该批处理更改了 vbs 代码,使其无法供 vbs 使用。我该如何解决这个问题? 批号: echo Const HIGH = 128 >> prio.vbs echo strComputer = "."
我有 2 个 vbs 文件。 A.vbs: Class test public a public b End Class B.vbs: Dim objShell Set objShell =
以下是我用来尝试在 IIS 6 中创建虚拟目录的条目: [Run] Filename: {tmp}\cscript.exe mkvirtdir.vbs; Parameters: "-c LocalHo
核心vbs代码 ? 1
对于vbs中ping的实现可以通过两种方式 : 1、调用系统ping命令; 2、使用wmi查询pingstate类处理。 1、调用系统ping命令
在看vb开发,看到二维数组时突发奇想用二维数组作为游戏关卡; 1. 选择操作: 游戏开始时会提示选择注册, 登录, 退出三种选项, 2.注册: 注册成功会将用户账户与密码存入用户数据txt文档中
复制指定文件到指定目录下 核心代码 ? 1
复制代码 代码如下: On Error Resume Next Dim WshShell, QQPath, QQselect set wshshell=createobject("
运行前请确定你的电脑安装了word。 复制代码 代码如下: i=0 set wshshell=createobject("wscript.shell") Set objWo
参考代码一: 复制代码 代码如下: Function DeleteLog( ) Dim objFSO, objFolder, strPath,
挺实用的一段代码,用来深入学习vbs,确实不错咯。 复制代码 代码如下: On Error Resume Next '忽略所有错误 Dim filename '声明变量 Di
话说还是闲来练手,初步实现了自己认为的“多线程”下载。(至于是不是多线程,可以参考12楼链接) 为避免冗余,省了一些错误检查。我觉得没多大实际用途,有兴趣的兄弟一起学习讨论呗。欢迎大家指正: 复制
复制代码 代码如下: set oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 for i=1 to 10 &n
复制代码 代码如下: on error resume next url = " http://www.bathome.net/logging.php?action=login"
效果图: 代码都封装成函数了,方便调用: 复制代码 代码如下: Key = "www-enun-net" '不要用数字
打开狗狗影视,搜索自己需要的资源,资源类型选:电驴,如下图: 我找到一个 19.75gb 的: 点开它,出现如下图的界面,可以看到正常下载地址已被屏蔽。我们复制地址栏中的网址,备用。
最近相关的备份比较频繁,为了校验文件的完整性,老是要打开某文件HASH校验工具,比较麻烦,于是乎写了这个东东,文件较大时计算有点慢,文件的MD5值保存在剪贴板!效果如图: 使用方法: 1.先
CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetF
For Next 语句的基本结构为: 复制代码 代码如下: For counter = start To end [Step step] [statements] [Exit For] [st
我是一名优秀的程序员,十分优秀!