Query a computer account exists in AD

[ScriptedIT]

I've looked though ADFunctions and it does this for users but not computers. There is also a "create the computer and then see if it complained it already existed." Still I just want to know if it exists. Is this possible?

[weaponx]

I found this vbscript snippet which might give some hints.

CODE

Function isComputerAccountExists(host)

Dim conn, cmd , rs

Set conn = CreateObject("ADODB.Connection")

Set cmd = CreateObject("ADODB.Command")

conn.provider = "adsdsoobject"

conn.open "active directory provider"

cmd.activeconnection = conn

cmd.commandtext = ";(&(objectcategory=computer)(objectclass=computer)(cn=" & host & "));cn;subtree"

Set rs = cmd.Execute

If rs.recordcount = 0 Then

isComputerAccountExists = False

Else

isComputerAccountExists = True

End If

End Function