使用vbs刪除host文件域址內(nèi)容
要求:原先host里面已增加以下3行
202.102.101.105 intranet.corp
202.102.101.107 mail.intranet.corp
202.102.101.108 sip.intranet.corp
之后不需要此3行內(nèi)容,所以運(yùn)行以上vbs代碼,來(lái)刪除host文件此3行
'該腳本要求執(zhí)行用戶有本地管理員權(quán)限 Const ForReading = 1, ForWriting = 2, ForAppending = 8, ReadOnly = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell=CreateObject("WScript.Shell") 'WinDir 為windows安裝目錄 WinDir =WshShell.ExpandEnvironmentStrings("%WinDir%") '設(shè)定host 文件目錄 HostsFile = WinDir & "\System32\Drivers\etc\Hosts" '檢查host文件是否為只讀,如為只讀,則修改文件屬性 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(HostsFile) If objFile.Attributes And ReadOnly Then objFile.Attributes = objFile.Attributes Xor ReadOnly End If Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(HostsFile, ForReading,true) '檢查host文件里面是否已經(jīng)更改過(guò)了,如果更改過(guò),則不再執(zhí)行腳本 hostfileline="" Do Until objFile.AtEndOfStream strline = objfile.ReadLine If InStr (strline, "202.102.101.105") <> 0 Or (InStr (strline, "202.102.101.107"))<>0 Or (InStr (strline, "202.102.101.108")) Then strline="" End If hostfileline=hostfileline+vbCrLf+strline Loop WScript.Echo hostfileline objFile.Close '修改host文件 Set filetxt = fso.OpenTextFile(HostsFile, ForWriting ) filetxt.Write hostfileline filetxt.Close WScript.Quit
相關(guān)文章
VBS 硬盤(pán)讀寫(xiě)統(tǒng)計(jì)(分區(qū)讀寫(xiě)統(tǒng)計(jì))
用vbs實(shí)現(xiàn)的硬盤(pán)讀寫(xiě)統(tǒng)計(jì)(分區(qū)讀寫(xiě)統(tǒng)計(jì))的實(shí)現(xiàn)代碼,想學(xué)習(xí)vbs的朋友可以參考下2013-01-01VBS教程:對(duì)象-正則表達(dá)式(RegExp)對(duì)象
RegExp對(duì)象在VBScript中提供正則表達(dá)式支持功能,該對(duì)象有3個(gè)屬性和3個(gè)方法2006-11-11WMI IE代理 切換或改變(Use WMI Change IE Proxy)
把你弄到的代理都寫(xiě)在一個(gè)文本文件里(IP.txt),格式是一行一個(gè): ip:端口2008-12-12vbs shellcode轉(zhuǎn)換escape加密
用vbs轉(zhuǎn)換加密代碼2008-05-05