VBS Benutzerverwaltung mit NT4
Ich erstelle mir eine Benutzerverwaltung mit VBS. Benötige alelrdings noch ein paar Befehle...
Hallo,
wie schon oben geschrieben, fehlen mir noch ein paar Befehle für NT4 Server und VBS. Da mittlerweile die Beispiele für NT4 recht Rar sind (warum nur ) finde ich leider nichts passendes.
Ich benötige noch Befehle, zum auslesen aller Benutzer innerhalb einer Domäne und ebenfalls ellaer Gruppen. Bei LDAP und AD ist es recht einfach mit dem Objekt sAMAccount, allerdings funktioniert dies leider unter NT4 nicht.
Ich hoffe es kann mir jemand helfen und mir die Systnax nennen.
Ich habe auch schon an die DOS net user und net account Option gedacht, allerdings wollte ich versuchen eine reine VBS Lösung zur Verfügung zustellen.
Ich danke euch mal wieder recht herzlich
Gruß
Marc
Hallo,
wie schon oben geschrieben, fehlen mir noch ein paar Befehle für NT4 Server und VBS. Da mittlerweile die Beispiele für NT4 recht Rar sind (warum nur ) finde ich leider nichts passendes.
Ich benötige noch Befehle, zum auslesen aller Benutzer innerhalb einer Domäne und ebenfalls ellaer Gruppen. Bei LDAP und AD ist es recht einfach mit dem Objekt sAMAccount, allerdings funktioniert dies leider unter NT4 nicht.
Ich hoffe es kann mir jemand helfen und mir die Systnax nennen.
Ich habe auch schon an die DOS net user und net account Option gedacht, allerdings wollte ich versuchen eine reine VBS Lösung zur Verfügung zustellen.
Ich danke euch mal wieder recht herzlich
Gruß
Marc
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 69370
Url: https://administrator.de/forum/vbs-benutzerverwaltung-mit-nt4-69370.html
Ausgedruckt am: 23.12.2024 um 12:12 Uhr
1 Kommentar
Es gibt einen WINNT Provider für ADSI.
Eine kurze Übersicht findest du hier: http://msluder.dk/Resources/ADSI%20SDK%205%20HTML/winnt.htm
Enumerate Group in a Domain or Computer
'------------------------------------
' ENUMERATING GROUPS IN A DOMAIN
'------------------------------------
Set dom = GetObject("WinNT://INDEPENDENCE")
dom.Filter = Array("Group")
'--- Local Group
Debug.Print "Local Groups---"
For Each grp In dom
If (grp.GroupType = ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP) Then
Debug.Print grp.Name
End If
Next
'-- Global Group
Debug.Print "Global Groups---"
For Each grp In dom
If (grp.GroupType = ADS_GROUP_TYPE_GLOBAL_GROUP) Then
Debug.Print grp.Name
End If
Next
Eine kurze Übersicht findest du hier: http://msluder.dk/Resources/ADSI%20SDK%205%20HTML/winnt.htm
Enumerate Group in a Domain or Computer
'------------------------------------
' ENUMERATING GROUPS IN A DOMAIN
'------------------------------------
Set dom = GetObject("WinNT://INDEPENDENCE")
dom.Filter = Array("Group")
'--- Local Group
Debug.Print "Local Groups---"
For Each grp In dom
If (grp.GroupType = ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP) Then
Debug.Print grp.Name
End If
Next
'-- Global Group
Debug.Print "Global Groups---"
For Each grp In dom
If (grp.GroupType = ADS_GROUP_TYPE_GLOBAL_GROUP) Then
Debug.Print grp.Name
End If
Next