none
Criar grupo usando VBScript RRS feed

  • 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=" & strNewGp

    Set 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.setInfo

    Wscript.Quit

    ' End of Simple Group VBScript.

     

     

    Obrigada.

    segunda-feira, 18 de fevereiro de 2008 16:35

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
     
     
     
    quinta-feira, 21 de fevereiro de 2008 00:54

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
     
     
     
    quinta-feira, 21 de fevereiro de 2008 00:54
  • 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.

    quinta-feira, 21 de fevereiro de 2008 10:58
  • Obrigada.

    Sua informação foi muito valida.

    Consegui resolver o meu problema.

    quinta-feira, 21 de fevereiro de 2008 13:48