Keskustelu: Ohjelmointikysymykset: VB6: Pakettien lähetys prosessin käyttämään serveriin (VB.NET)

' Luo Class Library projekti: GetEverythingYouNeed
' Luo projektiin luokka: FromTheNetwork
' HUOM! Vaihda Class1.vb tai NewClass.vb nimeksi: FromTheNetwork.vb
' ja lisää projektiin GAC:sta erikseen referenssi: System.Net

Imports System
Imports System.Net
Imports System.Net.NetworkInformation

Imports System.Runtime.InteropServices
<ClassInterface(ClassInterfaceType.AutoDual)> _
<ComVisible(True)> _
<ProgId("GetEverythingYouNeed.FromTheNetwork")> _
Public Class FromTheNetwork
	Friend InfoStr As String = String.Empty

   <ComVisible(True)> _
   Public Function GetAddress() As String
   Dim properties As IPGlobalProperties = _
      IPGlobalProperties.GetIPGlobalProperties()
      InfoStr += "Computer name: " + properties.HostName.ToString
      InfoStr += Environment.NewLine
      InfoStr += "Domain name:   "  + properties.DomainName.ToString
      InfoStr += Environment.NewLine
      InfoStr += "Node type:     " + properties.NodeType.ToString
      InfoStr += Environment.NewLine
      InfoStr += "DHCP scope:    " + properties.DhcpScopeName.ToString
      InfoStr += Environment.NewLine
      InfoStr += "WINS proxy:    " + properties.IsWinsProxy.ToString

      InfoStr += Environment.NewLine+ Environment.NewLine

      Dim Interfaces As NetworkInterface() = _
      NetworkInterface.GetAllNetworkInterfaces

      Dim iface As Object

      For Each iface In Interfaces
         GetIPAddresses(iface.GetIPProperties)
      Next

      Return InfoStr: InfoStr = Nothing

   End Function

   Private Sub GetIPAddresses( _
   ByVal adapterProperties As IPInterfaceProperties)

      Dim dnsServers As IPAddressCollection  = _
      adapterProperties.DnsAddresses

      If Not dnsServers Is Nothing Then
            For Each dns As System.Net.IPAddress in dnsServers
                  InfoStr += "DNS Servers ......................... : " _
                  + dns.ToString + Environment.Newline
            Next
      End If

      Dim anyCast As IPAddressInformationCollection = _
      adapterProperties.AnycastAddresses

      If Not anyCast Is Nothing Then

            For Each any as IPAddressInformation in anyCast

                  InfoStr +=  "Anycast Address ....................... : " _
                  +  any.Address.ToString  + Environment.Newline _
                  +  "Transient: " + any.IsTransient.ToString _
                  +  Environment.Newline _
                  +  "DNS Eligible: " + any.IsDnsEligible.ToString _
                  +  Environment.Newline
            Next
      End If

      Dim multiCast  As MulticastIPAddressInformationCollection = _
      adapterProperties.MulticastAddresses

      If Not multiCast Is Nothing Then

            For Each multi As IPAddressInformation in multiCast

                  InfoStr += "Multicast Address ................... : " _
                  +  multi.Address.ToString _
                  +  Environment.Newline _
                  + "Transient: " + multi.IsTransient.ToString _
                  +  Environment.Newline _
                  + "DNS Eligible: " + multi.IsDnsEligible.ToString _
                  +  Environment.Newline
            Next
      End If

      Dim uniCast As UnicastIPAddressInformationCollection = _
      adapterProperties.UnicastAddresses

      If Not uniCast Is Nothing Then

         Dim lifeTimeFormat As String  = _
         "dddd, MMMM dd, yyyy  hh:mm:ss tt"

         For Each uni As UnicastIPAddressInformation in uniCast

            Dim xwhen As DateTime

            InfoStr += "Unicast Address ..................... : " _
            + uni.Address.ToString  +  Environment.Newline _
            +         "Prefix Origin ....................... : " _
            +  uni.PrefixOrigin.ToString  +  Environment.Newline _
            +         "Suffix Origin ....................... : " _
            + uni.SuffixOrigin.ToString  +  Environment.Newline _
            +         "Duplicate Address Detection ......... : "  _
            + uni.DuplicateAddressDetectionState.ToString _
            +  Environment.Newline

            xwhen = DateTime.UtcNow + _
            TimeSpan.FromSeconds(uni.AddressValidLifetime)
            xwhen = xwhen.ToLocalTime()
            InfoStr += "Valid Life Time ..................... : " _
            + xwhen.ToString(lifeTimeFormat, _
            System.Globalization.CultureInfo.CurrentCulture) _
            +  Environment.Newline

            xwhen = DateTime.UtcNow + _
            TimeSpan.FromSeconds(uni.AddressPreferredLifetime)
            xwhen = xwhen.ToLocalTime()
            InfoStr += "Preferred life time ................. : " _
            + xwhen.ToString(lifeTimeFormat, _
            System.Globalization.CultureInfo.CurrentCulture) _
            +  Environment.Newline

            xwhen = DateTime.UtcNow + _
            TimeSpan.FromSeconds(uni.DhcpLeaseLifetime)
            xwhen = xwhen.ToLocalTime()
            InfoStr +=  "DHCP Leased Life Time ............... : " _
            + xwhen.ToString(lifeTimeFormat, _
            System.Globalization.CultureInfo.CurrentCulture) _
            +  Environment.Newline
         Next

      End If

   End Sub

'*** ennen projektin kääntämistä:
' Valitse: Project -> Project Options
' Valitse välilehti: Signign
' Ruksaa: Sign the assembly
' Valitse pudotusvalikosta: Create
' Klikkaa: OK
' Tallenna ja käännä projekti...
End Class