vbscript: Getting "Unknown Error" (0x80005000) when connecting to LDAP (Windows Server 2008R2)

DeleteExistingComputerAccount

WScript.Quit(0)


' ===================================================================

Sub DeleteExistingComputerAccount()

    msgbox "Delete Existing"

    Const ADS_SCOPE_SUBTREE = 2

    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand =   CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"

    Set objCOmmand.ActiveConnection = objConnection
    objCommand.CommandText = "Select Name from 'LDAP://DC=altasens,DC=com' Where objectClass='computer'"  
    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

    Set objRecordSet = objCommand.Execute

    objRecordSet.MoveFirst

    Do Until objRecordSet.EOF

        'Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
        'Wscript.Echo "Location: " & objRecordSet.Fields("Location").Value

        If objRecordSet.Fields("Name").Value = ComputerName Then

        msgbox "found existing Computer account for " & ComputerName

            Set objComputer = GetObject("LDAP://CN=" & ComputerName & "CN=Computers,DC=altasens,DC=com")
            objComputer.DeleteObject (0)

            Exit Do

        End If

        objRecordSet.MoveNext

    Loop

End Sub


Function ComputerName()

    On Error Resume Next
   
    Dim objWMI : Set objWMI = GetObject("winmgmts:")
    Dim colSettingsComp : Set colSettings = objWMI.ExecQuery("Select * from Win32_ComputerSystem")
    Dim colSettingsBios : Set colSettingsBios = objWMI.ExecQuery("Select * from Win32_BIOS")
    Dim objComputer
   
    For Each objComputer in colSettingsBios
   
      ComputerName = Trim(objComputer.SerialNumber)
   
    Next
   
    On Error Goto 0

    If ComputerName = "" Then

        MsgBox "ERROR: Can't determine serial number",vbCritical, "Rename Local Machine"
        WScript.Quit(0)

    End If

End Function