Help on converting a vbs script

[BadGrim 0]

Hello all,

Im trying to convert a vbs script I have. and I seems to be missing something. not sure what.

the intent, is to return the OU of a computer object, so I can use it later in the script:

Set objSysInfo = CreateObject("ADSystemInfo")
strComputer = objSysInfo.ComputerName
Set objComputer = GetObject("LDAP://" & strComputer)
arrOUs = Split(objComputer.Parent, ",")
arrMainOU = Split(arrOUs(1), "=")
Wscript.Echo arrMainOU(1)

AutoitCode that fails.

$objSysInfo = ObjCreate("ADSystemInfo")
$strComputer = $objSysInfo.ComputerName
$objComputer = ObjGet("LDAP://" & $strComputer)
MsgBox(4096, "", $objComputer.Parent)
$arrOUs = StringSplit($objComputer.Parent, ",")
MsgBox(4096, "", $arrOUs)
$arrMainOU = StringSplit($arrOUs(1), "=")
ConsoleWrite ($arrMainOU(1))

[GMK 23]

Try this:

#include <Array.au3>
$oSysInfo = ObjCreate("ADSystemInfo")
$sComputer = $oSysInfo.ComputerName
$oComputer = ObjGet("LDAP://" & $sComputer)
MsgBox(4096, "", $oComputer.Parent)
$aOUs = StringSplit($oComputer.Parent, ",")
_ArrayDisplay($aOUs)
$aMainOU = StringSplit($aOUs[1], "=")
ConsoleWrite ($aMainOU[1] & @CRLF)

[JLogan3o13 1,394]

Or you could use Water's great AD UDF, which will do just about anything you need in A.D. (http://www.autoitscript.com/forum/index.php?showtopic=110614). This is what I use for checking a computer's container:

#include <AD.au3>

$var = InputBox("Find PC in OU", "Please enter the PC Name")
_AD_Open()

$aProperties = _AD_GetObjectProperties($var & "$", "distinguishedName")
MsgBox(0, "", $aProperties[1][1])

_AD_Close()

Edited February 28, 2013 by JLogan3o13