⑴ 如何通過腳本開機自動添加dns
windows的IP設置就有兩種，靜態IP和動態IP，如果你設置靜態IP的話，DNS一並設置好之後，是不會變的，沒有必要通過開機腳本這種方式來添加。如果你設置動態IP的話，DNS也是動態獲取的，也無法通過手工來指定，更無從談起通過開機腳本來添加DNS了。
⑵ 網吧怎樣批量更改IP里的DNS
你是不是覺得每次網吧更換系統都很麻煩呢。所以想到這點晚上加了一個通宵的班做了一個自動修改計算機信息的腳本。希望給出意見
1，配置文件的名字不可以改動為：start.ini
1-7行的順序不要改動。。
配置文件的內容格式如下
實在太無聊了。現在來跟大家仔細說說吧
電腦名稱=A '這里呢是改成你計算機名的前面一個字母。
'有的網吧是分區來設置IP的這樣的就高重新改下腳本就可以達到這個目的了
子網掩碼=255.255.255.0
默認網關=192.168.0.1
首選 DNS=202.96.128.86
備用 DNS=202.96.128.166
內部網路號=00000000
路油 MAc=00-0F-E2-55-55-B6
這上面的七行大家都可以根據自己的配置和地區來改.
'注意內部網路號的話因該是一樣的所以應該不用改
MAX=00,19,e0,70,3e,b7 ip=192.168.0.175
MAX=00,19,e0,75,3e,b8 ip=192.168.0.178
MAX=00,19,e0,70,34,b8 ip=192.168.0.177
MAX=00,19,50,70,3e,b8 ip=192.168.0.174
MAX=00,19,e0,50,3e,b8 ip=192.168.0.173
MAX=00,19,e0,70,3e,b8 ip=192.168.0.172
MAX=00,19,40,70,3e,b8 ip=192.168.0.171
MAX=00,19,e0,50,37,b8 ip=192.168.0.170
MAX=00,49,e0,70,4e,b8 ip=192.168.0.174
MAX=00,19,e0,70,3e,b8 ip=192.168.0.175
MAX=40,19,e0,40,3e,b8 ip=192.168.0.179
這里的IP注意一定要按照排序來寫.中間有個空格大家別給丟了
'把上面保存為start.ini在加上你整個網吧的MAC地址及IP地址
'把下面保存為*.vbs放在ini配置文件同一目錄。
On Error Resume next '防止錯誤.如果有錯誤繼續執行下一條
dim macname,nfile,reip,mright
Dim nf,macs,fso,mins,WshShell
Dim arrDNSServers,colComputers
Dim ARP,GatewayIP,IPXV,myipname
Dim mnetmask,MDNS1,NDNS2'定義變數方便我們存放對象或是得到的返回值.也可以不定義,
'是養成習慣比叫好,因為腳本語言終究不是較高級的語言如果你以後想學別的語言的話
'都要嚴格按照每種語言的規定來定義常量,變數等
Set fso=CreateObject("scripting.filesystemobject") '引用一個文件系統類並且賦值的方式給變數FSO
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") '引用WMI命名空間CIMV2,一旦引用了
'WMI名空間那個我們就可以使用空間裡面存放的各種類,關於WMI的詳細資料請大家在論壇里下載
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") '這個是使用WQL
'查詢語句來查詢你想查詢的相關類的屬性並把返回值以一個對象的形式賦給一個變數.這樣我們
'就可以用FOR循環來檢測我們想要的屬性或方法了.WQL查詢有好多種,最常有的有非同步,半步等,
'在這里就不把話題拉開啦.只要你們知道就行了
'上面這句WQL的大體意思就是 查詢網卡等的相關屬性都在這個類里.這一個類就有幾十種屬性,
'沒種屬性都是不同的功能,我們就不每種都去說了
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem") 'WQL查詢返回一個系統用戶等相關屬性給一個對象變數
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")'WQL查詢
Set WshShell = WScript.CreateObject("WScript.Shell")' 引用一個SHELL
Set objquery=objWMIService.execquery _
("select * from Win32_NetworkAdapterConfiguration where index=8") 'WQL查詢
For Each objarray In objquery
macs=objarray.MACAddress '這里就是枚舉出NetworkAdapter....類的網卡屬性,還有別的很多屬性
'大家有興趣的自己在論壇下工具一個一個的看.沒個屬性都說得很清楚的
Next
macname=Replace(macs,":","-")'將得到本機的網卡地址中的[:]替換成[-],
'因為我本得到的格式為00:19:e5:b6:f4:2e這樣的格式
If fso.fileexists(".\start.ini")<>true Then MsgBox "配置文件不存在" '檢測配製文件是否存在
Set nf=fso.opentextfile(".\start.ini",1) '打開配製文件
If Err.number<>0 Then MsgBox "打開出錯":wscript.quit(1) '如果出現錯誤就提示，退出
Do While nf.AtEndOfStream<>True '當文件指針不是文件尾,因為我們文本是N多行和N多列組成的
'所以我們要用一個循環來讀取裡面的信息,打開文件的時候文件指針都是默認指向文件的第一行一列
'如果打開一個文件AtEndOfStream返回的是false的話呢表示這個這個指針不在文件尾如果返回TRUE
'那麼指針指向文件結尾..如果一個文本是空的話你打開的時候AtEndOfStream的返回值因該總是tRUE
nfile=UCase(nf.readline()) '一行一行讀入，為大寫
mins=InStr(nfile,macname) '檢測是否有網卡地址的存在
If mins=0 Or mins="" Or mins=Null Then '判斷是否讀到了網卡地址,如果=0 或是空又或是NULL
minstr=InstrRev(nfile,"=") '檢測讀入的一行裡面的=在這行最後出現的地方,不包括=返回一個數字
mright=Right(nfile,Len(nfile)-minstr) 'lan返回一整行的個數.在減去我們剛搜索的及↑面這條
i=i+1 '將I設置為一個循環記數器.將我們所循環的次數存在I裡面,
Select Case i '下面的是一個判斷語句,當i的值是下面其中的一個對應的話就執行相應的操作
Case 1 '電腦名稱
ocsname=mright
Case 2 '子網掩碼
mnetmask=mright
strSubnetMask = Array(mright)
Case 3 '默認網關
GatewayIP=mright
strGateway = Array(GatewayIP)
Case 4 '首選DNS
MDNS1=mright
Case 5 '備用DNS
NDNS2=mright
Case 6 '內部網路號
IPXV=mright
If IPXV="" Then IPXV="00000000"
Case 7 '路油綁定的MAC地址
ARP=mright
Case else
End Select '結束查詢語句select
arrDNSServers=Array(MDNS1,NDNS2) 'DNS '將DNS存放在一個數組裡面方便等下設置DNS
'的函數調用
else '這里值得注意的是 IF語句...記得看清楚哪個IF是個那個是一對
minstr=InstrRev(nfile,"=")
mright=Right(nfile,Len(nfile)-minstr)
myipname=mright'IP地址
strIPAddress = Array(myipname)
qname=InstrRev(mright,".")
ipright=Right(mright,Len(mright)-qname) '讀去IP的後面數字來做電腦名注意這里,如果你想IP等於192.168.0.2
'計算機名要等於 A001的話這里就減去1也就是myipname=mright-1
If ipright<10 Then '判斷如果讀得的數小去於10 就在前面加兩個00
mipname="00" & ipright
ElseIf ipright<100 Th
en'判斷如果讀得的數小去於100 就在前面加一個00
mipname="0" & ipright
ElseIf ipright>100 Or ipright <255 Then'判斷如果讀得的數大於100或等於<255不加
mipname=ipright '這里是讀得的計算機名
End If
End If
If mipname<>"" Then '判斷有沒讀到IP數據 '如果有執行變數
setcsname=ocsname & mipname '最後得到的電腦名稱 也就是START.INI讀到的前蕞加上IP的後面一個數值
End if
Loop
'這里是彈出開始
mybox=MsgBox("信息將改變如以下,是否執行修改呢?" _
&vbcrlf&"更改後的電腦名稱為 :"&setcsname&vbcrlf _
&"更改後的 IP 地址為 :" &myipname&vbcrlf&"更改後的子網掩碼為 :" _
&mnetmask&vbcrlf&"更改後的默認網關為 :" _
&Space(1)&GatewayIP&vbcrlf&"更改後的首選 DNS為 :" &MDNS1&vbcrlf _
&"更改後的備選 DNS為:"&NDNS2&vbcrlf&"更改後內部網路號為 :"&Space(2)&IPXV&vbcrlf _
&"物理網卡地址為 :" &ARP &vbcrlf&Space(6)&"將要綁定的ARP地址為 :" _
&vbcrlf&Space(2)&GatewayIP _
&" "&ARP,vbyesno,"『邁思技術論壇之腳本技術交流』")
'彈出到這里結束
If mybox=6 Then
'如過你不想彈出提示的話你就直接把mybox和IF刪除就可以了,但是如果你覺得還不夠你可以加代碼
myres colNetAdapters,colComputers,objNetworkSettings, _
WshShell,setcsname,arrDNSServers,strIPAddress, _
strSubnetMask,strGateway,IPXV,ARP,GatewayIP,myipname,macname '這里是給函數傳遞實際參數,
'就是把我們上面所讀到的文本我們想要的部分,按照函數的參數規定傳遞給函數,,這里的函數規定就是
'好像你上網的時候要設置IP,而且IP也不能隨便設置,,
Else
wscript.quit(1)
End if
下面才是真正的主題,下面就是這個自定義函數來設置各項操作,把得到的參數做你想得到的功能,
Function myres(colNetAdapterss,colComputerss,objNetworkSettingss, _
WshShells,setcsnames,arrDNSServerss,strIPAddresss, _
strSubnetMasks,strGateways,IPXVs,ARPs,GatewayIPs,myipnames,macss)
'這里我把對象也以參數的形式傳遞給這個函數,在函數內部來執行WQL返回的一個對象,,
For Each objComputer in colComputerss
objComputer.rename setcsnames
'上面是計算機名字
For Each objNetAdapter in colNetAdapterss
errDNS=objNetAdapter.SetDNSServerSearchOrder(arrDNSServerss)'設置DNS
errEnable = objNetAdapter.EnableStatic(strIPAddresss, strSubnetMasks)'設置IP
errGateways = objNetAdapter.SetGateways(strGateways, strGatewaymetric)'默認網關
Next
Next
objNetworkSettingss.SetIPXVirtualNetworkNumber(IPXVs)'設置內部網路號的
WShshells.run "cmd /c arp -d && arp -s " & GatewayIPs _ '這些都是綁定ARP如果不要可以刪掉
& Chr(32)& ARPs,0,True:WShshells.run "cmd /c arp -s " _
&myipnames & Chr(32) &macss,0,True '這里是路油ARP綁定.你只要在ATART.INI寫上路油的MAC地址就可以了
End function
⑶ 編寫Linux系統DNS主、從域名腳本，要求主域名要正反向都可以解析，當主
domain-name-servers配置項設置dns伺服器optiondomain-name-servers1.1.1.1,2.2.2.2;
⑷ 求大神弄個修改《寬頻連接》的TCP/IPv4 dns地址的批處理或VBS腳本！
@echo off
netsh interface ip set dnsservers name="寬頻連接" source=static address=192.168.0.1 mask=255.255.255.0
⑸ [VBS腳本]關於自動填寫IP地址，子網掩碼，網關，DNS!
把下面這一段取消，
Dim Num
Num=Inputbox ("程序員：youngye"+chr(10)&chr(13)+"QQ:355430413"+chr(10)&chr(13)+"必須是小於200以下的數字"+chr(10)&chr(13)+"請輸入機器號","楊鑠工作室")
dim Name
if Num<10 then
Name="XD00"
else
if Num<100 then
Name="XD0"
else
Name="XD"
end if
end if
改寫成
Name=XD00
就可以了。
⑹ 求win8設置IP地址和DNS腳本
微軟鍵+R----->CMD
cd\
con ipdns.bat
netsh interface ip set address name="本地連接" static 192.168.0.252 255.255.255.0 192.168.0.1 1
netsh interface ip add address name="本地連接" static 192.168.11.252 255.255.255.0 192.168.11.1 1
netsh interface ip set dns "本地連接" static 202.106.0.20
Ctrl+z
_____________________________________________
如果你的網路名稱不是「本地連接」 改為相應的就行。 11.252那個地址，如果不想設網關可以去掉後面的192.168.11.1那個網關。
可以將ipdns.bat拷到桌面上。每次運行就雙擊這個批處理就行了。
⑺ [求助]個修改dns的批處理
然後運行這個批處理就啟到了更改DNS的效果注意上面的文本文件只是一個腳本，不要把它和下面的批處理混淆起來，是兩個文件不要把上面的文本文件保存為BAT批處理文件
⑻ linux下dns負載均衡的腳本怎麼寫
答：
linux下的DNS一般是由bind來實現的，現在的版本應該是bind 10,具體的配置網上有很多，你可以看看！
⑼ 關於內網DNS設置
安裝DNS服務
開始—〉設置—〉控制面板—〉添加/刪除程序—〉添加/刪除Windows組件—〉「網路服務」—〉選擇「域名服務系統（DNS）」—〉按確定進行安裝
創建DNS正相解析區域
開始—〉程序—〉管理工具—〉選擇DNS，打開DNS控制台—〉右擊「正相搜索區域」—〉選擇「新建區域」—〉選擇「標准主要區域」（或「Active Directory 集成區域」或「標准輔助區域」）--〉輸入域名「abc.com」 —〉輸入要保存的區域的文件名「abc.com.dns」— 〉按完成，完成創建
創建主機記錄等：
右擊「abc.com」—〉「新建主機」 —〉在名稱處輸入「www」，在「IP地址」處輸入「192.168.0.3」，—〉按「添加主機」完成
創建DNS反向解析區域
開始—〉程序—〉管理工具—〉選擇DNS，打開DNS控制台—〉右擊「反向搜索區域」—〉選擇「新建區域」—〉選擇「標准主要區域」—〉輸入用來標示區域的「網路ID」—〉輸入要保存的區域的文件名「0.168.192.in-addr.arpa.dns」—〉按完成，完成創建
創建指針PTR：
右擊「192.168.1.x.subnet」—〉選擇「新建指針」—〉在「主機IP號」中輸入2—〉在「主機名」中輸入ftp—按 「確定」完成添加
啟用DNS循環復用功能
如www.abc.com對應於多個IP地址時DNS每次解析的順序都不同
右擊選擇「DNS伺服器」—〉屬性—〉高級—〉選擇「啟用循環」（round robin）--〉選擇「啟用netmask 排序」—〉按「 確定」返回
註：如所有的IP和域名伺服器在同一子網時需要取消「啟用netmask排序」，才能實現循環復用功能。即啟用循環時 ，當主機的IP和dns在同一個子網時將始終排在最前面，當都在一個子網時就不進行循環，只有去除了「啟用netmask排序」 時才能實現循環復用。
DNS伺服器會優先把與自己的網路ID相同的記錄返回給客戶端
創建標准輔助區域，實現DNS區域復制
在另一台DNS伺服器上，右擊「正向搜索區域」—〉選擇「新建區域」—〉選擇「標准輔助區域」—〉輸入「abc.com」—〉輸入主域名伺服器的IP地址—〉選擇「完成」
可手工要求同步：
在輔域名伺服器上右擊「abc.com」的域—〉選擇「從主伺服器傳輸」
並且可以設置允許傳輸的域名伺服器：
在主域名伺服器上右擊「abc.com」的域—〉選擇「屬性」—〉選擇「區域復制」—〉在「允許復制」前打勾，並選擇允許復制的主機（到所有伺服器、只有在「名稱伺服器」選項卡中列出的伺服器、只允許到下列伺服器）
完成伺服器類型的轉換：
右擊區域—〉選擇 「屬性」—〉選擇「類型」的「更改」按鈕—〉選擇要更改的區域類 型—〉按「確定」
實現DNS唯高速緩存伺服器
創建一個沒有任何區域的DNS伺服器—〉右擊DNS伺服器—〉選擇「屬性」—〉選擇「轉 發器」中的「啟用轉發器」—〉輸入轉發器的IP地址—〉按「確定」完成
清除「唯高速緩存」中的cache內容：
右擊「DNS伺服器」—〉選擇「清除緩存」
或者選擇「DNS伺服器」—〉在菜單中選擇「查看」，高級—〉右擊「緩存的查找」—〉選擇「清除緩存」
（客戶端清空DNS緩存—）ipconfig /flushdns）
DNS的委派（子域的轉向）
在原域名伺服器上建立「subdomain.abc.com」的主機—〉右擊abc.com的域，選擇「新建委派」—〉將subdomain.abc.com的域代理給subdomain.abc.com的主機—〉在subdomain.abc.com上建立「正向標准區域」subdomain.abc.com—〉添加相關主機記錄
設置 DNS區域的動態更新
右擊選擇DNS上區域—〉選擇「屬性」—〉選擇「常規」中的「允許動態更新」，選是— 〉然後按 「確定」—〉在本機的DHCP伺服器中—〉右擊選擇DHCP伺服器—〉選擇「屬性」—〉選擇「DNS」—〉選擇「為不支持動態更新的DNS客戶啟用更新」—〉在客戶端使用ipconfig /registerdns來更新域名的注冊信息
注意客戶端需要將完整的計算機名改成myhost.abc.com
配置DNS客戶端
在客戶端計算機上打開tcp/ip屬性對話框，在dns伺服器地址欄輸入dns伺服器的ip地址
手工配置最多可配置12個 DNS伺服器 .