• Home
 · 
• Miscellaneous
 · 
• ADSI sample showing how remove a computer from a domain by deleting its computer account.

ADSI sample showing how remove a computer from a domain by deleting its computer account.

ADSI sample showing how remove a computer from a domain by deleting its computer account.

Rate ADSI sample showing how remove a computer from a domain by deleting its computer account.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' This script removes a computer from a domain by deleting its computer account

' Goto http://www.activxperts.com/activmonitor and click on ADSI Samples
' for more samples


Sub RemoveComputer( strDomain, strComputer )
    Dim objDC
    Set objDC = getobject("WinNT://" & strDomain )
    objDC.Delete( "Computer", strComputer )
End Sub



' Main

Dim strDomain, strComputer
Do
   strDomain = inputbox( "Please enter a domainname", "Input" )
Loop until strDomain <> ""
Do
   strComputer = inputbox( "Please the name of the computer to be removed from the domain", "Input" )
Loop until strComputer <> ""
RemoveComputer strDomain, strComputer
WScript.Echo "Done."

WScript.Echo( vbCrlf & "For more samples, goto http://www.activxperts.com/activmonitor and click" )
WScript.Echo( "on ADSI samples" )