屏蔽端口的vbs腳本
更新時(shí)間：2010年04月17日 11:52:10 作者：
有時(shí)候服務(wù)器為了安全只允許訪問(wèn)的端口加到TCP/IP篩選里面，其它的端口將無(wú)法訪問(wèn)。這里的代碼就是為了這樣的功能實(shí)現(xiàn)。
復(fù)制代碼 代碼如下:
'On Error Resume Next
Const ALLOW_ALL = 0
Port = Array("4900", "5000", "5100", "5500", "5600", "6000", "7000", "7100", "7200", "7300", "7400","3389","80")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard In colNetCards
arrPermittedTCPPorts = Port
arrPermittedUDPPorts = Array(ALLOW_ALL)
arrPermittedIPProtocols = Array(ALLOW_ALL)
objNetCard.EnableIPSec arrPermittedTCPPorts, arrPermittedUDPPorts, arrPermittedIPProtocols
Next
執(zhí)行以后，到
網(wǎng)上鄰居--》右鍵--》屬性--》本地連接--》常規(guī)--》Internet 協(xié)議(TCP/IP)-->屬性--》高級(jí)--》選項(xiàng)--》TCP/IP篩選--》屬性--》只允許 里面即可看到如下圖。
上面的代碼只是個(gè)例子，服務(wù)器上不要運(yùn)行啊，如果要設(shè)置服務(wù)器，請(qǐng)到腳本之家服務(wù)器軟件下載中心，查看相關(guān)教材。
您可能感興趣的文章:
- javascript屏蔽右鍵代碼
- jquery禁用右鍵單擊功能屏蔽F5刷新
- 屏蔽網(wǎng)頁(yè)右鍵復(fù)制和ctrl+c復(fù)制的js代碼
- 屏蔽Flash右鍵信息的js代碼
- 網(wǎng)頁(yè)屏蔽(左右鍵,代碼等)的非JS方法
- vbs之使用Internet Explorer 屏蔽密碼
- vbs屏蔽鍵盤(pán)按鍵
- VB使用XMLHTTP實(shí)現(xiàn)Post與Get的方法
- VB讀取線程、句柄及寫(xiě)入內(nèi)存的API代碼實(shí)例
- VB實(shí)現(xiàn)的倒計(jì)時(shí)類(lèi)代碼詳解
- VB調(diào)用Word拼寫(xiě)檢查功能實(shí)例
- VB實(shí)現(xiàn)屏蔽文本框右鍵菜單的復(fù)制、粘貼等功能的方法
相關(guān)文章
VBS教程：正則表達(dá)式簡(jiǎn)介 -早期起源...2006-11-11
VBS教程：VBScript 基礎(chǔ)-VBScript 變量
VBScript只有一種數(shù)據(jù)類(lèi)型 —— Variant，它是根據(jù)上下文來(lái)判斷是數(shù)字還是字符串。因?yàn)閂ariant是VBScript中唯一的數(shù)據(jù)類(lèi)型，所以它也是VBScript中所有函數(shù)的返回值的數(shù)據(jù)類(lèi)型2006-11-11
VBS 腳本中的字典、動(dòng)態(tài)數(shù)組、隊(duì)列和堆棧實(shí)現(xiàn)代碼
今天用VBS腳本寫(xiě)了幾個(gè)程序，用到了字典（Dictionary）、動(dòng)態(tài)數(shù)組（ArrayList）、隊(duì)列（Queue）和堆棧（Stack）?，F(xiàn)在寫(xiě)篇Blog總結(jié)一下 ,需要的朋友可以參考下2018-05-05
VBS教程：函數(shù)-SetLocale 函數(shù)
VBS教程：函數(shù)-SetLocale 函數(shù)...2006-11-11
vbscript自動(dòng)配置IIS的代碼...2007-03-03
vbs Windows系統(tǒng)改變或修改網(wǎng)卡的MAC地址的腳本與軟件
這個(gè)文件比程序本身還大，感覺(jué)不爽，于是本人的VBS版MAC修改代碼便誕生了,在使用過(guò)程中如果出現(xiàn)不能上網(wǎng)的情況得返回一下網(wǎng)卡驅(qū)動(dòng)（有些機(jī)器比較特別）2008-07-07
飄葉千夫指源代碼，又稱(chēng)qq刷屏器...2006-10-10
vbs 自動(dòng)復(fù)制U盤(pán)的內(nèi)容
運(yùn)行后當(dāng)把U盤(pán)插入電腦后能夠自動(dòng)把U盤(pán)里的PPT偷拷下來(lái)。下面用記事本就能實(shí)現(xiàn)的批處理或vbs。2009-12-12
使用 Iisext.vbs 列出Web服務(wù)擴(kuò)展的方法
這篇文章主要介紹了如何使用 iisext.vbs 在本地或遠(yuǎn)程計(jì)算機(jī)上列出 Web 服務(wù)擴(kuò)展,需要的朋友可以參考下2014-07-07
使用 Iisftp.vbs 創(chuàng)建FTP站點(diǎn)的方法
Iisftp.vbs 使用的默認(rèn)屬性與 IIS 管理器在建立新的 FTP 站點(diǎn)時(shí)使用的屬性相同，并且它遵循相同的繼承屬性規(guī)則。要配置 FTP 站點(diǎn)的更多高級(jí)屬性，請(qǐng)使用 IIS 管理器2014-07-07