Удаление пользователя из AD

Option Explicit
Dim provider 
Dim OU 
Dim domain 
Dim oClass 
Dim oCN 
Dim oUname 
Dim objDomain 

provider = "LDAP://"
OU = "ou=test,"
domain = "dc=domain,dc=com"
oClass = "User"
oCN = "CN="
oUname = "newUser"

Set objDomain = GetObject(provider & OU & domain)
objDomain.Delete oClass, oCN & oUname

WScript.Echo("User " & oUname & " was deleted")