Visual Basic

Dim RootDSE As ActiveDs.IADs
Dim oComputer As ActiveDs.IADsComputer
Dim DNC As String
Set RootDSE = GetObject("LDAP://rootDSE")
DNC = RootDSE.Get("defaultNamingContext")
Dim strADsPath As String
Dim ArrayofComputers() As String
Dim i As Integer

Const ADS_SCOPE_SUBTREE = 2

Dim objConnection As New ADODB.Connection
Dim objCommand As New ADODB.Command
Dim objRecordSet As ADODB.Recordset

objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
    "SELECT ADsPath FROM 'LDAP://" & DNC & "' WHERE objectCategory='computer'"

Err.Clear

Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF

    i = i + 1
    ReDim Preserve ArrayofComputers(i)
    
    strADsPath = objRecordSet.Fields("ADsPath").Value
    
    Set oComputer = GetObject(strADsPath)
    'the previous line throws an error
    ArrayofComputers(i) = oComputer.Name
    objRecordSet.MoveNext

Loop '

Function SendEmail(ByVal mBody As String, ByVal mSubject As String, ByVal mFrom As String, ByVal mTo As String, Optional ByVal mCC As String = "", Optional ByVal mBCC As String = "", Optional ByVal pDisplayName As String = "", Optional ByVal pIsBodyHtml As Boolean = False, Optional ByVal pPriority As MailPriority = MailPriority.Normal, Optional ByVal AttPath As String = "") As Integer
        Dim Mail As New System.Net.Mail.MailMessage
        Dim counter As Integer = 0
        Dim MailAddList() As String
        Dim MailList As String
        
        Dim Smtp As New SmtpClient
        Try
            With Mail
                .From = New System.Net.Mail.MailAddress(mFrom.Trim, pDisplayName)
                '---- Insert Recepient mail(To) ----
                MailAddList = Split(mTo, ";")
                For Each MailList In MailAddList
                    .To.Add(MailList)
                Next
                .Priority = pPriority
                .IsBodyHtml = pIsBodyHtml
                '---- Insert CC ----
                If mCC <> "" Then
                    MailAddList = Split(mCC, ";")
                    For Each MailList In MailAddList
                        '.To.Add(MailList)
                        .CC.Add(MailList)
                    Next
                End If
                '---- Insert Bcc ----
                If mBCC <> "" Then
                    '.Bcc.Add(mBCC.Trim)
                    MailAddList = Split(mBCC, ";")
                    For Each MailList In MailAddList
                        .Bcc.Add(MailList)
                    Next
                End If
                .Subject = CStr(mSubject).Trim
                .Body = mBody.Trim
                .DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
                'Atach File
                AttFileName = New Attachment(AttPath)
                Mail.Attachments.Add(AttFileName)

            End With
            Smtp.Host = CStr("company.test.com.kh")  'It's replace the IP
            Smtp.Port = 25
            Dim myCredential As New System.Net.NetworkCredential("UserName", "Password")
            Smtp.DeliveryMethod = SmtpDeliveryMethod.PickupDirectoryFromIis
            Smtp.Credentials = myCredential

            Smtp.Send(Mail)
            '----- Delay process 10seconds ------'
            System.Threading.Thread.Sleep(10000)
            '-----------------------------------'
            Return 0
        Catch ex As Exception
            ErrorMessage = ex.Message
            Return -1
        Finally
            If Mail IsNot Nothing Then Mail.Dispose()
            Mail = Nothing
            Smtp = Nothing
        End Try

    End Function