IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

VBS Domaine d'une machine donné


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juin 2004
    Messages
    18
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2004
    Messages : 18
    Par défaut VBS Domaine d'une machine donné
    Bonjour à tous,

    Je suis à la recherche d'une fonction / piste.
    Pour récupérer le domaine d'une machine donnée ( IP / Nom )
    Sachant que je lancerai se script sur une autre machine.
    Un équivalent du nbtstat -A qui donne le groupe de la machine.

    Merci d'avance

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Tu as consulté la :

    4.2. Réseau (wshNetwork)

    ?

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Juin 2004
    Messages
    18
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2004
    Messages : 18
    Par défaut
    wshNetwork me donne des infos sur la machine ou je lance le script.
    Et non une machine distante.

    et:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _ 
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
    Me donne des infos sur le réseau d'une machine (distante ou pas ) comme un ipconfig, et pas le domaine :/

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Juin 2004
    Messages
    18
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2004
    Messages : 18
    Par défaut
    Bon ne trouvant pas de solution, je l'ai fais en "mode bourrin"

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Dim fso, strtmp, ObjTextStream, strFichier, strTexte, strDomaine, strPosition
     
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set WshShell = WScript.CreateObject("WScript.Shell")
     
    strFichier = WshShell.ExpandEnvironmentStrings("%WinDir%") + "\temp\nbtstat.txt"
     
    return = WshShell.Run("cmd /c nbtstat -A " + ip + " > " + strFichier , 1, true) 
     
    Set ObjTextStream = Fso.OpenTextFile(strFichier, 1, False)
     
     
    Do While Not ObjTextStream.AtEndOfStream
    	strTexte = ObjTextStream.ReadLine
    	strPosition = InStr(strTexte, "      <1E>  Groupe      Inscrit ")
    	If strPosition > "0" Then
    		strDomaine = Split (strTexte, "      <1E>  Groupe      Inscrit ")
    		Wscript.echo strDomaine(0)
    	End If
    Loop
     
    ObjTextStream.Close
    fso.DeleteFile( strFichier )

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [C#] Trouver le nom de domaine d'une machine
    Par papouAlain dans le forum Windows Forms
    Réponses: 6
    Dernier message: 08/10/2013, 16h11
  2. Réponses: 7
    Dernier message: 24/04/2009, 12h39
  3. Integrer une machine dans un domaine en VBS
    Par menojulien dans le forum VBScript
    Réponses: 2
    Dernier message: 17/03/2009, 12h04
  4. Récupérer liste des utilisateur domaine d'une machine
    Par Silverbob dans le forum VBScript
    Réponses: 14
    Dernier message: 25/02/2009, 14h13
  5. DNS - 2 Domaines sur une machine
    Par Lindel dans le forum Réseau
    Réponses: 6
    Dernier message: 16/07/2007, 11h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo