Delete a computer from a domain

[Bhadrak]

I am running Windows XP with SP2 and it's already being added on a domain now i want to remove it from the domain which i had added it in other words the computer is not currently attached to the domain/network it's apart of so I can not remove it from the domain controller end. Can anyone help me out with this issue ?

[Naval]

If you really want to remove a computer from a domain then you need to right click on My computer then go to computer name tab over there you will find enter in a computer name that you want your computer click over it and then choose the Work Group option at the bottom and finally click on OK and reboot your.

[PinkShell]

I also want to remove a computer from a domain but i need to implement this in Visual Basic code, i have heard from my friends that it's possible but don't know what will be the code for it. Can anyone provide me the code for the same. Thanks in advance.

[Dr.pter]

I try to use the following code to search and delete computer account from non-domain workstation and it worked for me, hope it works for you too.

Const ADS_SCOPESUBTREE = 2
Const ADS_SECURE_AUTHENTICATION = 1
 
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Properties("User_ID") = "test\admin"
objConnection.Properties("Password") = "home"
objConnection.Properties("Encrypt_Password") = True
objConnection.Properties("ADSI Flag") = 1
 
strComputer = "test"
strDomain = "srv.test.com"
 
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties("Page Size") = 100
objCommand.Properties("Cache_Results") = False
objCommand.Properties("Search_scope") = ADS_SCOPESUBTREE
 
objCommand.CommandText = _
    "SELECT ADsPath FROM 'LDAP://" & strDomain & "' WHERE objectCategory='computer' " & _
        "AND Name='" & strComputer & "'"
Set objRecordSet = objCommand.Execute
 
objRecordSet.MoveFirst
 
strADsPath = ""
While Not objRecordSet.EOF
    strADsPath = objRecordSet.Fields("ADsPath").Value
    objRecordSet.MoveNext
Wend
If strADsPath = "" Then
      MsgBox "Computer not yet found."
Else
      MsgBox "Computer path: " & strADsPath
      Set objNS = GetObject("LDAP:")
      Set objComputer =  objNS.OpenDSObject(strADsPath, "test\admin", "home",ADS_SECURE_AUTHENTICATION)
        objComputer.DeleteObject (0)
End If