用VBS設置靜態(tài)IP和DNS服務器地址的代碼
更新時間:2011年01月21日 22:09:31 投稿:mdxy-dxy
用VBS設置靜態(tài)IP和DNS服務器地址的代碼,今天別人問我的,怕以后忘記,記錄下來。
核心代碼一:
strIPAddress = Array("192.168.0.148") strSubnetMask = Array("255.255.255.0") strGateway = Array("192.168.0.1") strGatewayMetric = Array(1) arrDNSServers = Array("192.168.0.1","192.168.0.2") strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers) If errEnable = 0 Then WScript.Echo "The IP address has been changed." Else WScript.Echo "The IP address could not be changed." End If Next
記得把參數(shù)改成自己想要的。
代碼二:
將計算機的 IP 地址設置為 192.168.1.111,并將 IP 網(wǎng)關設置為 192.168.1.1。
strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & " ootcimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") strIPAddress = Array("192.168.1.111") strSubnetMask = Array("255.255.255.0") strGateway = Array("192.168.1.1") strGatewayMetric = Array(1) For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) If errEnable = 0 Then WScript.Echo "The IP address has been changed." Else WScript.Echo "The IP address could not be changed." End If Next
原文:http://demon.tw/programming/vbs-modify-ip-dns-setting.html
您可能感興趣的文章:
- linux下bind9安裝配置一例
- win2003 DNS服務器配置方法[圖文詳解]
- win2003服務器搭建DNS服務器配置圖解教程(比較詳細)
- windows2003 DNS服務器配置(圖文詳解)
- windows服務器 的DNS服務器備份與還原步驟小結
- Win2003 DNS服務器創(chuàng)建多個域名
- Python寫的一個簡單DNS服務器實例
- 圖文詳解添加DNS服務器的操作步驟
- winmydns DNS服務器架設
- Centos 6.5 下配置DNS服務器的方法(圖文詳解)
- C#利用WMI操作DNS服務器(可遠程操作,需要相應權限)
- win2003 使用DNS服務器實現(xiàn)負載均衡
- DNS服務器中創(chuàng)建正向查找區(qū)域并在該區(qū)域下創(chuàng)建主機記錄
- DNS服務器 支持泛域名解析的設置方法 [修正版本]
- 從斷網(wǎng)事件分析DNS服務器拒絕服務攻擊
- 詳解Linux下配置DNS服務器
- DNS服務器管理與配置技巧淺談
- RHE5服務器管理 搭建DNS服務器步驟說明[圖文]
- 在Windows 7 上安裝DNS服務器bind9方法詳解
相關文章
在windows 64位操作系統(tǒng)上運行32位的vbscript的方法
這篇文章主要介紹了在windows 64位操作系統(tǒng)上運行32位的vbscript的方法,需要的朋友可以參考下2016-11-11用vbs實現(xiàn)重新啟動 Internet Explorer
用vbs實現(xiàn)重新啟動 Internet Explorer...2007-03-03