Script unlocken user op verschillende sites

[Baron]

In opvolging van onderstaande topic
[rml][ w2k] User unlocken in active directory[/rml]

Heb ik volgend scriptje gemaakt:

code:

option explicit
dim oUser, strObject
Call UnlockOnServer("server1")
Call UnlockOnServer("server2")
Call UnlockOnServer("server3")

Sub UnlockOnServer(ServerName)
strObject = "LDAP://" & ServerName & "/cn=" & WScript.Arguments(0) & ",OU=Users,OU=aaaa,DC=bbbb,DC=cccc,DC=dddd"
set oUser = GetObject(strObject)

if oUser.IsAccountLocked = -1 then 
  WScript.Echo "Account is locked on " & ServerName & ": " & vbCRLF
  oUser.IsAccountLocked = 0
  oUser.SetInfo
  WScript.Echo ("Account unlocked")
else
  WScript.Echo "Account is NOT locked on " & ServerName & ": " & vbCRLF
end if


End Sub

Als argument wordt de te unlocken gebruiker meegegeven.

Het werkt niet en ik kan de fout niet vinden