Site Server Administrator Is Not Added to the Correct Groups with Createssadmin.vbs (250617)

WORKAROUND

	'LOCALIZED FOR SPANISH
	' Create SiteServer Administrator
	'
	On Error Resume Next
	Set oBuilder = GetObject("LDAP:")
	Set oADSContainer = oBuilder.OpenDSObject("LDAP://localhost/o=microsoft/ou=members","cn=administrator,ou=members,o=microsoft","password", 0)
	Set oAdmin = oADSContainer.Create("member","cn=SiteServer Administrator")
	oAdmin.Put "userPassword","password"
	oAdmin.Put "guid", "66C113EAB27539232424563ECB967ED2"
	oAdmin.SetInfo

	'
	' Add him to the SiteServer Administrators group:
	'
	Set oADSContainer = oBuilder.OpenDSObject("LDAP://localhost/o=microsoft/ou=groups/ou=NTgroups/cn=Administradores de SiteServer","cn=administrator,ou=members,o=microsoft","password", 0)
	Set oMemberOf = oADSContainer.Create("memberOf", "cn=SiteServer Administrator")
	oMemberOf.Put "memberObject", "cn=SiteServer Administrator,ou=members,o=microsoft"
	oMemberOf.SetInfo



	'
	' Add him to the SiteServer DirectMail Administrators group:
	'
	Set oADSContainer = oBuilder.OpenDSObject("LDAP://localhost/o=microsoft/ou=groups/ou=NTgroups/cn=Administradores de correo directo de Site Server","cn=administrator,ou=members,o=microsoft","password", 0)
	Set oMemberOf = oADSContainer.Create("memberOf", "cn=SiteServer Administrator")
	oMemberOf.Put "memberObject", "cn=SiteServer Administrator,ou=members,o=microsoft"
	oMemberOf.SetInfo


	'
	' Add him to the SiteServer DirectMail Operators  group:
	'
	Set oADSContainer = oBuilder.OpenDSObject("LDAP://localhost/o=microsoft/ou=groups/ou=NTgroups/cn=Operadores de correo directo de Site Server","cn=administrator,ou=members,o=microsoft","password", 0)
	Set oMemberOf = oADSContainer.Create("memberOf", "cn=SiteServer Administrator")
	oMemberOf.Put "memberObject", "cn=SiteServer Administrator,ou=members,o=microsoft"
	oMemberOf.SetInfo