How to Report SMS Site Boundaries
Published : April 11, 2005
This script displays the site boundaries for all SMS sites that report to the site where the script is run, including the boundaries for the site where the script is run.
Site assignment data is held in SMS_SCI_SiteAssignment.
For additional information about planning site boundaries, see Planning Site Boundaries and Roaming Boundaries.
On This Page
Example
Compiling the Code
See Also
Example
Sub Level( parent, depth )
Dim Sites
Dim Site
Dim Descr
Dim Boundaries
Dim i
Set Sites = objSWbemServices.ExecQuery("Select * From SMS_Site Where ReportingSiteCode='"+parent+"'")
For Each Site In Sites
'Descriptive info for site.
Descr=Left( SPACE( depth*3 ) & Site.SiteName + " ("+Site.SiteCode+") ", 29)
Descr=Descr & SPACE(30-LEN(Descr))
wscript.echo descr
Set boundaries=objSWbemServices.Get("SMS_SCI_SiteAssignment.SiteCode='"+site.sitecode+"',Filetype=1,ItemName='Site Assignment',ItemType='Site Assignment'")
For i=0 to ubound(boundaries.AssignDetails)
Wscript.Echo space(len(descr)) & boundaries.AssignTypes(i) & ": " & boundaries.AssignDetails(i)
Next
Level Site.SiteCode, depth+1
Next
End Sub
Dim Sitecode
Dim objSWbemLocator
Dim objSWbemServices
Sitecode = "SITECODE"
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer( , "root\sms\site_" & sitecode )
Level "", 0
Compiling the Code
Requires Windows 2000 Server SP2 or later.
Requires an SMS 2003 Site Server.