Pull computer names from AD, and NET SEND to list.

I have a script that currently pulls all of the computer names in Active Directory, and puts them into a spreadsheet. What I am having trouble with now, is figuring out how to send a NET SEND message to all of the computers in that list. Any help would be appreciated.

Here is the script I currently have.

[code]
Const ADS_SCOPE_SUBTREE = 2

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True
objExcel.Workbooks.Add

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

Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 100
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
    "SELECT Name FROM " _
        & "'LDAP://dc=****,dc=***' WHERE " _
            & "objectCategory='computer'"  
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
x = 1

Do Until objRecordSet.EOF
    objExcel.Cells(x, 1).Value = _
        objRecordSet.Fields("Name").Value
   
    x = x + 1
    objRecordSet.MoveNext
Loop

Set objRange = objExcel.Range("A1")
objRange.Activate

Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()

[/code]