VBScript som kan oprette en bruger i en gruppe

hvis du nu søger efter NT-account (samaccountname) med set objUser=(WinNT://"NetbiosDomain"/ & strMember,User)

NetBiosDomain... Er ikke den vilde netværkshaj endnu ;)

Men hvordan finder jeg mit mit "NetbiosDomain"??? Håber på et hurtigt svar.

det er formentlig "domaene" jævnfør ovenstående.

Når du logger på med en PC (som er med i domænet), så er det navnet, som står i 3. felt (brugernavn, password og domæne).

Sådan, har prøvet med begge og begge fejler???
set objUser = (WinNT://domaene.int/" & strMember,User)
set objUser = (WinNT://domaene.int/" & strMember & ",User)

For den fejler med: compilation error: expected ')'

any ideas?

se scriptcenter.itms.dk

her er der er en masse vbs scripts fra ms scriptcenter, her er der flere måder og oprette bruger på via vbs

set objUser = GetObject("WinNT://DOMD/" & strMember)
objGroup.Add objUser.AdsPath

Fandt lige selv en fejl... God morgen til mig *G*

Nu crasher den bare i næste linie... Burde den ikke kunne finde stien????

prøv lige og poste hele scriptet

Const ADS_PROPERTY_APPEND = 3

Set objGroup = GetObject _
  ("LDAP://cn=Sea-Users,cn=Users,dc=NA,dc=fabrikam,dc=com")

objGroup.PutEx ADS_PROPERTY_APPEND, "member", _
    Array("cn=Scientists,ou=R&D,dc=NA,dc=fabrikam,dc=com", _
      "cn=Executives,ou=Management,dc=NA,dc=fabrikam,dc=com", _
      "cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")

objGroup.SetInfo

dette script opretter myerken og gør ham medlem af to grupper

Problemet er at mine bruger ligger i mange forskellige grupper, så skal have søgt AD gennem dynamisk på en eller anden måde...

Sub FindUser(strMember)
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open "Provider=ADsDSOObject;"
   
    Set objCommand = CreateObject("ADODB.Command")
    objCommand.ActiveConnection = objConnection
    objCommand.CommandText = ";" & "(&(objectCategory=User)(objectClass=User)(name= " & strMember & "));" & "AdsPath,Name;subtree"
   
    Set objRecordSet = objCommand.Execute
    strMember = objRecordset.Fields("AdsPath")
    objConnection.Close
End Sub


Men her fejler CommandText, nogen som kan se fejlen?

kan du skrive den nøjagtige fejl ?

Fejlbesked:"Provider: One or more errors"

Er et 100 % at den er galt med

";" & "(&(objectCategory=User)(objectClass=User)(name= " & strMember & "));" & "AdsPath,Name;subtree"

Nogen som kan se fejlen???

prøv og printe denne streng ud og fortæl os hvad den skriver

";" & "(&(objectCategory=User)(objectClass=User)(name= " & strMember & "));" & "AdsPath,Name;subtree"

Fandt selv løsningen.... Til andres som skulle ind i det samme problem...


strMember = "TESTUSER"
strDomainGroup = "TESTGROUP"


Call FindUser(strMember)
Call AddMember(strDomainGroup, strMember)


Sub AddMember(strDomainGroup, strMember)
    Set objGroup = GetObject("LDAP://hvor din gruppe ligger")
    objGroup.Add strMember
End Sub


Sub FindUser(strMember)
    ' Get the configuration naming context.
    Set objRootDSE = GetObject("LDAP://RootDSE")
    varDomainNC = objRootDSE.Get("defaultNamingContext")

    ' Build the query to find the user (User1) based on the alias.
    strQuery = "<LDAP://" & varDomainNC & ">;(mailNickName=" & strMember &    ");distinguishedname,ADsPath;subtree"
   
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open "Provider=ADsDSOObject;"
   
    Set objCommand = CreateObject("ADODB.Command")
    objCommand.ActiveConnection = objConnection
    objCommand.CommandText = strQuery
   
    Set objRecordSet = objCommand.Execute
    strMember = objRecordset.Fields("AdsPath")
    WScript.Echo strMember
    objConnection.Close
End Sub

Ups.. Andres=Andre