Trouver son adresse ip tout simplement !
Contenu du snippet
kliké dessus et regardez votre ip
Source / Exemple :
Option Explicit
Dim WshShell,obj,Command,Result,Temp,FileName,File
Set obj = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell=WScript.CreateObject("WScript.Shell")
FileName=GetTempFile("command.txt")
Result = Ping()
Function Ping()
Command = "%COMSPEC% /C ipconfig.exe > %TEMP%\command.txt"
Result = WshShell.Run(Command,0,True)
Temp = obj.GetSpecialFolder(2).Path
Set File = obj.OpenTextFile(FileName)
Ping = file.ReadAll
file.Close
obj.DeleteFile FileName,True
End Function
Function GetTempFile(File)
GetTempFile=WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & File
End Function
MsgBox(Result)
A voir également
- Trouver son adresse ip tout simplement !
- Comment savoir si une adresse ip est valide - Forum C / C++ / C++.NET
- Tag ip session - Forum PHP
- Violation d'accès à l'adresse - Forum Delphi / Pascal
- Sécuriser l'authentification avec session ✓ - Forum C# / .NET
- Mathurine a créé son profil sur un forum, en renseignant comme adresse électronique : mathurine[arobase]pixmail.org pourquoi a-t-elle écrit son adresse de cette manière ? - Forum PHP
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.