salut je souhaite convertir un script vbs en vb
le script vbs qui fonctionne nickel
-----
Sub ListGroups(strDomain)
Set objComputer = GetObject("WinNT://" & strDomain)
objComputer.Filter = Array("Group" )
For Each objGroup In objComputer
WScript.Echo "Name: " & objGroup.Name
Next
End Sub
Dim strDomain
Do
strDomain = "ad"
Loop Until strDomain <> ""
ListGroups (strDomain)
--
en vb j'obtient une erreur d'automation à la ligne :
Set objComputer = GetObject("WinNT://" & strDomain)
merci par avance
