深入挖掘Windows脚本技术第1/2页

if (lcase(right(wscript.fullname,11))="wscript.exe") then ''判断脚本宿主的名称''
die("Script host must be CScript.exe.") ''脚本宿主不是CScript，于是就die了''
end if

if wscript.arguments.count<1 then ''至少要有一个参数''
die("Usage: cscript webdl.vbs url [filename]") ''麻雀虽小五脏俱全，Usage不能忘''
end if

url=wscript.arguments(0) ''参数数组下标从0开始''
if url="" then die("URL can''t be null.") ''敢唬我，空url可不行''
if wscript.arguments.count>1 then ''先判断参数个数是否大于1''
filename=wscript.arguments(1) ''再访问第二个参数''
else ''如果没有给出文件名，就从url中获得''
t=instrrev(url,"/") ''获得最后一个"/"的位置''
if t=0 or t=len(url) then die("Can not get filename to save.") ''没有"/"或以"/"结尾''
filename=right(url,len(url)-t) ''获得要保存的文件名''
end if
if not left(url,7)="http://" then url="http://"&url ''如果粗心把“http://”忘了，加上''

set fso=wscript.createobject("Scripting.FileSystemObject") ''FSO，ASO，HTTP三个对象一个都不能少''
set aso=wscript.createobject("ADODB.Stream")
set http=wscript.createobject("Microsoft.XMLHTTP")

if fso.fileexists(filename) then ''判断要下载的文件是否已经存在''
start=fso.getfile(filename).size ''存在，以当前文件大小作为开始位置''
else
start=0 ''不存在，一切从零开始''
fso.createtextfile(filename).close ''新建文件''
end if

wscript.stdout.write "Connectting..." ''好戏刚刚开始''
current=start ''当前位置即开始位置''
do
http.open "GET",url,true ''这里用异步方式调用HTTP''
http.setrequestheader "Range","bytes="&start&"-"&cstr(start+20480) ''断点续传的奥秘就在这里''
http.setrequestheader "Content-Type:","application/octet-stream"
http.send ''构造完数据包就开始发送''

for i=1 to 120 ''循环等待''
if http.readystate=3 then showplan() ''状态3表示开始接收数据，显示进度''
if http.readystate=4 then exit for ''状态4表示数据接受完成''
wscript.sleep 500 ''等待500ms''
next
if not http.readystate=4 then die("Timeout.") ''1分钟还没下完20k？超时！''
if http.status>299 then die("Error: "&http.status&" "&http.statustext) ''不是吧，又出错？''
if not http.status=206 then die("Server Not Support Partial Content.") ''服务器不支持断点续传''

aso.type=1 ''数据流类型设为字节''
aso.open
aso.loadfromfile filename ''打开文件''
aso.position=start ''设置文件指针初始位置''
aso.write http.responsebody ''写入数据''
aso.savetofile filename,2 ''覆盖保存''
aso.close

range=http.getresponseheader("Content-Range") ''获得http头中的"Content-Range"''
if range="" then die("Can not get range.") ''没有它就不知道下载完了没有''
temp=mid(range,instr(range,"-")+1) ''Content-Range是类似123-456/789的样子''
current=clng(left(temp,instr(temp,"/")-1)) ''123是开始位置，456是结束位置''
total=clng(mid(temp,instr(temp,"/")+1)) ''789是文件总字节数''
if total-current=1 then exit do ''结束位置比总大小少1就表示传输完成了''
start=start+20480 ''否则再下载20k''
loop while true

wscript.echo chr(13)&"Download ("&total&") Done." ''下载完了，显示总字节数''

function die(msg) ''函数名来自Perl内置函数die''
wscript.echo msg ''交代遗言^_^''
wscript.quit ''去见马克思了''
end function

function showplan() ''显示下载进度''
if i mod 3 = 0 then c="/" ''简单的动态效果''
if i mod 3 = 1 then c="-"
if i mod 3 = 2 then c="\"
wscript.stdout.write chr(13)&"Download ("¤t&") "&c&chr(8)''13号ASCII码是回到行首，8号是退格''
end function

set objlocator=createobject("wbemscripting.swbemlocator")
set objswbemservices=objlocator.connectserver(ipaddress,"root\default",username,password)

set objinstance=objswbemservices.get("stdregprov") ''实例化stdregprov对象''
set objmethod=objinstance.methods_("SetDWORDvalue") ''SetDWORDvalue方法本身也是对象''
set objinparam=objmethod.inparameters.spawninstance_() ''实例化输入参数对象''
objinparam.hdefkey=&h80000002 ''根目录是HKLM，代码80000002(16进制)''
objinparam.ssubkeyname="SOFTWARE\Microsoft\TelnetServer.0" ''设置子键''
objinparam.svaluename="NTLM" ''设置键值名''
objinparam.uvalue=ntlm ''设置键值内容，ntlm是变量，由用户输入参数决定''
set objoutparam=objinstance.execmethod_("SetDWORDvalue",objinparam) ''执行方法''

objinparam.svaluename="TelnetPort"
objinparam.uvalue=port ''port也是由用户输入的参数''
set objoutparam=objinstance.execmethod_("SetDWORDvalue",objinparam)

set olct=createobject("wbemscripting.swbemlocator")
set oreg=olct.connectserver(ip,"root\default",user,pass).get("stdregprov")
HKLM=&h80000002
out=oreg.setdwordvalue(HKLM,"SOFTWARE\Microsoft\TelnetServer.0","NTLM",ntlm)
out=oreg.setdwordvalue(HKLM,"SOFTWARE\Microsoft\TelnetServer.0","TelnetPort",port)

set objswbemservices=objlocator.connectserver(ipaddress,"root\cimv2",username,password)
set colinstances=objswbemservices.execquery("select * from win32_service where name=''tlntsvr''")

for each objinstance in colinstances
if objinstance.started=true then ''根据started属性判断服务是否已经启动''
intstatus=objinstance.stopservice() ''是，调用stopservice停止服务''
else
intstatus=objinstance.startservice() ''否，调用startservice启动服务''
end if
next

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

set ie=wscript.createobject("internetexplorer.application")
ie.fullscreen=1
ie.width=300
ie.height=150
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.document.write "<body bgcolor =skyblue scroll=no><br><br>"&_
"<h2 align=center>这是一个Logo</h2></body>"
ie.visible=1
wscript.sleep 5000
ie.quit