VBS脚本也有GUI图形界面 日志清除功能
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 使用方法：将下面的代码保存为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 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于VBS脚本也有GUI图形界面 日志清除功能的所有评论
