深入挖掘Windows脚本技2

来源：网络收集时间：2026-09-05

导读：深入挖掘Windows脚本技2 深入挖掘Windows脚本技术(二) 脚本也有GUI】虽然系统提供了WScript和CScript两个脚本宿主，分别负责窗口环境和命令行环境下的脚本运行，但实际上窗口环境下用户与脚本交互不太方便：参数输入只能建立快捷方式或弹出InputBox对话框

深入挖掘Windows脚本技2

深入挖掘Windows脚本技术(二)

脚本也有GUI】

虽然系统提供了WScript和CScript两个脚本宿主，分别负责窗口环境和命令行环境下的脚本运行，但实际上窗口环境下用户与脚本交互不太方便：参数输入只能建立快捷方式或弹出InputBox对话框，输出信息后只有在用户“确定”后才能继续运行。完全没有了窗口环境直观、快捷的优势。好在有前面提到的InternetExplorer对象，脚本可以提供web风格的GUI。

还是来看个例子，一个清除系统日志的脚本，顺便复习一下WMI：

Codz:

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对象支持事件，所以相应的，’

深入挖掘Windows脚本技2

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

end sub

深入挖掘Windows脚本技2

总结一下整个过程。首先是创建internetexplorer.application对象。其直接 …… 此处隐藏：8499字，全部文档内容请下载后查看。喜欢就下载吧 ……

深入挖掘Windows脚本技2.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.jiaowen.net/wenku/1802628.html（转载请注明文章来源）

上一篇：深圳市电子商务服务中心简介
下一篇：采油工程复习资料汇总