使用腳本自動修改ip設置
@Echo Off
TITLE 腳本之家ip設置器
:start
CLS
COLOR 2f
:: 使用COLOR命令對控制臺輸出顏色進行更改
mode con cols=56 lines=20
:: MODE語句為設定窗體的寬和高
:sc_main
echo -------------------------------------------
echo.&echo.
echo 0.192.168.0.99 & echo.
echo 1.192.168.1.99 & echo.
echo q.退出 & echo.&echo.&echo.&echo.&echo.&echo.
set "select="
set/p select= 輸入數(shù)字，按回車繼續(xù) :
if "%select%"=="0" (goto sc_ip0)
if "%select%"=="1" (goto sc_ip1)
if "%select%"=="Q" (goto sc_exit)
:sc_exit
exit
goto :eof
:sc_ip0
cls
echo 正在設置中，請稍候
Netsh interface IP Set Address "本地連接" Static 192.168.0.99 255.255.255.0 192.168.0.1 1
Netsh interface IP set dns "本地連接" static 192.168.0.1 primary
echo 設置成功 192.168.0.99
PAUSE >nul
Goto sc_main
:sc_ip1
cls
echo 正在設置中，請稍候
Netsh interface IP Set Address "本地連接" Static 192.168.1.99 255.255.255.0 192.168.1.1 1
Netsh interface IP set dns "本地連接" static 192.168.1.1 primary
echo 設置成功 192.168.1.99
PAUSE >nul
Goto sc_main
vbs修改ip
changeip.vbsstrComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter in colNetAdapters
sip=objNetAdapter.IPAddress
strIPAddress = sip '保持原來的ip，如果需要修改ip為192.168.0.200：strIPAddress = Array("192.168.0.200")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.0.254") '修改網(wǎng)關為192.168.0.254
strGatewayMetric = Array(1)
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
exit for '只修改第一個網(wǎng)卡的設置
Next
VBS修改IP
'VBS修改IP
function transh(s)
if isnumeric(s) then
if len(s)=1 then
transh="00" & s
elseif len(s)=2 then
transh="0" & s
elseif len(s)=3 then
transh=s
end if
else
transh=""
end if
end function
dim head
'機器名頭
head="B"
'ip頭
iphead="192.168.131"
ipgate="192.168.131"
dim i
i=inputbox("輸入機器序號(2-254)")
if i="" then
msgbox "Error: 序號不正確！"
else
dim shell
set shell = CreateObject("WScript.Shell")
'修改計算機名
shell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", head & transh(i) ,"REG_SZ"
shell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", head & transh(i) ,"REG_SZ"
shell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname", head & transh(i) ,"REG_SZ"
'修改IP
shell.run "netsh interface ip set address 本地連接 static " & iphead & "." & i & " 255.255.255.0 " & ipgate & ".252 1"
'msgbox "OK"
shell.run "netsh interface ip set address 本地連接 static " & iphead & "." & i & " 255.255.255.0 " & ipgate & ".252 1"
'msgbox "OK"
shell.run "netsh interface ip set address 本地連接 static " & iphead & "." & i & " 255.255.255.0 " & ipgate & ".252 1"
'msgbox "OK"
end if
相關文章
![[vbs]每一行的最后一個字符轉換成_](http://img.jbzj.com/images/xgimg/bcimg0.png)
[vbs]每一行的最后一個字符轉換成_...2006-12-12
VBS中常用腳本代碼...2007-03-03
殺毒的對vbs相當敏感 免殺...2006-08-08
用vbs計算某個詞在日志文件中的出現(xiàn)次數(shù)
用vbs計算某個詞在日志文件中的出現(xiàn)次數(shù)...2007-03-03
VBS教程：運算符-Xor 運算符...2006-11-11
這篇文章主要介紹了Vbs腳本經(jīng)典教材,其實最全的資料還是MSDN，不過腳本之家已經(jīng)為大家整理了一些，也可以查看2014-08-08![獲取外網(wǎng)IP并發(fā)送到指定郵箱的vbs代碼[已測]](http://img.jbzj.com/images/xgimg/bcimg6.png)
獲取外網(wǎng)IP并發(fā)送到指定郵箱的vbs代碼[已測]
如名稱所見，獲取外網(wǎng)IP并發(fā)送到指定郵箱，這個腳本比較短小，但不如腳本之家提供的au3腳本功能強大，不過每次電腦開機記錄一下還是不錯的2012-05-05
Decode all files encoded (original version) with screnc.exe2013-07-07
VBSCript之GenerateSDDL函數(shù)(權限設置)
自己寫的一個函數(shù)和應用實例，用于設置對象的相關權限，需要的朋友可以參考下2013-07-07
VBS基礎篇 vbscript Sendkeys模擬鍵盤操作
在vbscript中我們可以object.SendKeys模擬鍵盤操作，將一個或多個按鍵指令發(fā)送到指定Windows窗口來控制應用程序運行，,需要的朋友可以參考下2018-06-06