VBS Domaine d'une machine donné

Version imprimable

17/07/2009, 21h58
Coladin

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 :)
17/07/2009, 22h01
SfJ5Rpw8

Tu as consulté la :faq: :

4.2. Réseau (wshNetwork)

?
19/07/2009, 01h29
Coladin
wshNetwork me donne des infos sur la machine ou je lance le script.
Et non une machine distante.

et:
Code:

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 :/

Bon ne trouvant pas de solution, je l'ai fais en "mode bourrin"

Code:

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 )