怎么用VBS記錄客戶機操作

這篇文章主要介紹怎么用VBS記錄客戶機操作，文中介紹的非常詳細，具有一定的參考價值，感興趣的小伙伴們一定要看完！

記錄客戶機操作的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記錄客戶機操作”這篇文章的所有內容，感謝各位的閱讀！希望分享的內容對大家有幫助，更多相關知識，歡迎關注億速云行業資訊頻道！