伏龙阁资源网

VBS脚本也有GUI图形界面 日志清除功能
站长资源 2024/11/22 佚名
2 0

使用方法：将下面的代码保存为rizhi.vbs双击运行即可，如果不行可能是杀毒软件的问题。可以搜索下。以前提供过解决方法。

set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象' 
ie.menubar=0 '取消菜单栏' 
ie.addressbar=0 '取消地址栏' 
ie.toolbar=0 '取消工具栏' 
ie.statusbar=0 '取消状态栏' 
ie.width=400 '宽400' 
ie.height=400 '高400' 
ie.resizable=0 '不允许用户改变窗口大小' 
ie.navigate "about:blank" '打开空白页面' 
ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2) '水平居中' 
ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2) '垂直居中' 
ie.visible=1 '窗口可见' 

with ie.document '以下调用document.write方法，' 
.write "<html><body bgcolor=#dddddd scroll=no>" '写一段html到ie窗口中。' 
.write "<h2 align=center>远程清除系统日志</h2><br>" 
.write "<p>目标IP：<input id=ip type=text size=15>" '也可以用navigate方法直接打开一' 
.write "<p>用户名：<input id=user type=text size=30>" '个html文件，效果是一样的。' 
.write "<p>密码：　<input id=pass type=password size=30>" 
.write "<p align=center>类型：" '不仅是input对象，所有DHTML支持' 
.write "<input id=app type=checkbox>应用程序 " '的对象及其属性、方法都可以使用。' 
.write "<input id=sys type=checkbox>系统 " 
.write "<input id=sec type=checkbox>安全" '访问这些对象的办法和网页中访问' 
.write "<p align=center><br>" '框架内对象是类似的。' 
.write "<input id=confirm type=button value=确定> " 
.write "<input id=cancel type=button value=取消>" 
.write "</body></html>" 
end with 

dim wmi '显式定义一个全局变量' 
set wnd=ie.document.parentwindow '设置wnd为窗口对象' 
set id=ie.document.all '设置id为document中全部对象的集合' 
id.confirm.onclick=getref("confirm") '设置点击"确定"按钮时的处理函数' 
id.cancel.onclick=getref("cancel") '设置点击"取消"按钮时的处理函数' 

do while true '由于ie对象支持事件，所以相应的，' 
wscript.sleep 200 '脚本以无限循环来等待各种事件。' 
loop 

sub event_onquit 'ie退出事件处理过程' 
wscript.quit '当ie退出时，脚本也退出' 
end sub 

sub cancel '"取消"事件处理过程' 
ie.quit '调用ie的quit方法，关闭IE窗口' 
end sub '随后会触发event_onquit，于是脚本也退出了' 

sub confirm '"确定"事件处理过程，这是关键' 
with id 
if .ip.value="" then .ip.value="." '空ip值则默认是对本地操作' 
if not (.app.checked or .sys.checked or .sec.checked) then 'app等都是checkbox，通过检测其checked' 
wnd.alert("至少选择一种日志") '属性，来判断是否被选中。' 
exit sub 
end if 
set lct=createobject("wbemscripting.swbemlocator") '创建服务器定位对象' 
on error resume next '使脚本宿主忽略非致命错误' 
set wmi=lct.connectserver(.ip.value,"root/cimv2",.user.value,.pass.value) '连接到root/cimv2名字空间' 
if err.number then '自己捕捉错误并处理' 
wnd.alert("连接WMI服务器失败") '这里只是简单的显示“失败”' 
err.clear 
on error goto 0 '仍然让脚本宿主处理全部错误' 
exit sub 
end if 
if .app.checked then clearlog "application" '清除每种选中的日志' 
if .sys.checked then clearlog "system" 
if .sec.checked then clearlog "security" '注意，在XP下有限制，不能清除安全日志' 
wnd.alert("日志已清除") 
end with 
end sub 

sub clearlog(name) 
wql="select * from Win32_NTEventLogFile where logfilename='"&name&"'" 
set logs=wmi.execquery(wql) '注意，logs的成员不是每条日志，' 
for each l in logs '而是指定日志的文件对象。' 
if l.cleareventlog() then 
wnd.alert("清除日志"&name&"时出错！") 
ie.quit 
wscript.quit 
end if 
next 
end sub

上面是通过vbs输出html内容来实现，一般情况下，小编是使用hta来实现图像界面。

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
www.wwsws.com 伏龙阁资源网
39,976影音资源
44,792技术资源
21,817软件资源
651,128站长资源

更新日志

友情链接

杰晶网络 DDR爱好者之家 桃源资源网 杰网资源 富贵资源网 南强小屋 铁雪资源网 幽灵资源网 万梅资源网 狼山资源网 白云岛资源网 昆仑资源网 相思资源网 明霞山资源网 内蒙古资源网 黑松山资源网 茶园资源网 饿虎岗资源网 大旗谷资源网 常春岛资源网 岱庙资源网 兴国资源网 快活林资源网 蝙蝠岛资源网 帝王谷资源网 白云城资源网 伏龙阁资源网 清风细雨楼 天枫庄资源网 圆月山庄资源网 无争山庄资源网 神水资源网 移花宫资源网 神剑山庄资源网 无为清净楼资源网 金钱帮资源网 丐帮资源网 华山资源网 极乐门资源网 小李飞刀资源网 凤求凰客栈 风云阁资源网 金狮镖局 鸳鸯亭资源网 千金楼资源网 更多链接