小編給大家分享一下VBS各種應(yīng)用中比較實用小代碼有哪些，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),港口企業(yè)網(wǎng)站建設(shè),港口品牌網(wǎng)站建設(shè),網(wǎng)站定制,港口網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,港口網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

VBS應(yīng)用- -                                        

VBS腳本病毒的大量流行使我們對VBS的功能有了一個全新的認(rèn)識，現(xiàn)在大家對它也開始重視起來。VBS代碼在本地是通過Windows Script Host(WSH)解釋執(zhí)行的。VBS腳本的執(zhí)行離不開WSH，WSH是微軟提供的一種基于32位Windows平臺的、與語言無關(guān)的腳本解釋機(jī)制，它使得腳本能夠直接在Windows桌面或命令提示符下運行。利用WSH，用戶能夠操縱WSH對象、ActiveX對象、注冊表和文件系統(tǒng)。在Windows 2000下，還可用WSH來訪問Windows NT活動目錄服務(wù)。 

用VBS編寫的腳本程序在窗口界面是由wscript.exe文件解釋執(zhí)行的，在字符界面由cscript.exe文件解釋執(zhí)行。wscript.exe是一個腳本語言解釋器，正是它使得腳本可以被執(zhí)行，就象執(zhí)行批處理一樣。關(guān)于VBS大家一定比我熟悉多了，所以再不廢話，直接進(jìn)入主題，看看我總結(jié)的VBS在系統(tǒng)安全中的八則妙用吧。 

一、給注冊表編輯器解鎖 

用記事本編輯如下內(nèi)容： 

DIM WSH 
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") '擊活WScript.Shell對象 
WSH.POPUP("解鎖注冊表編輯器!") 
'顯示彈出信息“解鎖注冊表編輯器!” 
WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion 
\Policies\System\DisableRegistryTools",0,"REG_DWORD" 
'給注冊表編輯器解鎖 
WSH.POPUP("注冊表解鎖成功!") 
'顯示彈出信息“注冊表解鎖成功!” 
保存為以.vbs為擴(kuò)展名的文件，使用時雙擊即可。 

二、關(guān)閉Win NT/2000的默認(rèn)共享 

用記事本編輯如下內(nèi)容：  

Dim WSHShell'定義變量 
set WSHShell=CreateObject("WScript.shell") '創(chuàng)建一個能與操作系統(tǒng)溝通的對象WSHShell 
Dim fso,dc 
Set fso=CreateObject("Scripting.FileSystemObject")'創(chuàng)建文件系統(tǒng)對象  
set dc=fso.Drives '獲取所有驅(qū)動器盤符 
For Each d in dc  
Dim str  
WSHShell.run("net share"&d.driveletter &"$ /delete")'關(guān)閉所有驅(qū)動器的隱藏共享 
next  
WSHShell.run("net share admin$ /delete") 
WSHShell.run("net share ipc$ /delete")'關(guān)閉admin$和ipc$管道共享 

現(xiàn)在來測試一下，先打開cmd.exe，輸入net share命令就可以看到自己機(jī)子上的共享。雙擊執(zhí)行stopshare.vbs后，會看見窗口一閃而過。然后再在cmd里輸入net share命令，這時候沒有發(fā)現(xiàn)共享列表了 

三、顯示本機(jī)IP地址 

有許多時候，我們需要知道本機(jī)的IP地址，使用各種軟件雖然可以辦到，但用VBS腳本也非常的方便。用記事本編輯如下內(nèi)容： 

Dim WS 
Set WS=CreateObject("MSWinsock.Winsock") 
IPAddress=WS.LocalIP 
MsgBox "Local IP=" & IPAddress 

 將上面的內(nèi)容保存為ShowIP.vbs，雙擊執(zhí)行即可得到本機(jī)IP地址。 

四、利用腳本編程刪除日志 

入侵系統(tǒng)成功后黑客做的第一件事便是清除日志，如果以圖形界面遠(yuǎn)程控制對方機(jī)器或是從終端登陸進(jìn)入，刪除日志不是一件困難的事，由于日志雖然也是作為一種服務(wù)運行，但不同于http,ftp這樣的服務(wù)，可以在命令行下先停止，再刪除，在命令行下用net stop eventlog是不能停止的，所以有人認(rèn)為在命令行下刪除日志是很困難的，實際上不是這樣，比方說利用腳本編程中的VMI就可以刪除日志，而且非常的簡單方便。源代碼如下： 

strComputer= "." 
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate,(Backup)}!\\" & _ 
strComputer & "\root\cimv2") 
dim mylogs(3) 
mylogs(1)="application" 
mylogs(2)="system" 
mylogs(3)="security" 
for Each logs in mylogs 
Set colLogFiles=objWMIService.ExecQuery _ 
("Select * from Win32_NTEventLogFile where LogFileName='"&logs&"'") 
For Each objLogfile in colLogFiles  
objLogFile.ClearEventLog()  
Next 
next 

