Jag använder följande (fungerande) kod för att lista samtliga användare i ett AD. Hur skriver jag detta med en LDAP istället? Har inte riktigt greppat skillnaden. Det jag vill uppnå sen är att lista samtliga användare i ett visst OU, och det är väl lättare att specificiera sökvägen med en LDAP istället? Jag tyckte jag svarade dig i ditt förra inlägg!? Med din hjälp kan jag nu lista användare i en grupp, men fortfarande inte i ett OU. Det finns användare i ett OU som inte tillhör någon grupp. Därför tänkte jag att man lättare kunde selektera med hjälp av LDAP, för där skriver man OU= DC= osv. Problemet är att jag inte vet hur det fungerar. Har du kollat på mitt inlägg, det ska inte ta hänsyn till grupp, den listar bara alla kontakter som finns i OUt och som hör till objektkategorin Person och objektklassen user, med andra ord, den bör lista alla dina användare, testa att utlämna någon av variablerna, ex.vis objektkategorin... Stort tack Hobbe! Jag måste ha missförstått dig vad gäller group och OU, jag testade din kod och nu fungerar det att lista samtliga medlemmar i ett OU. En liten fråga till bara. Jag löste det genom att ange namnet i en LDAP istället: Anledning till att det inte fungerar i WinNT gränssnittet beror på att det söker på användarnamnet, och något sådant finns inte "snobben snus" däremot finns det en container CN i LDAP directoryt som heter Snobben SnusLista användare i Active Directory
<%@ LANGUAGE = VBSCRIPT%>
<HTML>
<HEAD>
<TITLE>Användare</TITLE>
</HEAD>
<BODY>
<H1>Användare</H1>
<%
Dim objDomain
Set objDomain = GetObject("WinNT://hnab.se")
Response.Write"<TABLE border=1>"
For Each objUser In objDomain
Response.Write "<TR><TD>"
Response.Write objUSER.Name
Response.Write "</TD><TD>"
Response.Write objUSER.ADsPath
Response.Write "</TD></TR>"
Next
Response.Write "</TABLE>"
%>
</BODY>
</HTML>Sv: Lista användare i Active Directory
Kolla inlägget: [AD: Lista användare i ett visst OU]
Funka det inte? Vad var det som inte funka? Hur långt kom du?
hnab.se hehe... jag satt i projekt som utvecklade deras website en gång i tiden, det var på den gamla goda tiden då jag bodde i Linkan...
Sitter man fortfarande i GWS och utvecklar siten?Sv: Lista användare i Active Directory
En till fråga. Jag inaktiverar ett konto med hjälp av följande kod:
---
Set oUser = GetObject("WinNT://domän/username")
oUser.AccountDisabled = True
oUser.SetInfo
Set oUser = Nothing
---
och listar samtliga användare i en viss grupp med följande kod:
---
Set oGroup = GetObject("WinNT://hnab.se/Domain Users")
For each oUser in oGroup.Members
Response.Write oUser.Name & "<br>"
Next
Set oGroup = Nothing
---
Kan jag när jag loopar alla användare skriva ut om kontot är aktivt eller inte?
Typ:
if account = disabled then
response.write "Inaktivt"
else
response.write "Aktivt"
end if
Sv: Lista användare i Active Directory
Det skulle innebära att du får tillbaka en lista på alla användare i OUt.
Angående disabled se nedan.
Genom att vända på steken kan man få reda på om det är disbled eller ej
i ditt exempel skulle du kunna använda följande
<code>
If oUser.AccountDisabled Then
Response.Write "Inaktivt konto"
Else
Response.Write "Aktivt konto"
End If
</code>
Klippt från MS:
<code>
Dim usr As IADsUser
On Error GoTo Cleanup
Set usr = GetObject("LDAP:// CN=JeffSmith, OU=Sales, DC=Fabrikam, DC=Com")
usr.AccountDisabled = TRUE ' Disable the account.
usr.SetInfo
Cleanup:
If (Err.Number<>0) Then
MsgBox("An error has occurred. " & Err.Number)
End If
Set usr = Nothing
</code>Sv: Lista användare i Active Directory
I följande kod söker jag användare "snobben" i en domän.
Set oUser = GetObject("WinNT://domän/snobben")
Om jag däremot söker "snobben snus" fungerar det inte.
Set oUser = GetObject("WinNT://domän/snobben snus")
Det verkar ha något med mellanslaget att göra eftersom jag inte kan hämta någon användare med ett mellanslag i namnet. Något förslag?Sv: Lista användare i Active Directory
GetObject("LDAP://CN="snobben snus",OU=hund,DC=domän,DC=se")
Än en gång Hobbe, stort tack!Sv: Lista användare i Active Directory
Alltså, när du skriver WinNT://PDC/namn, är det användar namnet i PDCn som avses med namn. Tror jag. ;o)