当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 用VBS记录客户机操作的代码

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

2017年12月12日  | 移动技术网IT编程  | 我要评论

婚宴领导致辞,qq个性头像发布中心,高清电影免费下载

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

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网