Quelques lignes sans pretention, inspirer de lignes pompées sur ce site. ( désol je débute).....
Source / Exemple :
'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")