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" )

Advertiser Disclosure: Some of the products that appear on this site are from companies from which QuinStreet receives compensation. This compensation may impact how and where products appear on this site including, for example, the order in which they appear. QuinStreet does not include all companies or all types of products available in the marketplace.