- 'lecture dans la BDR de l adresse IP type REG_MULTI_SZ
- Dim LectureIp,bind,bindip,b,c,ip
- set LectureIp=createobject("wscript.shell")
- bind=LectureIp.regread("HKEY_LOCAL_MACHINE\system\controlSet001\services\Tcpip\Linkage\Bind")
- b=InStr(bind(0),"{")
- c=InStr(b,bind(0),"}")
- bindip=mid(bind(0),b,(c-b)+1)
- ip=LectureIp.regread("HKEY_LOCAL_MACHINE\system\controlSet001\services\Tcpip\Parameters\Interfaces\" & bindip & "\DhcpIPAddress")
'lecture dans la BDR de l adresse IP type REG_MULTI_SZ
Dim LectureIp,bind,bindip,b,c,ip
set LectureIp=createobject("wscript.shell")
bind=LectureIp.regread("HKEY_LOCAL_MACHINE\system\controlSet001\services\Tcpip\Linkage\Bind")
b=InStr(bind(0),"{")
c=InStr(b,bind(0),"}")
bindip=mid(bind(0),b,(c-b)+1)
ip=LectureIp.regread("HKEY_LOCAL_MACHINE\system\controlSet001\services\Tcpip\Parameters\Interfaces\" & bindip & "\DhcpIPAddress")