Il y a actuellement 91 visiteurs
Vendredi 30 Juillet 2021
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 [Réglé] Recherche un émulateur android pour pc Windows10
Bonjour, J'aimerais installer un émulateur android gratuit sur mon pc windows10 afin de pouvoir installer quelques applications qui sont sur "google play store"Que me conseillez vous ?Merci d'avanceA+
Réponses: 12

Message [Réglé]Connexion lecteur reseau au demarrage windows
Bonjour,J'ai la version 4.2.9 pour "Freebox OS"Suite à la mise à jour récente de Windows10, il est possible que la case "Se reconnecter lors de la connexion" située dans la fenêtre "Connecter un lecteur réseau" ait été décochée. A vérifier qu'elle soit bien cochée.Vérif ...
Réponses: 7

Message recherche plateforme vibrante silencieuse
Je poste ce message simplement pour savoir si quelqu?un connaissait un modèle de plateforme relativement silencieux car j?habite dans un petit appartement parisien et le bruit des vibrations pourrait rapidement me faire des ennemis dans mon immeuble. Voilà mes critères de sélection : je cherche une ...
Réponses: 10

Message 1Pc du réseau inaccessible
Bonsoir,J'appelle à l'aide pour résoudre le cas suivant :Description de la situation :Je dispose de 3 Pc tous sous windows 10 (2 2004, 1 20H2) dénommés PC1;Pc2;Pc3.Ils sont en réseau privé par une box SFR en wifi.Les paramètres réseau sont bien renseignés sur tous (De découverte réseau à dé ...
Réponses: 0

Message [Réglé] Réseau répéteur Wifi non détecté
Bonjour,Je vous expose tout d'abord la scène avant de vous parler du soucis que je rencontre.Il y a quelques semaines, Orange est venu installer la fibre. La box a été placé près du mur donnant sur l'extérieur (on n'a pas eu le choix) et donc, la distance vers mon pc (connecté en Wifi) s'est allongé ...
Réponses: 5

Message A la recherche d'un PC Portable
Bonjour, Je suis à la recherche d'un pc portable capable de bien supporter le jeu des Sims 4, (je n'ai pas dans le but de jouer à des jeux plus puissants que celui des sims 4). J'aimerais aussi pouvoir l'utiliser pour de la bureautique et de la gestion/organisation de photos/vidéos de famille.Je sou ...
Réponses: 3

Message Écran tactile en réseau
Bonjour,J'aimerai configurer quelques chose mais je ne trouve pas le matériel sont j'ai besoin.Mon idée vient du fait que j'ai accès depuis la maison a mon ordinateur de travail sans aucun lag malgrè que celui ci soit a 30km et que je peux jouer sur mon shadow PC (ou même NVIDIA)qui se trouve a 600k ...
Réponses: 0


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités


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