用VBS記錄客戶機操作的代碼
更新時間：2008年05月20日 22:53:32 作者：
記錄客戶機操作的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
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教程：VBscript語句-Erase 語句...2006-11-11
VBS教程：函數-GetLocale 函數...2006-11-11
這篇文章主要介紹了VBA中的Timer函數用法,需要的朋友可以參考下2016-12-12
Shell.Application執(zhí)行命令的五種方法小結
可能很多人發(fā)現(xiàn)了在海陽頂端2006+版本中Shell.Application執(zhí)行命令的方法在win2003中不好用了。2010-11-11
用VBS實現(xiàn)PHP的md5_file函數代碼,需要的朋友可以參考下，代碼主要是參考官方的資料。2011-01-01
由vbs sort引發(fā).NET Framework之間的關系說明
昨天晚上linkanyway問我VBS數組怎么排序，有沒有sort方法。我說，VBS又不是C#，怎么可能有sort方法，自己寫個排序算法不就行了。他說他不會寫，忽悠誰呢。2011-01-01
VBS編程教程 (第3篇)...2007-07-07
一段用來讀取Access數據庫的vbscript代碼，來自國外的代碼，經過腳本之家測試，確實不錯。2011-12-12
一個把任何文件轉成批處理的vbs腳本Any2Bat.vbs...2007-04-04
這篇文章主要介紹了vbs枚舉進程 vbs列出進程的詳細列表,需要的朋友可以參考下2016-12-12