The following code will delete the passed computer name (e.g., “delme”) from the alibutt domain.
Dim objDC
Dim strComputer, strDomain
strComputer = “delme”
strDomain = “alibutt”
Set objDC = getobject(“WinNT://” & strDomain )
objDC.Delete “Computer”, strComputer