杰晶网络

VBS脚本也有GUI图形界面 日志清除功能
脚本专栏 2025/10/28 佚名
3 2

使用方法：将下面的代码保存为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,GUI,日志清除
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
评论“VBS脚本也有GUI图形界面 日志清除功能”
暂无“VBS脚本也有GUI图形界面 日志清除功能”评论...
www.imxmx.com 杰晶网络
8,675无损音乐
1,324高清电影
213破解软件
120,141站长资源
一句话新闻
一口气升级7个大模型SaaS应用，百度智能云：突出一个“开箱即用” - 2025/10/28

这一波大模型产业落地浪潮里，不少企业其实处在 “干瞪眼“的状态。

一种情况是，很多大模型产品看得见却摸不着，在台上一个个遥遥领先——今天Sora技精四座，明天英伟达的机器人又赢得满堂彩，可是到了台下一问：啥时候能用上啊？答曰：遥遥无期。

另一种情况是，企业想用上大模型，却又难免瞻前顾后——既要考虑场景融合，又得兼顾安全性，还要考虑打通现有系统，再加上各种部署成本和繁琐的采购流程……最后只能拂袖：罢了，再等等吧。

稳了！魔兽国服回归的3条重磅消息！官宣时间再确认！

昨天有一位朋友在大神群里分享，自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址，com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后，确实是网易的网址，也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情，因为以前都没有出现这样的情况，现在突然提示跳转到国服战网的网址，是不是说明了简体中文客户端已经开始进行更新了呢？

更新动态

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网