用VBS记录客户机操作的代码

2020-07-26 11:58:13

字体：大中小

来源：转载

供稿：网友

记录客户机操作的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

上一篇：用vbs删除某些类型文件和磁盘空间报告的脚本

下一篇：用VBS脚本删除指定以外的文件或文件夹