VBS腳本對(duì)于很多人來(lái)說(shuō)都是很陌生的名詞,但是今天小編就給大家講解這一陌生的名詞在系統(tǒng)安全中的妙用吧.很多專業(yè)人員都明白,用VBS編寫的腳本程序在窗口界面是由wscript.exe文件解釋執(zhí)行的，在字符界面由cscript.exe文件解釋執(zhí)行。wscript.exe是一個(gè)腳本語(yǔ)言解釋器，正是它使得腳本可以被執(zhí)行，就象執(zhí)行批處理一樣。

　　一、給注冊(cè)表編輯器解鎖

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

　　DIM WSH

　　SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") '擊活WScript.Shell對(duì)象

　　WSH.POPUP("解鎖注冊(cè)表編輯器!")

　　'顯示彈出信息“解鎖注冊(cè)表編輯器!”

　　1. WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\

　　DisableRegistryTools",0,"REG_DWORD"

　　'給注冊(cè)表編輯器解鎖

　　WSH.POPUP("注冊(cè)表解鎖成功!")

　　'顯示彈出信息“注冊(cè)表解鎖成功!”

　　保存為以.vbs為擴(kuò)展名的文件，使用時(shí)雙擊即可。

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

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

　　Dim WSHShell'定義變量

　　set WSHShell=CreateObject("WScript.shell") '創(chuàng)建一個(gè)能與操作系統(tǒng)溝通的對(duì)象WSHShell

　　Dim fso,dc

　　Set fso=CreateObject("Scripting.FileSystemObject")'創(chuàng)建文件系統(tǒng)對(duì)象

　　set dc=fso.Drives '獲取所有驅(qū)動(dòng)器盤符

　　For Each d in dc

　　Dim str

　　WSHShell.run("net share"&d.driveletter &"$ /delete")'關(guān)閉所有驅(qū)動(dòng)器的隱藏共享

　　next

　　WSHShell.run("net share admin$ /delete")

　　WSHShell.run("net share ipc$ /delete")'關(guān)閉admin$和ipc$管道共享

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

　　1. New Roman">

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

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

　　1. Dim WS

　　2. Set WS=CreateObject("MSWinsock.Winsock")

　　3. IPAddress=WS.LocalIP

　　4. MsgBox "Local IP=" & IPAddress

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