螞蟻礦機如何批量更改dns

A. 我有一批伺服器更改了網路環境，需要批量修改IP。現在需要寫一個批量遠程修改IP的批處理腳本。請問如何寫

ChangeIP "192.168.1.2", "255.255.255.0", "192.168.1.1", "192.168.1.1", "192.168.2.1"

'Function ChangeIP (IP As String,NM As String,GW As String,MDNS As String,SDNS As String) As String
Function ChangeIP (IP,NM,GW,MDNS,SDNS) '其中IP,NM,GW,MDNS,SDNS為字元串類型
'返回值說明:返回一個設置的中文說明.
Dim strComputer,objWMIService,colNetAdapters,strIPAddress,strSubnetMask
Dim strGateway,strGatewaymetric,strDNS,objNetAdapter,errEnable,errGateways,errDNS
strComputer = "."
Set objWMIService = GetObject( "winmgmts:\\" & strComputer & "\root\cimv2" )
Set colNetAdapters = objWMIService.ExecQuery( "Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE ")
strIPAddress = Array(IP) 'ip地址
strSubnetMask = Array(NM) '子網掩碼
strGateway = Array(GW) '網關
strDNS = Array(MDNS,SDNS) '主DNS各備DNS
strGatewaymetric = Array(1)

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)
If errEnable = 0 And errGateways = 0 And errDNS = 0 Then
ChangeIP = "設置成功 "
Else
If errEnable = 0 Then
ChangeIP = "IP地址和子網掩碼設置成功, "
Else
ChangeIP = "IP地址或子網掩碼設置失敗, "
End If
If errGateways = 0 Then
ChangeIP = ChangeIP & "默認網關設置成功, "
Else
ChangeIP = ChangeIP & "默認網關設置失敗, "
End If
If errDNS = 0 Then
ChangeIP = ChangeIP & "DNS設置成功 "
Else
ChangeIP = ChangeIP & "DNS設置失敗 "
End If
End If
Next

End Function

B. 網吧怎樣批量更改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

C. 螞蟻礦機s913.5t怎麼超頻

。

D. 怎麼樣批量修改DNS

1，點擊控制面板，點擊網路和internet

2，進入後點擊更改適配器設置，右鍵「無線網路連接」選擇「屬性」

3，在：「此連接使用下列項目」中把「internet協議（TCP/IPV6）」前面的「對號」去掉

4，雙擊 「internet協議（TCP/IPV4）」,出現屬性對話框自動獲取IP地址不變
5，DNS地址：選擇「使用下面的DNS伺服器地址」，手動填寫DNS伺服器地址，首選為211.137.191.26；備用為218.201.96.130

E. 螞蟻礦機s9k可以同時挖兩種幣嗎怎麼設置的。

螞蟻礦機S9是一部比特幣礦機，比特幣的演算法是SHA-256，所以只要是基於比特幣演算法的數字貨幣，螞蟻礦機都可以挖。但是像以太幣或者萊特幣這種其他演算法的貨幣螞蟻礦機S9就不能挖了。
螞蟻礦機S9是目前比較成熟使用比較多的挖幣機器，它的優點在於它的質量好，挖幣簡單穩定容易上手，只要將電源線接通之後就可以使用了。

F. DHCP伺服器怎麼批量更改作用域的DNS地址呀

不管是路由器還是伺服器，肯定都是可以通過編程來解決的，至於說怎麼寫這個肯定是根據實際情況來寫的，你可以寫一條怎麼改，然後做個循環，加點邏輯就成了，這就是自動化運維。

G. 如何設置礦機

礦池連接之前，需要知道礦機ip。通過礦機ip來登錄設置。不同礦機的ip獲取方法不一樣。螞蟻礦機可以下載IPreport獲取。

H. 一台螞蟻礦機s9在路由器怎樣設置

1
如果線都已經接好．我們這個時候隨便打開一台連好的ＰＣ電腦．打開網上鄰居屬性
2
然後打開本地連接屬性
3
然後打開tcp/ip協議屬性

I. 如何設置bind dns slave 不用寫入zone 批量獲取master zone

Linux下常用的DNS服務軟體是BIND 以下是一個配置DNS服務的實例： ………………………………………………DNS的配置步驟：…………………………………………………… 一、配置靜態IP地址： #vi /etc/sysconfig/network-scripts/ifcfg-eth0 DEVICE=eth0 BOOTPROTO=static ONBOOT=yes IPADDR=192" { （指定本地域） type master; file "benet /var/named/benet" { type slave; （type設置為「slave」，表示當前DNS伺服器是該域的從域名伺服器類型 ） file "slaves/benet域中的A記錄 > host1 測試benet域中的CNAME記錄 > 測試benet 測試benet 設置進行A記錄的測試 > set type=a （設置域名查詢類型為A即地址記錄） >mail 3、使用dig測試DNS伺服器 （dig只運行在liunx平台，是domain information grep的縮寫） 1）#dig --help dig命令的格式 Usage: dig [@global-server] [domain] [q-type] [q-class] {q-opt} {global-d-opt} host [@local-server] {local-d-opt} [ host [@local-server] {local-d-opt} [ （@後是被查詢的DNS伺服器的IP地址，benet ;; global options: printcmd ;; Got answer: ;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 51201 ;; flags: qr aa rd ra; QUERY: 1, ANSWER: 0, AUTHORITY: 1, ADDITIONAL: 0 ;; QUESTION SECTION: ;benet域為實例講解………………