Dim Machine As String = "Max"
        Dim Pfad As New ManagementPath("\\" & Machine & "\root\cimv2")
 
        Dim options As New ConnectionOptions
        options.Username = "ISG\Administrator"
        options.Password = "dasistwohlgeheim"
 
        Dim scopeRemoteMachine As New ManagementScope(Pfad, options)
        Dim queryDrives As New ObjectQuery("SELECT * FROM Win32_Service")
        Dim searcherDrives As New ManagementObjectSearcher(scopeRemoteMachine, _
          queryDrives)
        Dim objectDrives As ManagementObject
        For Each objectDrives In searcherDrives.Get
            ComboBox1.Items.Add(objectDrives("name"))
        Next