Il y a actuellement 80 visiteurs
Samedi 21 Juin 2025
accueilactualitésdossierscomparer les prixtélécharger gratuitement vos logicielsoffres d'emploiforum informatique
Connexion
Créer un compte

Script recherche d'ip sur réseau

Besoin d'aide pour configurer un serveur ? Vous souhaitez obtenir des conseils pour référencer votre site ? Un petit souci pour accéder à votre FTP ? Des soucis de programmation en PHP / ASP / HTML / XHTML / XML / XSLT / CSS / ReactJS / AngularJS / VueJS / CGI / PERL / C / MySQL / PostgreSQL ??? Nous avons peut-être la solution dans ce forum ...

Script recherche d'ip sur réseau

Message le 22 Fév 2008 13:57

Bien le bonjour,

voile je dois faire un script qui parcours le groupe de travail donné ,recherche un pc donné et me communique son adresse IP.



j'ai réussi a parcourir le groupe de travail et a rechecher le pc donné, mais je ne sais ABSOLUMENT pas comme faire pour trouver l'IP.

Il faudrait mêxcpliquer comment utilisé un objet pour rechercher une IP .

Le groupe de trvail et le nom du pc son introduit dans une input box.

Merci

voila mon script :





Option Explicit
Dim args, oWinNT, oDomain, strDomain, cNomDom, cNomMach', nNomMajMach


'*** Demande a l'utilisateur d'introduire le nom du domaine
cNomDom = InputBox ("Entrez le nom du domaine : ")
'*** Met le nom du pc/machine en majuscule
cNomDom = UCase(cNomDom)
'*** teste si le un nom a été introduit
'*** Si il n'a rien entrée alors il affiche un message et quite le script
If cNomDom = "" Then
MsgBox "Nom de domaine (ou WorkGroup) omis !"
Wscript.Quit
End If

'*** Demande a l'utilisateur d'introduire le nom du Pc/machine
cNomMach = InputBox ("Entrez le nom de la machine : ")
'*** Met le nom du pc/machine en majuscule
cNomMach = UCase(cNomMach)
'*** teste si le un nom a été introduit
'*** Si il n'a rien entrée alors il affiche un message et quite le script
If cNomMach = "" Then
MsgBox "Nom du pc/machine omis !"
Wscript.Quit
End If


'*** Commentaires qui explique quel est le domaine et le pc recherché
Wscript.Echo "Liste des machines du domaine : " & cNomDom
Wscript.Echo "Recherche du poste : " & cNomMach
Set oWinNT=GetObject("WinNT://" & cNomDom)



For Each oDomain in oWinNT
If Lcase(oDomain.class)="computer" Then
If oDomain.name = cNomMach Then
WScript.Echo oDomain.name
End If
End If
Next
Danath
Visiteur
Visiteur
 
Messages: 8
Inscription: 17 Jan 2008 16:04
 



Sujets similaires

Message Connaitre sa carte réseau- Microsoft surface
Bonjour,J'ai un souci avec une tablette surface pro qui a perdu sa connexion internet. La carte réseau a disparu.Après avoir un peu cherché, j'ai décidé de réinitialiser la tablette. Malheureusement je suis carrément bloqué maintenant. La raison : le pc a bien réinitialisé mais une fois choisi la l ...
Réponses: 23

Message problème pour réinstaller pilote réseau
Bonjour,Pourriez-vous m'indiquer pourquoi je n'arrive pas à réinstaller le pilote Ethernet sur mon pc dont la configuration est processeur pentium dual core e 6500 25.13 ghz et 3 go de ram et d'un disque dur 1 To. et Windows 10 Famille.Au bout de l'essai d'installation, il y a le message d'erreur ...
Réponses: 29

Message Plus de reseau sauf par VPN
Bonjour, je réitère mon message qui à été supprimé. Depuis hier je n'ai plus internet par ma Freebox que ce soit en Ethernet ou en wi-fi. Les telephones non plus n'ont plus de réseau. Par contre, je peux surfer en utilisant mon VPN.Curieusement une TV dans une pièce a coté a NEXFLIX sans aucun probl ...
Réponses: 2

Message [Réglé] W11 reinstalle le mauvais pilote pour carte reseau
Bonjour,A chaque demarrage pc, si windows charge le pilote le plus recent (2021) de ma carte reseau (intel R 82579V) un coup sur 2 la carte demarre pas.Sinon si je reinstalle un pilote plus ancien de 2016 ou s il charge ce dernier au demarrage ca fonctionne sans probleme!Du coup, ma question: commen ...
Réponses: 45

Message PC en réseau
Bonjour,Sous Windows 11, peut-on passer facilement d'un pc à un autre, sur le même réseau (un en wifi et un en filaire), avec l'explorateur Windows ? Pour un usage de gestion de fichiers (stockage, copie).Faut-il un logiciel spécifique où peut-on configurer les PC directement ?Merci d'avance !
Réponses: 3

Message à la recherche d'un connecteur front pannel
Bonjour je suis à la recherche d'un connecteur front-pannel pour une carte mère Lenovo I3XMS, impossible d'en trouver un pour le moment car ce n'est pas standard,. Le format est plus petit qu'habituellement sur les pc de marque. Si quelqu'un à une piste je prends ! (ci-joint une photo pour visualise ...
Réponses: 1

Message [Réglé] probleme windows update recherche sans fin
Salut tout le monde depuis quelques jours lorsque je clique sur Windows update et recherche de mise à jour en cours cela se mets en recherche sans fin voir ma capture écran Rien n'y fait, j'ai beau exécuter l'utilitaire de dépannage Windows update rien n'y fait? Il me détecte en effet un incident, m ...
Réponses: 14


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


.: Nous contacter :: Flux RSS :: Données personnelles :.