Connexion
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
Sujets les plus vus
Derniers sujets
[VBS] Extraction de l'adresse ip de la hôte
Page 1 sur 1
[VBS] Extraction de l'adresse ip de la hôte
[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]
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- EQUIPE BBAT
- Mensagens : 135
Data de inscrição : 06/06/2013
Localização : Tunisie
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Ven 25 Déc 2015, 14:17 par Sachadee
» [devellopez] Formater une date en ligne Dos
Ven 31 Juil 2015, 10:40 par Dylan Gadacha
» Un super Tuto Batch de IniTScreen
Lun 08 Juin 2015, 12:16 par InitScreen
» Un code MATRIX sympa
Dim 12 Avr 2015, 14:27 par Sachadee
» [BAT/EXE] DresolChange changer la sesolution de l´écran
Mar 17 Mar 2015, 09:12 par Sachadee
» [EXE/bat] DpScript Código Delphi interpreter
Jeu 12 Mar 2015, 15:48 par Sachadee
» Externo SaveDlg com 2 kb
Dim 15 Fév 2015, 12:20 par Sachadee
» présentation
Dim 15 Fév 2015, 12:14 par Sachadee
» [developpez.com] Transcodage fichier vidéo si fichier déposé
Mar 03 Fév 2015, 01:02 par Sachadee