Удаление пользователя из AD с занесением в журнал событий

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

Const EVENT_SUCCESS = 0

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

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


Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.LogEvent EVENT_SUCCESS, oMessage