help translate from vbs to au3

[tbaror]

Hi,

since i am new to AU3 could someone please help me translate below script to AU3

Thanks

Dim strDomain         'string containing the NT domain name
Dim objDomain        'ADSI Domain object
Dim objComputer   'ADSI Computer object
 
strDomain = "MyDomain"
Set objDomain = GetObject("WinNT://" & strDomain)
objDomain.Filter = Array("computer")
 
For Each objComputer In objDomain
    WScript.Echo objComputer.Name
Next

[VB6Rules]

You will need to use ObjCreate() and look in the For Next loop

[ptrex]

@tbaror

#include <array.au3>

$strDomain = "MyDomain"
$objDomain = ObjGet("WinNT://" & $strDomain)
$objDomain.Filter = _ArrayCreate("Computer","User")

For $objComputer In $objDomain
    ConsoleWrite ("Computer ... "  &  $objComputer.Name & @CRLF)
Next

Enjoy !!

ptrex