Lecture dans la bdr de la 1ere adresse ip type reg_multi_sz

Contenu du snippet

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")

A voir également