[Résolu]Récupérer le groupe de travail en VBS

Marsh Posté le 28-02-2009 à 22:28:25

Bonjour,

Je cherche une fonction en VBS pour récupérer le nom du groupe de travail d'un poste ? et ensuite le modifier.
Car, j'ai trouvé quasiment toutes les fonctions pour régler le réseau sur un poste, sauf celle-ci.

Merci

Message édité par GDEL le 01-03-2009 à 13:36:49

Marsh Posté le 28-02-2009 à 22:28:25

Marsh Posté le 01-03-2009 à 05:35:37

Salut, sans rien y connaitre ou quasiment, en cherchant via gog j'ai trouvé ceci :

set wmi = getobject("winmgmts:" )
wql = "select * from win32_computersystem"
set results = wmi.execquery(wql)

For each compsys in results
WScript.Echo compsys.domain
Next

un autre

Dim objNet
Set objNet = CreateObject("WScript.NetWork" )
Dim strInfo
strInfo = "User Name is " & objNet.UserName & vbCRLF & _
"Computer Name is " & objNet.ComputerName & vbCRLF & _
"Domain Name is " & objNet.UserDomain
MsgBox strInfo
Set objNet = Nothing

Message édité par kiki29 le 01-03-2009 à 12:36:39

Marsh Posté le 01-03-2009 à 13:33:06

[:prosterne] Merci [:prosterne2]
Le premier fonctionne parfaitement. Par contre, j'ai cherché dans google. Mais, je suis toujours tombé sur des scripts avec de l'active directory. :??: