#130484 - 2004-12-02 04:16 PM
Help with enumerating Site Subnets
|
mmelanson
Fresh Scripter
Registered: 2002-02-05
Posts: 6
|
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
|
|
Top
|
|
|
|
#130485 - 2004-12-02 05:31 PM
Re: Help with enumerating Site Subnets
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Hi, I can't exactly reproduce what your domain and what your doing ... but instead of going after "siteObjectBL" here's a modified version of your script that goes after "name", hope you can reverse engineer something back ...
Code:
break on
$= setoption("wrapateol","on")
$strSiteRDN = ""
$objRootDSE = GetObject("LDAP://RootDSE")
$strConfigurationNC = $objRootDSE.Get("configurationNamingContext")
$strSitePath = "LDAP://" + $strSiteRDN + $strConfigurationNC
$objSite = GetObject($strSitePath)
dim $arrObjectBL[0]
$arrObjectBL[0] = "name"
;$arrObjectBL[0] = "siteObjectBL"
$objSite.GetInfoEx($arrObjectBL,0)
$arrSiteObjectBL = $objSite.GetEx("name")
;$arrSiteObjectBL = $objSite.GetEx("siteObjectBL")
?"value=" $arrSiteObjectBL[0]
exit 0
-Shawn
|
|
Top
|
|
|
|
|
#130486 - 2004-12-02 06:25 PM
Re: Help with enumerating Site Subnets
|
mmelanson
Fresh Scripter
Registered: 2002-02-05
Posts: 6
|
Similar error:
Script error : unknown command !
$objSite.GetInfoEx($arrObjectBL,0)
It does not seem to like $objSite.GetInfoEx
|
|
Top
|
|
|
|
|
#130488 - 2004-12-02 09:37 PM
Re: Help with enumerating Site Subnets
|
kholm
Korg Regular
Registered: 2000-06-19
Posts: 714
Loc: Randers, Denmark
|
Mark,
I have cleaned Your KiX-code
(The functions: String() and Array() dosn't exist in KiX)
The following code works for me.
Code:
$strSiteRDN = "cn=XXXX"
; Change XXXX to the site You want to check
$objRootDSE = GetObject("LDAP://RootDSE")
$strConfigurationNC = $objRootDSE.Get("configurationNamingContext")
$strSitePath = "LDAP://" + $strSiteRDN + ",cn=Sites," + $strConfigurationNC
$objSite = GetObject($strSitePath)
$arrSite = "siteObjectBL",""
$objSite.GetInfoEx($arrSite, 0)
$arrSiteObjectBL = $objSite.GetEx("siteObjectBL")
"Subnets on site: " + SubStr($strSiteRDN,4)
For Each $strSiteObjectBL In $arrSiteObjectBL
? Split(Split($strSiteObjectBL, ",")[0],"=")[1]
Next
-Erik
|
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
1 registered
(mole)
and 1300 anonymous users online.
|
|
|
