How to record client operations with VBS

This article mainly introduces how to use VBS to record client operations, the article is very detailed, has a certain reference value, interested friends must read it!

A VBS script that records client actions

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 & "" file1.close Loop and above are all the contents of the article "how to record client operations with VBS" Thank you for reading! Hope to share the content to help you, more related knowledge, welcome to follow the industry information channel!