Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

[VBS] Extraction de l'adresse ip de la hôte

Voir le sujet précédent Voir le sujet suivant Aller en bas

[VBS] Extraction de l'adresse ip de la hôte

Message par Hackoo le Sam 15 Juin 2013, 11:25

[Vous devez être inscrit et connecté pour voir cette image]
Voici une petite fonction qui sert à extraire l'adresse ip de la hôte [Vous devez être inscrit et connecté pour voir cette image]

Code:
ExtractIP("bbat.forumeiro.com")
ExtractIP("www.yahoo.fr")
ExtractIP("www.google.fr")
 
Sub ExtractIP(PC)
    Titre = "Adresse ip de la hôte © Hackoo"
    Set Ws = CreateObject("wscript.Shell")
    Command = "Cmd /c ping "& PC &" > pingtest.txt"
    Resultat = Ws.Run(Command,0,True)
    Set oFso = CreateObject("Scripting.FileSystemObject")
    If oFso.FileExists("pingtest.txt") Then
        Set f = oFso.OpenTextFile("pingtest.txt",1)
        Data = f.ReadAll
        f.Close
    Else
        MsgBox "une erreur s'est produite lors de la lecture du fichier pingtest.txt",16,"Erreur de Lecture du fichier"
        Exit Sub
    End If
    Set objRegex = new RegExp
    objRegex.Pattern = "\b((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)\b"
    objRegex.Global = True
    objRegex.IgnoreCase = True
    Set Matches = objRegex.Execute(Data)
    MsgBox PC & " ===> "& Matches(0),64,Titre
End Sub
avatar
Hackoo
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 135
Data de inscrição : 06/06/2013
Localização : Tunisie

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum