批处理之家 - Powered by Discuz! Board

::根据IP更改配置文件中ID
@echo off
setlocal enableDelayedExpansion
set ip1=192.168.1.20
set ip2=192.168.1.19
set ip3=192.168.1.18
set ip4=192.168.1.17
set ip5=192.168.1.16
set ip6=192.168.1.15
set ip7=192.168.1.14
set ip8=192.168.1.13
set ip9=192.168.1.12
set ip10=192.168.1.11
set "id1=12863768"
set "id2=12863767"
set "id3=12863766"
set "id4=12863765"
set "id5=12863764"
set "id6=12863763"
set "id7=12863762"
set "id8=12863761"
set "id9=12863760"
set "id10=12863759"
::识别IP
call :getIP pcip
::set "pcip=192.168.1.18" ::假设
::更改ID
for /l %%i in (1,1,10)do (
if "%pcip%"=="!ip%%i!" (
sed -i "s/$COUNTER_NO=$.*$/\1!id%%i!/" "d:\mis.ini"
goto :outfor
)
)
:outfor
pause
goto :eof
:getIP gip 获取IP
请搜索相应“获取IP”代码
goto :eof

复制代码

Option Explicit
On Error Resume Next
Const conINI = "D:\mis.ini" 'ini路径
Const conNIC = "vEthernet (Default Switch)" '网卡名
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim objWbemServices,fso,tsr,tsw,Element,dicNIC_ININO,mac,str
Set dicNIC_ININO = CreateObject("Scripting.Dictionary")
' MAC地址对应COUNTER_NO
dicNIC_ININO.Add "00:15:5D:62:F7:80","12863768"
dicNIC_ININO.Add "00:15:5D:62:F7:90","12863767"
dicNIC_ININO.Add "00:15:5D:62:F7:72","12863765"
dicNIC_ININO.Add "00:15:5D:62:F7:42","12863764"
dicNIC_ININO.Add "00:15:5D:62:F7:32","12863763"
dicNIC_ININO.Add "00:15:5D:62:F7:02","12863762"
dicNIC_ININO.Add "00:15:5D:62:F7:12","12863761"
dicNIC_ININO.Add "00:15:5D:62:F7:96","12863759"
dicNIC_ININO.Add "00:15:5D:62:F7:98","12863758"
dicNIC_ININO.Add "00:15:5D:62:F7:66","12863757"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objWbemServices = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!//./root/cimv2")
For Each Element In objWbemServices.ExecQuery("Select NetConnectionID,MACAddress From Win32_NetworkAdapter Where NetConnectionID = '" & conNIC & "'")
mac = Element.MACAddress
Next
' WScript.Echo "mac='" & mac & "'"
If dicNIC_ININO.Exists(mac) Then
Set tsr = fso.OpenTextFile(conINI,ForReading,False,vbUseDefault) ' ANSI encoding
str = tsr.ReadAll
If Err.Number <> 0 Then MyQuit
Set tsw = fso.OpenTextFile(conINI,ForWriting,False,vbUseDefault) ' ANSI encoding
If Err.Number <> 0 Then MyQuit
With New RegExp
.Global = False
.Ignorecase = True
.Multiline = False
.Pattern = "(COUNTER_NO\s*=\s*).*"
tsw.Write(.Replace(str,"$1" & dicNIC_ININO.Item(mac)))
End With
End If
MyQuit
Sub MyQuit()
On Error Resume Next
If IsObject(tsw) Then
tsw.Close
Set tsw = Nothing
End If
If IsObject(tsr) Then
tsr.Close
Set tsr = Nothing
End If
Set fso = Nothing
set dicNIC_ININO = Nothing
Set objWbemServices = Nothing
WScript.Quit
End Sub

复制代码

#IP ID
#-----------------------
192.168.1.11 12863768
192.168.1.12 12863767
192.168.1.13 12863766
192.168.1.14 12863765
192.168.1.15 12863764
192.168.1.16 12863763
192.168.1.17 12863762
192.168.1.18 12863761
192.168.1.19 12863760
192.168.1.20 12863759
#=======================

复制代码

::根据IP更改配置文件中ID //用到三方sed.exe;wget.exe
::先得到本机IP，再从ftp服务器上取得IP-ID对照表，后修改配置文件中ID。
@echo off
cd/d%~dp0
::识别本机IP
call :getIP pcip
echo [%pcip%]
::pause
::从服务器ftp获取ip-id对应表
wget -q -N "ftp://user:password@192.168.1.200/mis-id.ini"
::pause
::更改ID
for /f "tokens=1,2" %%c in ('findstr /c:"%pcip%" mis-id.ini')do (
if "%%c"=="%pcip%" sed -i "s/$COUNTER_NO=$.*$/\1%%d/" "d:\mis.ini"
)
::pause
goto :eof
::====完====
:getIP gip 获取本地IP
setlocal
for /f "tokens=3-6" %%a in ('"netsh interface dump|findstr /i "mask""')do (
for %%i in ("%%a" "%%b" "%%c" "%%d")do if "%%~i" neq "" set %%i
)
if defined address set "ip=%address%"
if defined addr set "ip=%addr%"
endlocal&set "%1=%ip%"
goto :eof

复制代码