Dim Machine As String = TextBox1.Text
        Dim User As String = Me.TextBox2.Text
        Dim Domain As String = Me.TextBox3.Text
        Dim Password As String = Me.TextBox4.Text
        Dim options As New ConnectionOptions
        options.Username = Domain + "\\" + User
        options.Password = Password
        Dim Pfad As New ManagementPath("\\" + Machine + "\root\cimv2")
        Dim scopeRemoteMachine As New ManagementScope(Pfad)
        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