NullReferenzeException

Hallo alle zusammen,

ich bin nicht gerade Fit in VB.Net und darum kann ich mit dem Fehler nichts anfangen. Unter VBA läuft das Ding aber unter VB.Net bleibt der Curser bei Next stehen und brungt eben diese Fehlermeldung. Ich weiß nicht was der Compiler von mir will..... Habe im Forum was gelesen das ich bei den Variablen vor Object noch das Wort New schreiben muss. Hat aber auch nichts geholfen.

Könnt ihr mir einen Tipp geben?

Gruß

Ralf

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim objWMI As New Object
Dim objInstances As New Object
Dim objInstance As New Object
Dim strServer As String
strServer = "PCL09077283"

objWMI = GetObject("winmgmts://" & strServer & "/root\cimv2")
objInstances = objWMI.InstancesOf("Win32_OperatingSystem", 48)

On Error Resume Next
For Each objInstance In objInstances
MsgBox(objInstance.BootDevice)
MsgBox(objInstance.BuildNumber)
MsgBox(objInstance.BuildType)
MsgBox(objInstance.Caption)
MsgBox(objInstance.CodeSet)
MsgBox(objInstance.CountryCode)
MsgBox(objInstance.CreationClassName)
MsgBox(objInstance.CSCreationClassName)
MsgBox(objInstance.CSDVersion)
MsgBox(objInstance.CSName)
MsgBox(objInstance.CurrentTimeZone)
MsgBox(objInstance.DataExecutionPrevention_32BitApplications)
MsgBox(objInstance.DataExecutionPrevention_Available)
MsgBox(objInstance.DataExecutionPrevention_Drivers)
MsgBox(objInstance.DataExecutionPrevention_SupportPolicy)
MsgBox(objInstance.Debug)
MsgBox(objInstance.Description)
MsgBox(objInstance.Distributed)
MsgBox(objInstance.EncryptionLevel)
MsgBox(objInstance.ForegroundApplicationBoost)
MsgBox(objInstance.FreePhysicalMemory)
MsgBox(objInstance.FreeSpaceInPagingFiles)
MsgBox(objInstance.FreeVirtualMemory)
MsgBox(objInstance.InstallDate)
MsgBox(objInstance.LargeSystemCache)
MsgBox(objInstance.LastBootUpTime)
MsgBox(objInstance.LocalDateTime)
MsgBox(objInstance.Locale)
MsgBox(objInstance.Manufacturer)
MsgBox(objInstance.MaxNumberOfProcesses)
MsgBox(objInstance.MaxProcessMemorySize)
MsgBox(objInstance.Name)
MsgBox(objInstance.NumberOfLicensedUsers)
MsgBox(objInstance.NumberOfProcesses)
MsgBox(objInstance.NumberOfUsers)
MsgBox(objInstance.Organization)
MsgBox(objInstance.OSLanguage)
MsgBox(objInstance.OSProductSuite)
MsgBox(objInstance.OSType)
MsgBox(objInstance.OtherTypeDescription)
MsgBox(objInstance.PAEEnabled)
MsgBox(objInstance.PlusProductID)
MsgBox(objInstance.PlusVersionNumber)
MsgBox(objInstance.Primary)
MsgBox(objInstance.ProductType)
MsgBox(objInstance.QuantumLength)
MsgBox(objInstance.QuantumType)
MsgBox(objInstance.RegisteredUser)
MsgBox(objInstance.SerialNumber)
MsgBox(objInstance.ServicePackMajorVersion)
MsgBox(objInstance.ServicePackMinorVersion)
MsgBox(objInstance.SizeStoredInPagingFiles)
MsgBox(objInstance.Status)
MsgBox(objInstance.SuiteMask)
MsgBox(objInstance.SystemDevice)
MsgBox(objInstance.SystemDirectory)
MsgBox(objInstance.SystemDrive)
MsgBox(objInstance.TotalSwapSpaceSize)
MsgBox(objInstance.TotalVirtualMemorySize)
MsgBox(objInstance.TotalVisibleMemorySize)
MsgBox(objInstance.Version)
MsgBox(objInstance.WindowsDirectory)
On Error GoTo 0
Next '!!!!!!!!!!!!!!!!!!!!!! DA bleibt das Programm stehen
End Sub

Imports System.Management
Module Module1
    Function Wmi() As String
        Dim ReturnStr As String = String.Empty
        Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _  
                "SELECT * FROM Win32_OperatingSystem")  
            For Each queryObj As ManagementObject In searcher.Get()
                For Each prop As PropertyData In queryObj.Properties
                    If prop.Value IsNot Nothing Then
                        ReturnStr &= prop.Name & ": " & prop.Value.ToString & vbCrLf  
                    End If
                Next
            Next
        Catch err As ManagementException
            ReturnStr = ("An error occurred while querying for WMI data: " & err.Message)  
        End Try
        Return ReturnStr
    End Function
    Sub Main()
        Console.Write(Wmi)
       Console.Write(vbCrLf & " Drücke eine beliebige Taste zum beenden")  
        Console.Read()
    End Sub
End Module

Private Function wmi(Byval WMIClass as String)
 Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _  
                "SELECT * FROM " & WMIClass)  
End Function

 Dim search As New ManagementObjectSearcher()
            search.Query = New ObjectQuery("SELECT * FROM Win32_OperatingSystem")  
            search.Scope = New ManagementScope("root\CIMV2")