Remove a Computer From a Domain (ADSI/VB Script)

Category:

Windows 2000/XP

Type:

Snippets

Difficulty:

Beginning

Author:

Francis Danta

Version Compatibility: Visual Basic.NET, Visual Basic Script

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

' ****************************************************************************
' This script removes a computer from a domain
' ****************************************************************************
' 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" )