J'ai eu du mal à trouver comment récupérer son ip en VBS, alors maintenant que j'ai trouvé, si ça peut servir à quun, voilà le code.
Difficile de faire plus simple
j'attends vos remarques éventuelles.
Source / Exemple :
Dim objSocket
Set objSocket = CreateObject("MSWinsock.Winsock")
msgbox objSocket.localip