For i = 1 To Server.Count
                Label9.Text = " Scanne Rechner Nr.: " & i
                Dim Hostname As Net.IPHostEntry
                Hostname = Dns.GetHostEntry(Server(i - 1).ToString)
                Dim Abfrage As New WMI(Server(i - 1), connection.Username, _
                  TextBox3.Text, connection.Authority, MySQLVerbindung)
 
                ' Thread erstellen.
                Dim AbfrageThread As New Thread(AddressOf Abfrage.GetWMIData)
                AbfrageThread.Start()
 
 
                ' WMI_Abfragen.test(Hostname.HostName, Server(i) - 1)
                ProgressBar1.Value = i
 
            Next