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                     '至少要有一個參數(shù)'
  die("Usage: cscript webdl.vbs url [filename]")         '麻雀雖小五臟俱全，Usage不能忘'
end if

url=wscript.arguments(0)                           '參數(shù)數(shù)組下標(biāo)從0開始'
if url="" then die("URL can't be null.")               '敢唬我，空url可不行'
if wscript.arguments.count>1 then                     '先判斷參數(shù)個數(shù)是否大于1'
  filename=wscript.arguments(1)                     '再訪問第二個參數(shù)'
else                                       '如果沒有給出文件名，就從url中獲得'
  t=instrrev(url,"/")                           '獲得最后一個"/"的位置'
  if t=0 or t=len(url) then die("Can not get filename to save.")   '沒有"/"或以"/"結(jié)尾'
  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                     '判斷要下載的文件是否已經(jīng)存在'
  start=fso.getfile(filename).size                   '存在，以當(dāng)前文件大小作為開始位置'
else
  start=0                                   '不存在，一切從零開始'
  fso.createtextfile(filename).close                 '新建文件'
end if

wscript.stdout.write "Connectting..."                 '好戲剛剛開始'
current=start                                 '當(dāng)前位置即開始位置'
do
  http.open "GET",url,true                         '這里用異步方式調(diào)用HTTP'
  http.setrequestheader "Range","bytes="&start&"-"&cstr(start+20480) '斷點續(xù)傳的奧秘就在這里'
  http.setrequestheader "Content-Type:","application/octet-stream"
  http.send                                   '構(gòu)造完數(shù)據(jù)包就開始發(fā)送'

  for i=1 to 120                               '循環(huán)等待'
    if http.readystate=3 then showplan()               '狀態(tài)3表示開始接收數(shù)據(jù)，顯示進(jìn)度'
    if http.readystate=4 then exit for               '狀態(tài)4表示數(shù)據(jù)接受完成'
    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.") '服務(wù)器不支持?jǐn)帱c續(xù)傳'

  aso.type=1                                 '數(shù)據(jù)流類型設(shè)為字節(jié)'
  aso.open
  aso.loadfromfile filename                       '打開文件'
  aso.position=start                             '設(shè)置文件指針初始位置'
  aso.write http.responsebody                       '寫入數(shù)據(jù)'
  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是結(jié)束位置'
  total=clng(mid(temp,instr(temp,"/")+1))               '789是文件總字節(jié)數(shù)'
  if total-current=1 then exit do                   '結(jié)束位置比總大小少1就表示傳輸完成了'
  start=start+20480                             '否則再下載20k'
loop while true

wscript.echo chr(13)&"Download ("&total&") Done."         '下載完了，顯示總字節(jié)數(shù)'

function die(msg)                               '函數(shù)名來自Perl內(nèi)置函數(shù)die'
wscript.echo msg                               '交代遺言^_^'
wscript.quit                                   '去見馬克思了'
end function

function showplan()                             '顯示下載進(jìn)度'
if i mod 3 = 0 then c="/"                         '簡單的動態(tài)效果'
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_() '實例化輸入?yún)?shù)對象'
objinparam.hdefkey=&h80000002                   '根目錄是HKLM，代碼80000002(16進(jìn)制)'
objinparam.ssubkeyname="SOFTWARE/Microsoft/TelnetServer.0"   '設(shè)置子鍵'
objinparam.svaluename="NTLM"       '設(shè)置鍵值名'
objinparam.uvalue=ntlm           '設(shè)置鍵值內(nèi)容，ntlm是變量，由用戶輸入?yún)?shù)決定'
set objoutparam=objinstance.execmethod_("SetDWORDvalue",objinparam) '執(zhí)行方法'

objinparam.svaluename="TelnetPort"
objinparam.uvalue=port           'port也是由用戶輸入的參數(shù)'
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         '根據(jù)started屬性判斷服務(wù)是否已經(jīng)啟動'
    intstatus=objinstance.stopservice()     '是，調(diào)用stopservice停止服務(wù)'
  else
    intstatus=objinstance.startservice()     '否，調(diào)用startservice啟動服務(wù)'
  end if
next

set ie=wscript.createobject("internetexplorer.application","event_")   '創(chuàng)建ie對象'
ie.menubar=0                                       '取消菜單欄'
ie.addressbar=0                                     '取消地址欄'
ie.toolbar=0                                       '取消工具欄'
ie.statusbar=0                                       '取消狀態(tài)欄'
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                                 '以下調(diào)用document.write方法，'
.write "<html><body bgcolor=#dddddd scroll=no>"             '寫一段html到ie窗口中。'
.write "<h2 align=center>遠(yuǎn)程清除系統(tǒng)日志</h2><br>"
.write "<p>目標(biāo)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>應(yīng)用程序 "             '的對象及其屬性、方法都可以使用。'
.write "<input id=sys type=checkbox>系統(tǒng) "
.write "<input id=sec type=checkbox>安全"                 '訪問這些對象的辦法和網(wǎng)頁中訪問'
.write "<p align=center><br>"                         '框架內(nèi)對象是類似的。'
.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                       '設(shè)置wnd為窗口對象'
set id=ie.document.all                             '設(shè)置id為document中全部對象的集合'
id.confirm.onclick=getref("confirm")                     '設(shè)置點擊"確定"按鈕時的處理函數(shù)'
id.cancel.onclick=getref("cancel")                     '設(shè)置點擊"取消"按鈕時的處理函數(shù)'

do while true                                   '由于ie對象支持事件，所以相應(yīng)的，'
wscript.sleep 200                                 '腳本以無限循環(huán)來等待各種事件。'
loop

sub event_onquit                                 'ie退出事件處理過程'
wscript.quit                                     '當(dāng)ie退出時，腳本也退出'
end sub

sub cancel                                     '"取消"事件處理過程'
ie.quit                                       '調(diào)用ie的quit方法，關(guān)閉IE窗口'
end sub                                       '隨后會觸發(fā)event_onquit，于是腳本也退出了'

sub confirm                                     '"確定"事件處理過程，這是關(guān)鍵'
with id
if .ip.value="" then .ip.value="."                     '空ip值則默認(rèn)是對本地操作'
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")           '創(chuàng)建服務(wù)器定位對象'
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服務(wù)器失敗")                       '這里只是簡單的顯示“失敗”'
  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