Toon posts:

[2k] VBS - Controleren op bestaand OU

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ben voor windows2000 domain, scripts aan het schrijven voor het inbrengen van gebruikers, dit lukt vrij aardig.
Om de geautomatiseerd OU aan te maken heb ik een controle functie nodig om te controleren of de ou al bstaat, wie kan me een hint geven?

Ben zover:

User = WScript.Arguments.Item(0)
Locatie = WScript.Arguments.Item(1)
server = WScript.Arguments.Item(2)
groep = WScript.Arguments.Item(3)


Set objDomain = GetObject("LDAP://ou="& Locatie &",ou=leerling, -dc=server,dc=org")
Set objOU = objDomain.Create("organizationalUnit", "ou="& groep &"") -
objOU.SetInfo


Set objOU = GetObject("LDAP://OU="& groep &",ou="& Locatie &",ou=leerling, -dc=server,dc=org")
Set objUser = objOU.Create("User", "cn="& User &"")

Wscript.Echo ""& user &" in "& groep &" aangemaakt."

  • Spider.007
  • Registratie: December 2000
  • Niet online

Spider.007

* Tetragrammaton

Even het OS in de topictitle gezet; gelieven dit in het vervolg zelf even te doen :)

VBS Script Controleren op bestaand ou > [2k] VBS - Controleren op bestaand OU

---
Prozium - The great nepenthe. Opiate of our masses. Glue of our great society. Salve and salvation, it has delivered us from pathos, from sorrow, the deepest chasms of melancholy and hate


Verwijderd

Gewoon proberen om de OU te openen en dan controleren op een errorcode

code:
1
2
3
4
5
6
7
8
9
On Error Resume Next
Err.Clear
Set objContainer = GetObject _
  ("LDAP://ou=Test OU,dc=tailspintoys,dc=com")
If Err.Number <> 0 Then
    Wscript.echo  "OU does not exist"
Else
    Wscript.echo "OU already exist"
End if

[ Voor 23% gewijzigd door Verwijderd op 11-04-2004 16:43 ]


Verwijderd

Topicstarter
Bedankt _/-\o_

Kan dit ook voor controle als gebruiker reeds bestaat? welk commando?

  • mutsje
  • Registratie: September 2000
  • Laatst online: 07-05 09:20

mutsje

Certified Prutser

misschien moet je zelf eens google proberen want het lijkt er sterk op dat je weinig zelf zoekt(kan verkeerde impressie zijn maar toch).

Browse naar deze link en je krijgt honderden kant en klaar scripts van Microsoft.
script center

Verwijderd

Topicstarter
Zoek me rot, probeer van alles maar vind toch (nog) niet wat ik zoek. Ben niet zo handig in formuleren denk ik. :'( :D

  • elevator
  • Registratie: December 2001
  • Niet online

elevator

Officieel moto fan :)

Vertel dan maar even waar je zoal al opgezocht hebt? :)

Verwijderd

Topicstarter
Heb het gevonden was bovenste regel vergeten "On Error Resume Next". :( :(
Bedankt voor jullie geduld. 8)7
Pagina: 1