• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    VBS脚本也有GUI图形界面 日志清除功能

    使用方法:将下面的代码保存为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来实现图像界面。

    上一篇:VBS 16进制验证特定字符
    下一篇:将HTML或txt文件转换为ASP输出的vbs代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBS脚本也有GUI图形界面 日志清除功能 VBS,脚本,也有,GUI,图形,界面,