'==========================================================================
'
'
' NAME: <DeleteUser.vbs>
'
' AUTHOR: Ed Wilson , MS
' DATE  : 10/28/2003
'
' COMMENT: <Uses adsi to delete an User>
'
'==========================================================================
Option Explicit
'On Error Resume Next
Dim strProvider 'defines how will talk. 
Dim strOU ' path to where new object will be created
Dim strDomain 'name of strDomain connecting to
Dim strClass ' the class of object we are creating
Dim strOUname 'name of object are creating
Dim objDomain 'holds connection to adsi
Dim objOU 'holds handle to create method

strprovider = "LDAP://"
strOU = "OU=mred," 'when using is OU=mred, THE , would be required.
strDomain = "dc=nwtraders,dc=msft"
strClass = "User"
strOUname = "CN=MyNewUser"


Set objDomain = GetObject(strProvider & strOU & strDomain)
objDomain.Delete strClass, strOUname

If Err.number = 0 Then
	WScript.Echo(strOUname & " was deleted")
Else If Err.number = "-2147016656" Then
	WScript.echo strOUname & " does not exist"
Else 
	WScript.echo " error on the play " & Err.Number
End If
End If