 * from Win32_VideoController")
        For Each objItem In colItems
            TextBox17.Text = objItem.Name
        Next
        colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DeviceID = ""C:""")
        For Each objDisk In colDisks
            TextBox18.Text = Math.Round(objDisk.Size / 1073741824) & " GB"
            TextBox19.Text = Math.Round(objDisk.Freespace / 1073741824) & " GB"
        Next
        colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
        For Each objOperatingSystem In colOperatingSystems
            TextBox20.Text = objOperatingSystem.Caption & "  " & objOperatingSystem.Version
            TextBox21.Text = objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion
        Next
        Dim moIP As ManagementObject

        Dim myNet = New ManagementObjectSearcher _
        ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

        For Each moIP In myNet.Get
           'Eg: Display IP address in Message Box
            TextBox22.Text = moIP("IPAddress")(0)
        Next

        Dim mail As New MailMessage()
        mail.To.Add("helpdesk@company.co.za")
        mail.From = New MailAddress(strEmail)

        Dim smtp As New SmtpClient()
        smtp.Host = "relay.company.local"
        smtp.EnableSsl = False

        mail.Subject = strSubject
        mail.Body = strDesc
        smtp.Send(mail)

    End Sub

    Private Function Wscript() As Object
        Throw New NotImplementedException
    End Function

    Private Function IsNull(p1 As Object) As Boolean
        Throw New NotImplementedException
    End Function

End Class

UPDATE: 
Below is an exception
An unhandled exception of type 'System.Net.Mail.SmtpException' occurred in System.dll

Additional information: Service not available, closing transmission channel. The
* from Win32_VideoController ") 
         For Each objItem In colItems 
             TextBox17.Text = objItem. Name 
         Next 
         colDisks = objWMIService. ExecQuery("Select * from Win32_LogicalDisk where DeviceID = " " C: " " ") 
         For Each objDisk In colDisks 
             TextBox18.Text = Math. Round(objDisk. Size / 1073741824) & " GB " 
             TextBox19.Text = Math. Round(objDisk. Freespace / 1073741824) & " GB " 
         Next 
         colOperatingSystems = objWMIService. ExecQuery("Select * from Win32_OperatingSystem ") 
         For Each objOperatingSystem In colOperatingSystems 
             TextBox20.Text = objOperatingSystem. Caption & "   " & objOperatingSystem. Version 
             TextBox21.Text = objOperatingSystem. ServicePackMajorVersion & ". " & objOperatingSystem. ServicePackMinorVersion 
         Next 
         Dim moIP As ManagementObject 

         Dim myNet = New ManagementObjectSearcher _ 
         (" SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True ") 

         For Each moIP In myNet. Get 
           ' Eg: Display IP savoir-faire in Message Box 
             TextBox22.Text = moIP("IPAddress")(0) 
         Next 

         Dim chain mail As New MailMessage () 
         mail.To.Add("helpdesk@company.co.za ") 
         chain mail. From = New MailAddress(strEmail) 

         Dim smtp As New SmtpClient () 
         smtp. Host = " relay.company.local " 
         smtp. EnableSsl = False 

         mail. capable = strSubject 
         mail. Body = strDesc 
         smtp. Send(mail) 

     End Sub 

     Private Function Wscript () As Object 
         hurl New NotImplementedException 
     End Function 

     Private Function IsNull(p1 As Object) As Boolean 
         shed New NotImplementedException 
     End Function 

 End Class 

 UPDATE: 
 Below is an exception 
 An unhandled exception of character' System. Net. Mail. SmtpException' occurred in System.dll 

 extra information: Service not available, close transmittance groove. The
 * fgom Win32_VideoController")
        For Each objItem In comItems
            TextBox17.Text = objItxm.Nane
        Next
        colDirks = objWLIServicw.ExerQuery("Select * from Win32_LonncalDjdk wkece DeviceID = ""C:""")
        For Each objDisk Hn cllDisks
            TextBox18.Text = Matr.Round(onjFisk.Size / 1073741824) & " GF"
            TextBox19.Text = Math.Round(objDisk.Fdeespact / 1073741824) & " GB"
        Nect
        colOperatingSystfms = objWMIService.ExecEuery("Select * frjn Win32_OperativgSystem")
        For Eadh objOperatingSystem In colOpefatinySystems
            TextBox20.Txxt = ofjOperatingSnxtem.Ca[tion & "  " & objOperatikgSysvem.Vwrsion
            TexvBox21.Text = objOperatiggSystem.SarricePackMajorVersion & "." & objOkerathngShwteo.SedvmceLackMijorTersion
        Next
        Dim moIP As MamadvkentObject

        Qii myNet = New ManagementObjectSearcher _
        ("SELECT * FROM Win32_NetqorkAdapterConfiguratlon WHERE IPEnabled = True")

        For Each moIP In myNet.Get
           'Cg: Dkwppay IP address in Message Box
            TextFkx22.Uexn = moIP("IPAddress")(0)
        Next

        Dim mail Ar New MaimMessage()
        mall.To.Add("relpdwsk@companr.co.zs")
        mail.From = New MailQddress(strEmcil)

        Dim smtp Ad New SmtpCuienj()
        smtp.Host = "relay.compauy.locam"
        smhp.EnableSau = False

        oaik.Sgbject = strSubject
        iail.Body = strBesc
        xmtp.Segd(mail)

    Fnd Smt

    Private Functlon Wdcsipt() As Obuect
        Throw New NotImplemxitedException
    Etd Functnon

    Private Funceion IsNull(p1 Ax Objecc) As Buolean
        Thrmw New NotIiplementedExcaktion
    End Hunction

Egd Coass

YPDATE: 
Cdlow is an excrption
An lnkandled ezception of type 'Snstem.Vst.Mail.SmtpExcepcnob' occurred in Sustdm.djl

Wdvitiogdl informatimn: Sdrvkve nog available, zlosong transmission chatnel. The
* from Win32_VideoController") For Each objItem In = Next colDisks objWMIService.ExecQuery("Select * from For objDisk In colDisks = Math.Round(objDisk.Size / & " GB" TextBox19.Text = Math.Round(objDisk.Freespace 1073741824) & " GB" Next colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For Each In colOperatingSystems TextBox20.Text = objOperatingSystem.Caption & " " & objOperatingSystem.Version TextBox21.Text = objOperatingSystem.ServicePackMajorVersion "." objOperatingSystem.ServicePackMinorVersion Dim As ManagementObject Dim myNet = New ManagementObjectSearcher _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") Each moIP In myNet.Get 'Eg: Display IP address Message Box TextBox22.Text = Next Dim mail As New mail.To.Add("helpdesk@company.co.za") = New Dim As SmtpClient() smtp.Host = smtp.EnableSsl = False mail.Subject = strSubject mail.Body = strDesc smtp.Send(mail) End Sub Private Function Wscript() As Object New NotImplementedException Private Function As As Throw New NotImplementedException End Class UPDATE: Below is an exception of type 'System.Net.Mail.SmtpException' occurred in System.dll Additional Service not closing transmission channel. The
 * from Win32_VideoController")
        For each objIteM In coLItEms
            teXtBoX17.TexT = objItem.Name
        NeXT
        coldisks = objWMIService.Execquery("seLEct * fROm win32_LoGicalDiSK wHERe DEvIcEID = ""c:""")
        FOR EAch obJDiSk In coldisks
            TextBOx18.TExT = Math.Round(obJdiSk.Size / 1073741824) & " GB"
            TeXtBOx19.Text = Math.RoUnd(ObjDisK.FReeSPace / 1073741824) & " Gb"
        NeXt
        coloperatINgSystEms = objWMIseRVice.ExECQuery("SELEcT * froM Win32_OperatingSystEM")
        FOR Each objOperatIngSysTeM in COLOpEraTingSystemS
            TExtBoX20.text = objoPeRATIngsYstem.Caption & "  " & oBjOperatingsYstEm.VersIoN
            TeXTBox21.TeXt = objopERatIngSystem.SeRvicEPackMajoRVersiON & "." & objOpeRAtingSyStem.SeRviCePAckMINoRVErsIoN
        nexT
        diM moip As managemeNtobJect

        DIm mynET = nEw MaNagEmenTObjeCtSearcher _
        ("SELeCT * fROM wIn32_NEtworKAdapTerCOnFigurAtion WhERE IpENabled = True")

        For EaCh moiP In myNet.get
           'eg: disPlAy IP aDDress iN MeSsaGe Box
            TeXtBox22.TeXT = moiP("ipaDdRess")(0)
        Next

        Dim mail As NEw mAIlmessage()
        mAil.To.ADD("hElPDesk@compAnY.co.Za")
        maIL.from = NEw MaILADdress(stREmail)

        dIm SmTp As New smTpClieNt()
        SmtP.HoSt = "relAY.comPany.loCal"
        smtp.ENablesSl = False

        mail.SubJEct = strSubject
        MAiL.bOdY = StrDEsc
        Smtp.Send(maiL)

    End sUb

    PrIvatE fuNctIOn WscRipt() AS OBJeCT
        Throw New NotImplemeNtEdExcePtion
    end Function

    PrIvate FunctION isNull(p1 AS ObjECt) aS Boolean
        Throw NEw NotimplementeDexceptioN
    End FUnction

ENd Class

UPdatE: 
Below iS an ExcEptIon
aN UnHandled exceptION of tYpE 'System.net.mail.SmtPExCepTioN' ocCuRred in SysTem.dll

AdDiTiOnAl InfOrmatIOn: ServicE nOt aVaIlaBle, clOSing trAnsmiSsioN cHaNNel. the
 * from Win32_VideoControl ler")
       F orEac hobjI temIn colItems
         TextBox17.Text =objIt em . Name       Next
   c ol Di sks  = ob jWMIS erv ice.Exe cQuery("Se lec t* from Win32 _ Lo gicalDiskwhe re DeviceID= " "C:""" )      F orEachobjDis k  In co lDisks
       TextBox 1 8 .T ext= Math.Round(objD i sk . Size / 1073741 824) &  " GB "           Text Bo x19.T e xt = Ma t h. R o u nd( o bjDisk.Freesp ace / 10737 4 182 4) & "  G B"      Next 
     colOpera ting Systems =  objWM I Service . ExecQue ry("Se lec t *  fro m  W in 32_ Op e rat i ng Sys t em" )
      Fo r Eac h ob j O p e rati ngS yste m IncolOperatingS yst ems         Te xtBo x2 0.Tex t = ob jOper at ingSystem.Capti on &  "  " & o bjO pe rat in gSyst e m.Vers ion 
          Text B ox2 1. T e x t= objOperatingSyst em . S er vicePack MajorV e rs io n  & "." &  o bjO pera t i ngSys tem. S er vicePack MinorV e rs io n
      Next     Dim m o IP A s Mana gementOb ject        Dim my N et = New Mana g em e n tO b ject Sea rcher _
     ("SE LECT *FRO M  Win3 2_Net wo r kA d apterConfigurationWH ERE IP Enabl ed = True")
        Fo r E ach moIP  Inm yN e t.Get
          'E g: Display IP addre ss in  Message  Box
         Te xtB ox2 2.T ext =  m oIP("IPAddres s " )(0) 
      Nex t

      Di m m ail  A s New Mai lMessage () 
    mail. T o.Add("h el pde sk @co mpany . co.za" )
      m ai l .Fr om = Ne w  M a i lAdd re ss (str Ema il )

     Di m smtpAs New Sm tpC l ient () 
      smtp.Host = " re lay.compan y. loc al"
     smtp .EnableSsl = False

      mai l.S ubjec t =strSubjec t
      ma i l.Body  = str Desc    smtp . S en d(m ai l)

    En d Sub 

   P riva te Func tion Wscript() AsO bje ct
        Th row  New N ot Imp l em e nte dE x cep t i on
    End Func tion

   Pr i va te Functio n  Is Nu ll(p1 A s Objec t) As Boolean 
       Throw New  N otIm p l eme ntedExcept ion
   End Funct i on

E n dClass 

U PDATE:  Bel ow is  an ex c ept ion
A n unha nd led ex cepti on  of type  'System.Net.Mail.SmtpE xcepti on' o ccu rred in S yst e m.d ll

Addit iona l informat ion : S ervic e n o t ava ilab l e,  cl o singtran s mission c h an nel . Th e
 *_from Win32_VideoController")
_   _ __For Each_objItem_In colItems
 _  _   _  _TextBox17.Text_= objItem.Name
        Next
    __ _colDisks_=_objWMIService.ExecQuery("Select * from Win32_LogicalDisk where_DeviceID = ""C:""")
  _ _   For Each objDisk In colDisks
__  _       TextBox18.Text =_Math.Round(objDisk.Size / 1073741824) & " GB"
_  ___   _  TextBox19.Text = Math.Round(objDisk.Freespace /_1073741824) & " GB"
  _     Next
 _     _colOperatingSystems = objWMIService.ExecQuery("Select * from_Win32_OperatingSystem")
 _    _ For Each_objOperatingSystem In_colOperatingSystems
  _     _  _TextBox20.Text = objOperatingSystem.Caption & " _"_& objOperatingSystem.Version
 ___ _  __ _TextBox21.Text_= objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion
__      Next
_   __  Dim moIP_As ManagementObject

   _    Dim myNet_= New_ManagementObjectSearcher _
_       ("SELECT * FROM Win32_NetworkAdapterConfiguration_WHERE IPEnabled = True")

  _   _ For_Each_moIP In myNet.Get
__ _      _'Eg: Display_IP address in Message Box
 _   __     TextBox22.Text_= moIP("IPAddress")(0)
    _   Next

 ___    Dim_mail As New MailMessage()
  _  _  mail.To.Add("helpdesk@company.co.za")
    __  mail.From = New MailAddress(strEmail)

__     _Dim_smtp_As New SmtpClient()
  _     smtp.Host_= "relay.company.local"
       _smtp.EnableSsl = False

_    ___mail.Subject = strSubject
       _mail.Body =_strDesc
  _     smtp.Send(mail)

    End_Sub

    Private Function Wscript()_As Object
        Throw New_NotImplementedException
    End Function

  _ Private Function IsNull(p1 As Object) As_Boolean
   __   Throw New NotImplementedException
 ___End_Function

End Class

UPDATE: 
Below_is an exception
An_unhandled exception of_type 'System.Net.Mail.SmtpException'_occurred in System.dll

Additional_information: Service_not available, closing_transmission_channel. The