Below is the VBS Code I am trying to port to KIX. I have yet to get anywhere.

Help!

strSiteRDN = "cn=Ga-Atl-Sales"

Set objRootDSE = GetObject("LDAP://RootDSE")
strConfigurationNC = objRootDSE.Get("configurationNamingContext")

strSitePath = "LDAP://" & strSiteRDN & ",cn=Sites," & strConfigurationNC

Set objSite = GetObject(strSitePath)

objSite.GetInfoEx Array("siteObjectBL"), 0
arrSiteObjectBL = objSite.GetEx("siteObjectBL")

WScript.Echo strSiteRDN & " Subnets" & vbCrLf & _
String(Len(strSiteRDN) + 8, "-")

For Each strSiteObjectBL In arrSiteObjectBL
WScript.Echo Split(Split(strSiteObjectBL, ",")(0), "=")(1)
Next

___________________________________

Below is the KIX code (so far):

$strSiteRDN = "cn=Ga-Atl-Sales"

$objRootDSE = GetObject("LDAP://RootDSE")
$strConfigurationNC = $objRootDSE.Get("configurationNamingContext")

$strSitePath = "LDAP://" + $strSiteRDN + ",cn=Sites," + $strConfigurationNC

$objSite = GetObject($strSitePath)

$objSite.GetInfoEx Array("$siteObjectBL"), 0
$arrSiteObjectBL = $objSite.GetEx("$siteObjectBL")

? $strSiteRDN + " Subnets" + @CrLf + String(Len($strSiteRDN) + 8, "-")

For Each $strSiteObjectBL In $arrSiteObjectBL
? Split(Split($strSiteObjectBL, ",")(0), "=")(1)
Next

___________________________________

I get the following error:

Script error : unknown command !
$objSite.GetInfoEx Array("$siteObjectBL"), 0

I'm pretty sure Array() won't work but $objSite.GetInfoEx alone fails as well.

Thanks

Mark