Vbscript to create sites on a windows 2008 DC

Hello,

I am trying to use this script provided by MS to create a site on my windows
2008 DC:

However, it does not work. I get an error saying:There is a naming violation

for line:

Set objSite = objSitesContainer.Create("site", strSiteRDN)
objSite.SetInfo

Here is the script. Is it not intended to work in windows 2008?

Thanks!

strSiteRDN = "cn=Ga-Atl-Sales"
strSiteLinkRDN = "cn=DEFAULTIPSITELINK"
strSiteLinkType = "IP"

Const ADS_PROPERTY_APPEND = 3

Set objRootDSE = GetObject("LDAP://RootDSE")
strConfigurationNC = objRootDSE.Get("configurationNamingContext")
strSitesContainer = "LDAP://cn=Sites," & strConfigurationNC

Set objSitesContainer = GetObject(strSitesContainer)

Set objSite = objSitesContainer.Create("site", strSiteRDN)
objSite.SetInfo

Set objLicensingSiteSettings = objSite.Create("licensingSiteSettings", _
"cn=Licensing Site Settings")
objLicensingSiteSettings.SetInfo

Set objNtdsSiteSettings = objSite.Create("nTDSSiteSettings", _
"cn=NTDS Site Settings")
objNtdsSiteSettings.SetInfo

Set objServersContainer = objSite.Create("serversContainer", "cn=Servers")
objServersContainer.SetInfo

strSiteLinkPath = "LDAP://" & strSiteLinkRDN & ",cn=" & strSiteLinkType & _
",cn=Inter-Site Transports,cn=Sites," & strConfigurationNC

Set objSiteLink = GetObject(strSiteLinkPath)
objSiteLink.PutEx ADS_PROPERTY_APPEND, "siteList", _
Array(objSite

Hello Dipti,

I am not that scripting guy, but maybe this one helps:
http://gallery.technet.microsoft.com...1-9583d2b7a6ad

Where did you find this one?

Best regards

Meinolf Weber
Disclaimer: This posting is provided "AS IS" with no warranties, and confers
no rights.
** Please do NOT email, only reply to Newsgroups
** HELP us help YOU!!! http://www.blakjak.demon.co.uk/mul_crss.htm


> Hello,
>
> I am trying to use this script provided by MS to create a site on my
> windows 2008 DC:
>
> However, it does not work. I get an error saying:There is a naming
> violation
>
> for line:
>
> Set objSite = objSitesContainer.Create("site", strSiteRDN)
> objSite.SetInfo
>
> Here is the script. Is it not intended to work in windows 2008?
>
> Thanks!
>
> strSiteRDN = "cn=Ga-Atl-Sales"
> strSiteLinkRDN = "cn=DEFAULTIPSITELINK"
> strSiteLinkType = "IP"
> Const ADS_PROPERTY_APPEND = 3
>
> Set objRootDSE = GetObject("LDAP://RootDSE")
> strConfigurationNC = objRootDSE.Get("configurationNamingContext")
> strSitesContainer = "LDAP://cn=Sites," & strConfigurationNC
> Set objSitesContainer = GetObject(strSitesContainer)
>
> Set objSite = objSitesContainer.Create("site", strSiteRDN)
> objSite.SetInfo
>
> Set objLicensingSiteSettings = objSite.Create("licensingSiteSettings",
> _
> "cn=Licensing Site Settings")
> objLicensingSiteSettings.SetInfo
> Set objNtdsSiteSettings = objSite.Create("nTDSSiteSettings", _
> "cn=NTDS Site Settings")
> objNtdsSiteSettings.SetInfo
> Set objServersContainer = objSite.Create("serversContainer",
> "cn=Servers") objServersContainer.SetInfo
>
> strSiteLinkPath = "LDAP://" & strSiteLinkRDN & ",cn=" &
> strSiteLinkType & _
> ",cn=Inter-Site Transports,cn=Sites," & strConfigurationNC
> Set objSiteLink = GetObject(strSiteLinkPath)
> objSiteLink.PutEx ADS_PROPERTY_APPEND, "siteList", _
> Array(objSite

Hi Dipti,
Did you run the script with account who has access to create sites in
forest?

thanks

--
Rahisuddin Shah
MCSE, MCSA, ITIL
Disclaimer: This posting is provided "AS IS" with no warranties, and confers
no rights.

"Dipti Seth" <> wrote in message
news:291A5D28-01BC-4FF1-91BD-...
> Hello,
>
> I am trying to use this script provided by MS to create a site on my
> windows
> 2008 DC:
>
> However, it does not work. I get an error saying:There is a naming
> violation
>
> for line:
>
> Set objSite = objSitesContainer.Create("site", strSiteRDN)
> objSite.SetInfo
>
> Here is the script. Is it not intended to work in windows 2008?
>
> Thanks!
>
> strSiteRDN = "cn=Ga-Atl-Sales"
> strSiteLinkRDN = "cn=DEFAULTIPSITELINK"
> strSiteLinkType = "IP"
>
> Const ADS_PROPERTY_APPEND = 3
>
> Set objRootDSE = GetObject("LDAP://RootDSE")
> strConfigurationNC = objRootDSE.Get("configurationNamingContext")
> strSitesContainer = "LDAP://cn=Sites," & strConfigurationNC
>
> Set objSitesContainer = GetObject(strSitesContainer)
>
> Set objSite = objSitesContainer.Create("site", strSiteRDN)
> objSite.SetInfo
>
> Set objLicensingSiteSettings = objSite.Create("licensingSiteSettings", _
> "cn=Licensing Site Settings")
> objLicensingSiteSettings.SetInfo
>
> Set objNtdsSiteSettings = objSite.Create("nTDSSiteSettings", _
> "cn=NTDS Site Settings")
> objNtdsSiteSettings.SetInfo
>
> Set objServersContainer = objSite.Create("serversContainer", "cn=Servers")
> objServersContainer.SetInfo
>
> strSiteLinkPath = "LDAP://" & strSiteLinkRDN & ",cn=" & strSiteLinkType &
> _
> ",cn=Inter-Site Transports,cn=Sites," & strConfigurationNC
>
> Set objSiteLink = GetObject(strSiteLinkPath)
> objSiteLink.PutEx ADS_PROPERTY_APPEND, "siteList", _
> Array(objSite