Usuário com melhor resposta
Criar grupo usando VBScript

Pergunta
-
Boa tarde, estou tentando criar grupos usando o vbsscript, mas tenho duvidas nos parametros que devo passar em:
LDAP://RootDSE - que caminho devo passar
objRootDSE.Get("DefaultNamingContext") - o que devo estar passando?
' Group.vbs
' ----------------------------------------------------------'Dim strOU, strGroup, strDNSDomain
Dim objOU, objGroup, objUser' Check -
strOU = "OU=Times,"
strNewGp = "testeldap"
strNewGpLong = "CN=" & strNewGpSet objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")' Create new Group
Set objOU = GetObject("LDAP://" & strOU & strDNSDomain )
Set objGroup = objOU.Create("Group",strNewGpLong)
objGroup.Put "sAMAccountName", strNewGp
objGroup.setInfoWscript.Quit
' End of Simple Group VBScript.
Obrigada.
Respostas
-
Aline,
Para assuntos relacionados a GRUPOS, por gentileza post no Forum de Windows Server...., no entanto segue abaixo o script que vc precisa, altere apenas os nomes:
Criando Grupo Global:
Set objOU = GetObject("LDAP://OU=management,dc=fabrikam,dc=com")
Set objGroup = objOU.Create("Group", "cn=atl-users02")
objGroup.Put "sAMAccountName", "atl-users02"
objGroup.SetInfo
Criando Grupo Global de Distribuiçao:
Const ADS_GROUP_TYPE_GLOBAL_GROUP = &h2
Set objOU = GetObject("LDAP://ou=R&D,dc=NA,dc=fabrikam,dc=com")
Set objGroup = objOU.Create("Group", "cn=Scientists")
objGroup.Put "sAMAccountName", "scientists"
objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP
objGroup.SetInfo
Todas as Respostas
-
Aline,
Para assuntos relacionados a GRUPOS, por gentileza post no Forum de Windows Server...., no entanto segue abaixo o script que vc precisa, altere apenas os nomes:
Criando Grupo Global:
Set objOU = GetObject("LDAP://OU=management,dc=fabrikam,dc=com")
Set objGroup = objOU.Create("Group", "cn=atl-users02")
objGroup.Put "sAMAccountName", "atl-users02"
objGroup.SetInfo
Criando Grupo Global de Distribuiçao:
Const ADS_GROUP_TYPE_GLOBAL_GROUP = &h2
Set objOU = GetObject("LDAP://ou=R&D,dc=NA,dc=fabrikam,dc=com")
Set objGroup = objOU.Create("Group", "cn=Scientists")
objGroup.Put "sAMAccountName", "scientists"
objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP
objGroup.SetInfo
-
Bom dia,
Pessoal nesse caso como o assunto é a criação de grupos com scripts à área correta é Scripts Administrativos, para onde o post foi movido.
Boa sorte.
-