BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 29 le Mer 29 Jan 2020, 10:53
Derniers sujets
» [StackOverflow] Batch to Create video .srt Subtitles with right timing
[VBS] Extraction de l'adresse ip de la hôte EmptyVen 25 Déc 2015, 14:17 par Sachadee

» [devellopez] Formater une date en ligne Dos
[VBS] Extraction de l'adresse ip de la hôte EmptyVen 31 Juil 2015, 10:40 par Dylan Gadacha

» Un super Tuto Batch de IniTScreen
[VBS] Extraction de l'adresse ip de la hôte EmptyLun 08 Juin 2015, 12:16 par InitScreen

» Un code MATRIX sympa
[VBS] Extraction de l'adresse ip de la hôte EmptyDim 12 Avr 2015, 14:27 par Sachadee

» [BAT/EXE] DresolChange changer la sesolution de l´écran
[VBS] Extraction de l'adresse ip de la hôte EmptyMar 17 Mar 2015, 09:12 par Sachadee

» [EXE/bat] DpScript Código Delphi interpreter
[VBS] Extraction de l'adresse ip de la hôte EmptyJeu 12 Mar 2015, 15:48 par Sachadee

» Externo SaveDlg com 2 kb
[VBS] Extraction de l'adresse ip de la hôte EmptyDim 15 Fév 2015, 12:20 par Sachadee

» présentation
[VBS] Extraction de l'adresse ip de la hôte EmptyDim 15 Fév 2015, 12:14 par Sachadee

» [developpez.com] Transcodage fichier vidéo si fichier déposé
[VBS] Extraction de l'adresse ip de la hôte EmptyMar 03 Fév 2015, 01:02 par Sachadee

Flux RSS



Flag Counter
Partenaires
Le Deal du moment : -15%
(Adhérents Fnac) LEGO® Star Wars™ ...
Voir le deal
552.49 €
Le Deal du moment :
Coffret dresseur d’élite ETB ...
Voir le deal
56.90 €

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

Aller en bas

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

Message par Hackoo 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
Hackoo
Hackoo
EQUIPE BBAT
EQUIPE BBAT

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

Revenir en haut Aller en bas

Revenir en haut


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