Afficher l'adresse IP Locale et l'adresse IP Publique tout simplement en VBscript !
- pour afficher l'adresse locale on utilise l'objet Winsock
- pour afficher l'adresse Publique on utillise l'objet XMLDOM en chargeant l'url:
http://xml.showmyip.com/
Source / Exemple :
'Main Program
'site web: http://hackoo.ifrance.com
'© Copyright Hackoo ©
ipconfig
Getip
'------------------------------GetTempFile(File)-----------------
Function GetTempFile(File)
Set WshShell=WScript.CreateObject("WScript.Shell")
GetTempFile=WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & File
End Function
'---------------------------------------------------------------
Function ipconfig
set wshshell=CreateObject("WScript.shell")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
FileName=GetTempFile("ip.txt")
Command = "%COMSPEC% /C ipconfig > %TEMP%\ip.txt"
Result = WshShell.Run(Command,0,True)
Temp = fso.GetSpecialFolder(2).Path
Set File = fso.OpenTextFile(FileName)
Ping = file.ReadAll
file.Close
ipconfig = Ping
MsgBox ipconfig,64," Adresse IP !" '
end Function
'*******************Getip*************************
Function Getip
on error resume next
const URL = "http://xml.showmyip.com/"
Dim Hackoo
Dim message
Set Hackoo = CreateObject("MSWinsock.Winsock")
set xmldoc = CreateObject("Microsoft.XMLDOM")
xmldoc.async=false
xmldoc.load(URL)
for each x in xmldoc.documentElement.childNodes
if x.NodeName = "ip" then
myip = x.text
end if
if x.NodeName = "isp" then
myhost = x.text
end if
if x.NodeName = "country" then
mycountry = x.text
end if
next
message = message & "Adresse IP Locale : "
message = message & Hackoo.localip & vbcrlf & vbcrlf
message = message &"Adresse IP Publique : "
message = message & myip & vbCRLF & vbCRLF
message = message & "Provider internet : " & myhost & vbCRLF & vbCRLF
message = message & "Pays,Ville : " & mycountry & vbCRLF & vbCRLF
Getip=message
msgbox message ,vbinformation ,"IP Locale et IP Publique"
end function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.