strComputer="DC01"
Set objComputer=GetObject("WinNT://" &strcomputer)
objComputer.Filter=Array("user")
For Each item In objComputer
    If InStr(1,item.Description,"Delete User",vbTextCompare) Then
        WScript.Echo "Deleting " & item.Name
        objComputer.Delete "user", item.name
    End If
Next