Connect to a remote computer and displays information about the operating system on the remote computer. : Management « Windows « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows
3. Management

Imports System
Imports System.Management
Public Class RemoteConnect

    Public Overloads Shared Function Main(ByVal args() As String) As Integer
        Dim options As ConnectionOptions
        options = New ConnectionOptions

        Dim scope As ManagementScope
        scope = New ManagementScope("\\FullComputerName\root\cimv2", options)
        scope.Connect()

        Dim query As ObjectQuery
        query = New ObjectQuery("SELECT * FROM Win32_OperatingSystem")
        Dim searcher As ManagementObjectSearcher
        searcher = New ManagementObjectSearcher(scope, query)

        Dim queryCollection As ManagementObjectCollection
        queryCollection = searcher.Get()

        Dim m As ManagementObject
        For Each m In queryCollection
            Console.WriteLine("Computer Name : {0}",m("csname"))
            Console.WriteLine("Windows Directory : {0}",m("WindowsDirectory"))
            Console.WriteLine("Operating System: {0}",m("Caption"))
            Console.WriteLine("Version: {0}", m("Version"))
            Console.WriteLine("Manufacturer : {0}",m("Manufacturer"))
        Next
        Return 0
    End Function
End Class