將上面的代碼保存為cleanevent.vbs文件即可。在上面的代碼中，首先獲得object對象，然后利用其clearEventLog()方法刪除日志。建立一個數(shù)組，application,security,system，如果還有其他日志也可以加入數(shù)組。然后用一個for循環(huán)，刪除數(shù)組中的每一個元素，即各個日志。 

五、利用腳本偽造日志 

刪除日志后，任何一個有頭腦的管理員面對空空的日志，馬上就會反應(yīng)過來被入侵了，所以一個聰明的黑客的學(xué)會如何偽造日志。利用腳本編程中的eventlog方法創(chuàng)造日志非常簡單，請看下面的代碼： 

set ws=wscript.createobject("Wscript.shell") 
ws.logevent 0 ,"write log success" '創(chuàng)建一個成功執(zhí)行日志 

將上面的代碼保存為createlog.vbs即可。這段代碼很容易理解，首先獲得wscript的一個shell對象，然后利用shell對象的logevent方法。logevent的用法：logevent eventtype,"description" [,remote system]，其中eventtype為日志類型，可以使用的參數(shù)如下：0代表成功執(zhí)行，1執(zhí)行出錯，2警告，4信息，8成功審計，16故障審計。所以上面代碼中，把0改為1,2,4,8,16均可，引號中的內(nèi)容為日志描述。利用這種方法寫的日志有一個缺點，即只能寫到應(yīng)用程序日志，而且日志來源只能為WSH，即Windows Scripting Host，所以不能起太多的隱蔽作用，在此僅供大家參考。 

六、禁用開始菜單選項 

用記事本編輯如下內(nèi)容： 

Dim ChangeStartMenu  
Set ChangeStartMenu=WScript.CreateObject("WScript.Shell")  
RegPath="HKCR\Software\Microsoft\Windows\CurrentVersion\Policies\"  
Type_Name="REG_DWORD"  
Key_Data=1  
  
StartMenu_Run="NoRun"  
StartMenu_Find="NoFind"  
StartMenu_Close="NoClose"  
  
Sub Change(Argument)  
ChangeStartMenu.RegWrite RegPath&Argument,Key_Data,Type_Name  
MsgBox("Success!")  
End Sub  
  
Call Change(StartMenu_Run) '禁用“開始”菜單中的“運行”功能  
Call Change(StartMenu_Find) '禁用“開始”菜單中的“查找”功能  
Call Change(StartMenu_Close) '禁用“開始”菜單中的“關(guān)閉系統(tǒng)”功能 

將以上代碼保存為ChangeStartMenu.vbs文件，使用時雙擊即可。 

七、執(zhí)行外部程序 

用記事本編輯如下內(nèi)容： 

DIM objShell 
set objShell=wscript.createObject("wscript.shell") 
iReturn=objShell.Run("cmd.exe /C set var=world", 1, TRUE) 

保存為.vbs文件即可。在這段代碼中，我們首先設(shè)置了一個環(huán)境變量，其名為var，而值為world，用戶可以使用%Comspec%來代替cmd.exe，并且可以把命令：set var=world改成其它的命令，這樣就可以使它可以運行任意的命令。 

八、重新啟動指定的IIS服務(wù) 

用記事本編輯如下內(nèi)容： 

Const ADS_SERVICE_STOPPED = 1 
Set objComputer = GetObject("WinNT://MYCOMPUTER,computer") 
Set objService = objComputer.GetObject("Service","MYSERVICE") 
If (objService.Status = ADS_SERVICE_STOPPED) Then 
objService.Start 
End If 

將它以startsvc.vbs為名保存在C盤根目錄。并通過如下命令執(zhí)行：cscript c:\startsvc.vbs。運行后，經(jīng)你指定的IIS服務(wù)項將被重新開啟。 

最后，我們再說說開篇時提到的VBS腳本病毒的防范方法。VBS病毒的執(zhí)行離不開WSH，在帶給人們便利的同時，WSH也為病毒的傳播留下可乘之機(jī)。所以要想防范VBS病毒，可以選擇將WSH卸載，只要打開控制面板，找到“添加/刪除程序”，點選“Windows安裝程序”，再鼠標(biāo)雙擊其中的“附件”一項，然后再在打開的窗口中將“Windows Scripting Host”一項的“√”去掉，然后連續(xù)點兩次“確定”就可以將WSH卸載。或者，你也可以點擊“我的電腦”→“查看”→“文件夾選項”，在彈出的對話框中，點擊“文件類型”，然后刪除VBS、VBE、JS、JSE文件后綴名與應(yīng)用程序的映射，都可以達(dá)到防范VBS腳本病毒的目的。

以上是“VBS各種應(yīng)用中比較實用小代碼有哪些”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

本文標(biāo)題：VBS各種應(yīng)用中比較實用小代碼有哪些-創(chuàng)新互聯(lián)
標(biāo)題URL：http://www.rwnh.cn/article38/ceghpp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供面包屑導(dǎo)航、網(wǎng)站設(shè)計、商城網(wǎng)站、用戶體驗、微信小程序、全網(wǎng)營銷推廣

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)