' ' AnywhereTS-config ' 'Compiler constant PRO is defined in the Project DLL in project properties. 'This constant directs functions that are only available in the AnywhereTS Pro version. Imports System.CodeDom.Compiler Imports System.IO Imports System Imports System.Management Imports System.Security Imports System.Security.Principal Imports System.Threading Imports System.ServiceProcess Imports System.Net Imports System.Collections.Generic Public Class frmWizard Inherits System.Windows.Forms.Form Friend currentImage As ATSImage 'The config set that the wizzard currently is working against Dim WizardState As WizardPanel 'The Active Panel Const CrLf As String = Chr(13) & Chr(10) 'Useful "macro" to end lines with Const Lf As String = Chr(10) 'Useful "macro" to end lines with, Unix style Const strHubbaIP As String = "10.223.0.1" Const strHubbaMask As String = "255.255.0.0" Dim strAppdir As String Dim strTFTPSelectedAdapter As String 'Caption of adapter to serve TFTP, if there are more than one NIC. Chosen by user. Dim intDHCPcheck As Integer = 0 '0=user has not chosen, 1=external DHCP; TFTPD32 TFTP, 2=TFTPD32 DHCP/TFTP, 3=no DHCP/TFTP1 Dim intOldStep As Integer = 0 '0=Step 0, 2=Step 2, 101=Step 101 Dim intDHCPinst As Integer '0=Do not show DHCP instuktions, 1=show DHCP instuktions Dim Adapters() As String 'Network adapters Dim AdapterIP() As String 'IPs for adapters Dim strServerIP As String 'IP of server to connect to. Dim strDomain As String 'Logon Domain Name Dim bolInternalDHCP As Boolean 'True if the built in DHCP is to be used. Dim changedByUser As Boolean = True 'Used on some checkbox controls to determine if state was changed by user or code. Dim ManagedClient As Boolean Dim previousRemovableDrives As New list(Of DriveInfo) ' The last list of removable drives on this computer, as it looked the last time the drives were checked. Enum WizardPanel 'Ny ordnig server, Network, sound, Grafik, Display Managed_Panel Server_Panel ClientVersion_Panel Network_Panel ClientIP_Panel Sound_Panel Graphic_Panel BootDisplay_Panel ISO_Panel UpdateTFTP_Panel Finish_Panel RemovableMedia Distribution End Enum Friend WithEvents Label33 As System.Windows.Forms.Label Friend WithEvents Label51 As System.Windows.Forms.Label Friend WithEvents grpColorDepth As System.Windows.Forms.GroupBox Friend WithEvents grpScreenResFree As System.Windows.Forms.GroupBox Friend WithEvents pnlStepIPConf As System.Windows.Forms.Panel Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents pnlClientIPSet As System.Windows.Forms.Panel Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents txtNetClientDNS1 As System.Windows.Forms.TextBox Friend WithEvents Label48 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents txtNetClientGateway As System.Windows.Forms.TextBox Friend WithEvents txtNetClientMask As System.Windows.Forms.TextBox Friend WithEvents txtNetClientIP As System.Windows.Forms.TextBox Friend WithEvents pnlManagedClient As System.Windows.Forms.Panel Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents txtNetClientTFTP As System.Windows.Forms.TextBox Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents Label21 As System.Windows.Forms.Label Friend WithEvents txtNetClientDNS2 As System.Windows.Forms.TextBox Friend WithEvents chkRefresh As System.Windows.Forms.CheckBox Friend WithEvents btnAdvancedOptions As System.Windows.Forms.Button Friend WithEvents Panel3 As System.Windows.Forms.Panel Friend WithEvents cmdPrevious As System.Windows.Forms.Button Friend WithEvents cboThisServer As System.Windows.Forms.ComboBox Friend WithEvents txtNetClientDNSSuffix As System.Windows.Forms.TextBox Friend WithEvents Label25 As System.Windows.Forms.Label Friend WithEvents HelpProvider As System.Windows.Forms.HelpProvider Friend WithEvents lblOtherResolutions As System.Windows.Forms.LinkLabel Friend WithEvents pnlCitrixPN As System.Windows.Forms.Panel Friend WithEvents grpScreenResPro As System.Windows.Forms.GroupBox Private WithEvents Label30 As System.Windows.Forms.Label Private WithEvents Label34 As System.Windows.Forms.Label Private WithEvents txtScreenResY As System.Windows.Forms.TextBox Private WithEvents txtScreenResX As System.Windows.Forms.TextBox Private WithEvents Label35 As System.Windows.Forms.Label Private WithEvents Label37 As System.Windows.Forms.Label Private WithEvents tbrScreenResolution As Dotnetrix.Controls.TrackBar Friend WithEvents pnlStepManaged As System.Windows.Forms.Panel Friend WithEvents Label41 As System.Windows.Forms.Label Friend WithEvents radManaged As System.Windows.Forms.RadioButton Friend WithEvents radUnmanaged As System.Windows.Forms.RadioButton Friend WithEvents pnlStepEval As System.Windows.Forms.Panel Friend WithEvents radFreeClient As System.Windows.Forms.RadioButton Friend WithEvents radProClient As System.Windows.Forms.RadioButton Friend WithEvents Label15 As System.Windows.Forms.Label Friend WithEvents Label45 As System.Windows.Forms.Label Friend WithEvents Label46 As System.Windows.Forms.Label Friend WithEvents Label42 As System.Windows.Forms.Label Friend WithEvents Label50 As System.Windows.Forms.Label Friend WithEvents Label49 As System.Windows.Forms.Label Friend WithEvents radBootImageCustom As System.Windows.Forms.RadioButton Friend WithEvents btnCustomBootImage As System.Windows.Forms.Button Friend WithEvents btnHelp As System.Windows.Forms.Button Friend WithEvents pnlDistribution As System.Windows.Forms.Panel Friend WithEvents Label52 As System.Windows.Forms.Label Friend WithEvents Label53 As System.Windows.Forms.Label Friend WithEvents Label54 As System.Windows.Forms.Label Friend WithEvents pnlRemovableMedia As System.Windows.Forms.Panel Friend WithEvents Label55 As System.Windows.Forms.Label Friend WithEvents lblSelectDrives As System.Windows.Forms.Label Friend WithEvents Label57 As System.Windows.Forms.Label Friend WithEvents radBootUSB As System.Windows.Forms.RadioButton Friend WithEvents radBootHardDiskViaUSB As System.Windows.Forms.RadioButton Friend WithEvents radBootHardDiskViaCD As System.Windows.Forms.RadioButton Friend WithEvents radBootCD As System.Windows.Forms.RadioButton Friend WithEvents radBootNetwork As System.Windows.Forms.RadioButton Friend WithEvents Label61 As System.Windows.Forms.Label Friend WithEvents Label60 As System.Windows.Forms.Label Friend WithEvents Label59 As System.Windows.Forms.Label Friend WithEvents Label58 As System.Windows.Forms.Label Friend WithEvents lstRemovableDrives As System.Windows.Forms.ListBox Friend WithEvents pnlAttachRemovableDrive As System.Windows.Forms.Panel Friend WithEvents timerRemovableMedia As System.Windows.Forms.Timer Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox Friend WithEvents Label62 As System.Windows.Forms.Label Friend WithEvents rtxFinished As System.Windows.Forms.RichTextBox Friend WithEvents pnlWritingToRemovableDrive As System.Windows.Forms.Panel Friend WithEvents lblWritingClientToDrive As System.Windows.Forms.Label Friend WithEvents cboConnection As System.Windows.Forms.ComboBox Friend WithEvents Label38 As System.Windows.Forms.Label Friend WithEvents lblDomainDesc As System.Windows.Forms.Label Friend WithEvents txtDomain As System.Windows.Forms.TextBox Friend WithEvents chkDomain As System.Windows.Forms.CheckBox Friend WithEvents lblDomain As System.Windows.Forms.Label Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents txtCitrixResource As System.Windows.Forms.TextBox Friend WithEvents txtCitrixServerURL As System.Windows.Forms.TextBox Friend WithEvents pnlApplicationSet As System.Windows.Forms.Panel Friend WithEvents txtApplicationSet As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon 'True only during the first activation of the main form (just after the app has been started). Dim bolRestartComputer As Boolean 'True only if user needs to restart computer to get setting activated. #Region " Windows Form Designer generated code " Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents cmdNext As System.Windows.Forms.Button Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents Label22 As System.Windows.Forms.Label Friend WithEvents Label23 As System.Windows.Forms.Label Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents Label19 As System.Windows.Forms.Label Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents Label27 As System.Windows.Forms.Label Friend WithEvents Label28 As System.Windows.Forms.Label Friend WithEvents Label29 As System.Windows.Forms.Label Friend WithEvents Label31 As System.Windows.Forms.Label Friend WithEvents Label32 As System.Windows.Forms.Label Friend WithEvents pnlStepServer As System.Windows.Forms.Panel Friend WithEvents pnlStepLogo As System.Windows.Forms.Panel Friend WithEvents pnlStepGraph As System.Windows.Forms.Panel Friend WithEvents pnlStepNet As System.Windows.Forms.Panel Friend WithEvents pnlStepSound As System.Windows.Forms.Panel Friend WithEvents ttpHelp As System.Windows.Forms.ToolTip Friend WithEvents lblThisComputer As System.Windows.Forms.Label Friend WithEvents pnlLogos As System.Windows.Forms.Panel Friend WithEvents radGraph16bit As System.Windows.Forms.RadioButton Friend WithEvents radGraph24bit As System.Windows.Forms.RadioButton Friend WithEvents Label36 As System.Windows.Forms.Label Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents pnlStepISO As System.Windows.Forms.Panel Friend WithEvents radThisComputer As System.Windows.Forms.RadioButton Friend WithEvents txtServerIP As System.Windows.Forms.TextBox Friend WithEvents radImageBoot As System.Windows.Forms.RadioButton Friend WithEvents radTextBoot As System.Windows.Forms.RadioButton Friend WithEvents radImage4 As System.Windows.Forms.RadioButton Friend WithEvents radImage3 As System.Windows.Forms.RadioButton Friend WithEvents radImage2 As System.Windows.Forms.RadioButton Friend WithEvents radImage1 As System.Windows.Forms.RadioButton Friend WithEvents Label40 As System.Windows.Forms.Label Friend WithEvents Label43 As System.Windows.Forms.Label Friend WithEvents pnlStepFinished As System.Windows.Forms.Panel Friend WithEvents Label39 As System.Windows.Forms.Label Friend WithEvents Label24 As System.Windows.Forms.Label Friend WithEvents pnlStepTFTP As System.Windows.Forms.Panel Friend WithEvents radGraph1280 As System.Windows.Forms.RadioButton Friend WithEvents radGraph640 As System.Windows.Forms.RadioButton Friend WithEvents radGraph800 As System.Windows.Forms.RadioButton Friend WithEvents radGraph1024 As System.Windows.Forms.RadioButton Friend WithEvents radGraphThisDriver As System.Windows.Forms.RadioButton Friend WithEvents radGraphAuto As System.Windows.Forms.RadioButton Friend WithEvents cmdISOChoose As System.Windows.Forms.Button Friend WithEvents txtISOChoose As System.Windows.Forms.TextBox Friend WithEvents radNetThisDriver As System.Windows.Forms.RadioButton Friend WithEvents radNetAuto As System.Windows.Forms.RadioButton Friend WithEvents radNetClientIP As System.Windows.Forms.RadioButton Friend WithEvents radSndNo As System.Windows.Forms.RadioButton Friend WithEvents radSndThisDriver As System.Windows.Forms.RadioButton Friend WithEvents radSndAuto As System.Windows.Forms.RadioButton Friend WithEvents lblServerIP As System.Windows.Forms.Label Friend WithEvents radServerAnother As System.Windows.Forms.RadioButton Friend WithEvents cboGraphThisDriver As System.Windows.Forms.ComboBox Friend WithEvents cboSndThisDriver As System.Windows.Forms.ComboBox Friend WithEvents cboNetThisDriver As System.Windows.Forms.ComboBox Friend WithEvents radNetUseDHCP As System.Windows.Forms.RadioButton Friend WithEvents btnDebug As System.Windows.Forms.Button Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWizard)) Me.cmdNext = New System.Windows.Forms.Button Me.pnlStepServer = New System.Windows.Forms.Panel Me.pnlCitrixPN = New System.Windows.Forms.Panel Me.Label13 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.txtCitrixResource = New System.Windows.Forms.TextBox Me.txtCitrixServerURL = New System.Windows.Forms.TextBox Me.pnlApplicationSet = New System.Windows.Forms.Panel Me.txtApplicationSet = New System.Windows.Forms.TextBox Me.Label2 = New System.Windows.Forms.Label Me.lblDomainDesc = New System.Windows.Forms.Label Me.txtDomain = New System.Windows.Forms.TextBox Me.chkDomain = New System.Windows.Forms.CheckBox Me.lblDomain = New System.Windows.Forms.Label Me.Label38 = New System.Windows.Forms.Label Me.txtServerIP = New System.Windows.Forms.TextBox Me.cboConnection = New System.Windows.Forms.ComboBox Me.lblServerIP = New System.Windows.Forms.Label Me.cboThisServer = New System.Windows.Forms.ComboBox Me.radServerAnother = New System.Windows.Forms.RadioButton Me.radThisComputer = New System.Windows.Forms.RadioButton Me.Label16 = New System.Windows.Forms.Label Me.Label17 = New System.Windows.Forms.Label Me.lblThisComputer = New System.Windows.Forms.Label Me.pnlStepLogo = New System.Windows.Forms.Panel Me.Label14 = New System.Windows.Forms.Label Me.btnCustomBootImage = New System.Windows.Forms.Button Me.radBootImageCustom = New System.Windows.Forms.RadioButton Me.radImageBoot = New System.Windows.Forms.RadioButton Me.radTextBoot = New System.Windows.Forms.RadioButton Me.Label23 = New System.Windows.Forms.Label Me.pnlLogos = New System.Windows.Forms.Panel Me.radImage4 = New System.Windows.Forms.RadioButton Me.radImage3 = New System.Windows.Forms.RadioButton Me.radImage2 = New System.Windows.Forms.RadioButton Me.radImage1 = New System.Windows.Forms.RadioButton Me.PictureBox4 = New System.Windows.Forms.PictureBox Me.PictureBox3 = New System.Windows.Forms.PictureBox Me.PictureBox2 = New System.Windows.Forms.PictureBox Me.PictureBox1 = New System.Windows.Forms.PictureBox Me.Label22 = New System.Windows.Forms.Label Me.btnAdvancedOptions = New System.Windows.Forms.Button Me.pnlStepGraph = New System.Windows.Forms.Panel Me.grpScreenResPro = New System.Windows.Forms.GroupBox Me.Label30 = New System.Windows.Forms.Label Me.Label34 = New System.Windows.Forms.Label Me.txtScreenResY = New System.Windows.Forms.TextBox Me.txtScreenResX = New System.Windows.Forms.TextBox Me.Label35 = New System.Windows.Forms.Label Me.Label37 = New System.Windows.Forms.Label Me.tbrScreenResolution = New Dotnetrix.Controls.TrackBar Me.chkRefresh = New System.Windows.Forms.CheckBox Me.grpScreenResFree = New System.Windows.Forms.GroupBox Me.lblOtherResolutions = New System.Windows.Forms.LinkLabel Me.radGraph1280 = New System.Windows.Forms.RadioButton Me.radGraph640 = New System.Windows.Forms.RadioButton Me.radGraph1024 = New System.Windows.Forms.RadioButton Me.radGraph800 = New System.Windows.Forms.RadioButton Me.grpColorDepth = New System.Windows.Forms.GroupBox Me.radGraph24bit = New System.Windows.Forms.RadioButton Me.radGraph16bit = New System.Windows.Forms.RadioButton Me.Label36 = New System.Windows.Forms.Label Me.cboGraphThisDriver = New System.Windows.Forms.ComboBox Me.radGraphThisDriver = New System.Windows.Forms.RadioButton Me.radGraphAuto = New System.Windows.Forms.RadioButton Me.Label19 = New System.Windows.Forms.Label Me.Label20 = New System.Windows.Forms.Label Me.pnlStepNet = New System.Windows.Forms.Panel Me.Panel3 = New System.Windows.Forms.Panel Me.Label29 = New System.Windows.Forms.Label Me.radNetClientIP = New System.Windows.Forms.RadioButton Me.radNetUseDHCP = New System.Windows.Forms.RadioButton Me.cboNetThisDriver = New System.Windows.Forms.ComboBox Me.radNetThisDriver = New System.Windows.Forms.RadioButton Me.radNetAuto = New System.Windows.Forms.RadioButton Me.Label28 = New System.Windows.Forms.Label Me.Label27 = New System.Windows.Forms.Label Me.pnlStepSound = New System.Windows.Forms.Panel Me.radSndNo = New System.Windows.Forms.RadioButton Me.cboSndThisDriver = New System.Windows.Forms.ComboBox Me.radSndThisDriver = New System.Windows.Forms.RadioButton Me.radSndAuto = New System.Windows.Forms.RadioButton Me.Label31 = New System.Windows.Forms.Label Me.Label32 = New System.Windows.Forms.Label Me.pnlStepISO = New System.Windows.Forms.Panel Me.cmdISOChoose = New System.Windows.Forms.Button Me.txtISOChoose = New System.Windows.Forms.TextBox Me.Label33 = New System.Windows.Forms.Label Me.Label51 = New System.Windows.Forms.Label Me.ttpHelp = New System.Windows.Forms.ToolTip(Me.components) Me.pnlStepTFTP = New System.Windows.Forms.Panel Me.Label24 = New System.Windows.Forms.Label Me.Label43 = New System.Windows.Forms.Label Me.Label40 = New System.Windows.Forms.Label Me.pnlStepFinished = New System.Windows.Forms.Panel Me.rtxFinished = New System.Windows.Forms.RichTextBox Me.Label39 = New System.Windows.Forms.Label Me.btnDebug = New System.Windows.Forms.Button Me.pnlStepIPConf = New System.Windows.Forms.Panel Me.Label10 = New System.Windows.Forms.Label Me.Label11 = New System.Windows.Forms.Label Me.pnlManagedClient = New System.Windows.Forms.Panel Me.Label9 = New System.Windows.Forms.Label Me.txtNetClientTFTP = New System.Windows.Forms.TextBox Me.Label5 = New System.Windows.Forms.Label Me.pnlClientIPSet = New System.Windows.Forms.Panel Me.Label25 = New System.Windows.Forms.Label Me.txtNetClientDNSSuffix = New System.Windows.Forms.TextBox Me.Label21 = New System.Windows.Forms.Label Me.txtNetClientDNS2 = New System.Windows.Forms.TextBox Me.Label12 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.txtNetClientDNS1 = New System.Windows.Forms.TextBox Me.Label48 = New System.Windows.Forms.Label Me.Label7 = New System.Windows.Forms.Label Me.txtNetClientGateway = New System.Windows.Forms.TextBox Me.txtNetClientMask = New System.Windows.Forms.TextBox Me.txtNetClientIP = New System.Windows.Forms.TextBox Me.Label8 = New System.Windows.Forms.Label Me.Label6 = New System.Windows.Forms.Label Me.cmdPrevious = New System.Windows.Forms.Button Me.HelpProvider = New System.Windows.Forms.HelpProvider Me.pnlStepManaged = New System.Windows.Forms.Panel Me.Label50 = New System.Windows.Forms.Label Me.radManaged = New System.Windows.Forms.RadioButton Me.radUnmanaged = New System.Windows.Forms.RadioButton Me.Label41 = New System.Windows.Forms.Label Me.Label49 = New System.Windows.Forms.Label Me.pnlStepEval = New System.Windows.Forms.Panel Me.Label46 = New System.Windows.Forms.Label Me.Label45 = New System.Windows.Forms.Label Me.Label42 = New System.Windows.Forms.Label Me.radFreeClient = New System.Windows.Forms.RadioButton Me.radProClient = New System.Windows.Forms.RadioButton Me.Label15 = New System.Windows.Forms.Label Me.btnHelp = New System.Windows.Forms.Button Me.pnlDistribution = New System.Windows.Forms.Panel Me.Label61 = New System.Windows.Forms.Label Me.Label60 = New System.Windows.Forms.Label Me.Label59 = New System.Windows.Forms.Label Me.Label58 = New System.Windows.Forms.Label Me.radBootUSB = New System.Windows.Forms.RadioButton Me.radBootHardDiskViaUSB = New System.Windows.Forms.RadioButton Me.radBootHardDiskViaCD = New System.Windows.Forms.RadioButton Me.radBootCD = New System.Windows.Forms.RadioButton Me.radBootNetwork = New System.Windows.Forms.RadioButton Me.Label52 = New System.Windows.Forms.Label Me.Label53 = New System.Windows.Forms.Label Me.Label54 = New System.Windows.Forms.Label Me.pnlRemovableMedia = New System.Windows.Forms.Panel Me.pnlWritingToRemovableDrive = New System.Windows.Forms.Panel Me.lblWritingClientToDrive = New System.Windows.Forms.Label Me.pnlAttachRemovableDrive = New System.Windows.Forms.Panel Me.Label57 = New System.Windows.Forms.Label Me.lblSelectDrives = New System.Windows.Forms.Label Me.Label62 = New System.Windows.Forms.Label Me.PictureBox5 = New System.Windows.Forms.PictureBox Me.lstRemovableDrives = New System.Windows.Forms.ListBox Me.Label55 = New System.Windows.Forms.Label Me.timerRemovableMedia = New System.Windows.Forms.Timer(Me.components) Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) Me.pnlStepServer.SuspendLayout() Me.pnlCitrixPN.SuspendLayout() Me.pnlApplicationSet.SuspendLayout() Me.pnlStepLogo.SuspendLayout() Me.pnlLogos.SuspendLayout() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlStepGraph.SuspendLayout() Me.grpScreenResPro.SuspendLayout() CType(Me.tbrScreenResolution, System.ComponentModel.ISupportInitialize).BeginInit() Me.grpScreenResFree.SuspendLayout() Me.grpColorDepth.SuspendLayout() Me.pnlStepNet.SuspendLayout() Me.Panel3.SuspendLayout() Me.pnlStepSound.SuspendLayout() Me.pnlStepISO.SuspendLayout() Me.pnlStepTFTP.SuspendLayout() Me.pnlStepFinished.SuspendLayout() Me.pnlStepIPConf.SuspendLayout() Me.pnlManagedClient.SuspendLayout() Me.pnlClientIPSet.SuspendLayout() Me.pnlStepManaged.SuspendLayout() Me.pnlStepEval.SuspendLayout() Me.pnlDistribution.SuspendLayout() Me.pnlRemovableMedia.SuspendLayout() Me.pnlWritingToRemovableDrive.SuspendLayout() Me.pnlAttachRemovableDrive.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'cmdNext ' Me.cmdNext.Location = New System.Drawing.Point(440, 296) Me.cmdNext.Name = "cmdNext" Me.cmdNext.Size = New System.Drawing.Size(112, 23) Me.cmdNext.TabIndex = 103 Me.cmdNext.Text = "Next >" ' 'pnlStepServer ' Me.pnlStepServer.Controls.Add(Me.pnlCitrixPN) Me.pnlStepServer.Controls.Add(Me.pnlApplicationSet) Me.pnlStepServer.Controls.Add(Me.lblDomainDesc) Me.pnlStepServer.Controls.Add(Me.txtDomain) Me.pnlStepServer.Controls.Add(Me.chkDomain) Me.pnlStepServer.Controls.Add(Me.lblDomain) Me.pnlStepServer.Controls.Add(Me.Label38) Me.pnlStepServer.Controls.Add(Me.txtServerIP) Me.pnlStepServer.Controls.Add(Me.cboConnection) Me.pnlStepServer.Controls.Add(Me.lblServerIP) Me.pnlStepServer.Controls.Add(Me.cboThisServer) Me.pnlStepServer.Controls.Add(Me.radServerAnother) Me.pnlStepServer.Controls.Add(Me.radThisComputer) Me.pnlStepServer.Controls.Add(Me.Label16) Me.pnlStepServer.Controls.Add(Me.Label17) Me.pnlStepServer.Controls.Add(Me.lblThisComputer) Me.pnlStepServer.Enabled = False Me.pnlStepServer.Location = New System.Drawing.Point(0, 0) Me.pnlStepServer.Name = "pnlStepServer" Me.pnlStepServer.Size = New System.Drawing.Size(560, 288) Me.pnlStepServer.TabIndex = 7 Me.pnlStepServer.Visible = False ' 'pnlCitrixPN ' Me.pnlCitrixPN.Controls.Add(Me.Label13) Me.pnlCitrixPN.Controls.Add(Me.Label1) Me.pnlCitrixPN.Controls.Add(Me.txtCitrixResource) Me.pnlCitrixPN.Controls.Add(Me.txtCitrixServerURL) Me.pnlCitrixPN.Location = New System.Drawing.Point(18, 76) Me.pnlCitrixPN.Name = "pnlCitrixPN" Me.pnlCitrixPN.Size = New System.Drawing.Size(367, 100) Me.pnlCitrixPN.TabIndex = 1 Me.pnlCitrixPN.Visible = False ' 'Label13 ' Me.Label13.Location = New System.Drawing.Point(17, 31) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(74, 18) Me.Label13.TabIndex = 33 Me.Label13.Text = "Resource:" ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(17, 5) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(74, 18) Me.Label1.TabIndex = 34 Me.Label1.Text = "Server URL:" ' 'txtCitrixResource ' Me.txtCitrixResource.AutoCompleteCustomSource.AddRange(New String() {"Microsoft Terminal Server (RDP)", "Citrix ICA connection", "Citrix Application Set", "Citrix Program Neighborhood"}) Me.txtCitrixResource.Location = New System.Drawing.Point(163, 29) Me.txtCitrixResource.MaxLength = 200 Me.txtCitrixResource.Name = "txtCitrixResource" Me.txtCitrixResource.Size = New System.Drawing.Size(182, 20) Me.txtCitrixResource.TabIndex = 2 ' 'txtCitrixServerURL ' Me.txtCitrixServerURL.AutoCompleteCustomSource.AddRange(New String() {"Microsoft Terminal Server (RDP)", "Citrix ICA connection", "Citrix Application Set", "Citrix Program Neighborhood"}) Me.txtCitrixServerURL.Location = New System.Drawing.Point(163, 3) Me.txtCitrixServerURL.MaxLength = 200 Me.txtCitrixServerURL.Name = "txtCitrixServerURL" Me.txtCitrixServerURL.Size = New System.Drawing.Size(182, 20) Me.txtCitrixServerURL.TabIndex = 1 ' 'pnlApplicationSet ' Me.pnlApplicationSet.Controls.Add(Me.txtApplicationSet) Me.pnlApplicationSet.Controls.Add(Me.Label2) Me.pnlApplicationSet.Location = New System.Drawing.Point(18, 238) Me.pnlApplicationSet.Name = "pnlApplicationSet" Me.pnlApplicationSet.Size = New System.Drawing.Size(350, 36) Me.pnlApplicationSet.TabIndex = 32 Me.pnlApplicationSet.Visible = False ' 'txtApplicationSet ' Me.txtApplicationSet.AcceptsReturn = True Me.txtApplicationSet.Location = New System.Drawing.Point(163, 11) Me.txtApplicationSet.MaxLength = 200 Me.txtApplicationSet.Name = "txtApplicationSet" Me.txtApplicationSet.Size = New System.Drawing.Size(182, 20) Me.txtApplicationSet.TabIndex = 7 ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(17, 12) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(86, 17) Me.Label2.TabIndex = 8 Me.Label2.Text = "Application set:" ' 'lblDomainDesc ' Me.lblDomainDesc.Location = New System.Drawing.Point(364, 185) Me.lblDomainDesc.Name = "lblDomainDesc" Me.lblDomainDesc.Size = New System.Drawing.Size(188, 54) Me.lblDomainDesc.TabIndex = 29 Me.lblDomainDesc.Text = "Certain AD environments will need a specific domain name, this option applies to " & _ "more complex environments and is not always necessary." ' 'txtDomain ' Me.txtDomain.AcceptsReturn = True Me.txtDomain.Enabled = False Me.txtDomain.Location = New System.Drawing.Point(181, 204) Me.txtDomain.MaxLength = 32 Me.txtDomain.Name = "txtDomain" Me.txtDomain.Size = New System.Drawing.Size(182, 20) Me.txtDomain.TabIndex = 6 ' 'chkDomain ' Me.chkDomain.AutoSize = True Me.chkDomain.Location = New System.Drawing.Point(35, 182) Me.chkDomain.Name = "chkDomain" Me.chkDomain.Size = New System.Drawing.Size(131, 17) Me.chkDomain.TabIndex = 5 Me.chkDomain.Text = "Specify Domain Name" Me.chkDomain.UseVisualStyleBackColor = True ' 'lblDomain ' Me.lblDomain.Enabled = False Me.lblDomain.Location = New System.Drawing.Point(78, 205) Me.lblDomain.Name = "lblDomain" Me.lblDomain.Size = New System.Drawing.Size(82, 18) Me.lblDomain.TabIndex = 30 Me.lblDomain.Text = "Domain Name:" ' 'Label38 ' Me.Label38.AutoSize = True Me.Label38.Location = New System.Drawing.Point(35, 51) Me.Label38.Name = "Label38" Me.Label38.Size = New System.Drawing.Size(91, 13) Me.Label38.TabIndex = 23 Me.Label38.Text = "Connection Type:" ' 'txtServerIP ' Me.txtServerIP.Location = New System.Drawing.Point(181, 154) Me.txtServerIP.MaxLength = 39 Me.txtServerIP.Name = "txtServerIP" Me.txtServerIP.Size = New System.Drawing.Size(182, 20) Me.txtServerIP.TabIndex = 4 ' 'cboConnection ' Me.cboConnection.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboConnection.FormattingEnabled = True Me.cboConnection.Items.AddRange(New Object() {"Microsoft Terminal Server (RDP)", "Citrix ICA Connection", "Citrix Program Neighborhood"}) Me.cboConnection.Location = New System.Drawing.Point(181, 47) Me.cboConnection.Name = "cboConnection" Me.cboConnection.Size = New System.Drawing.Size(182, 21) Me.cboConnection.TabIndex = 0 ' 'lblServerIP ' Me.lblServerIP.Location = New System.Drawing.Point(78, 157) Me.lblServerIP.Name = "lblServerIP" Me.lblServerIP.Size = New System.Drawing.Size(99, 16) Me.lblServerIP.TabIndex = 8 Me.lblServerIP.Text = "Server IP or name:" ' 'cboThisServer ' Me.cboThisServer.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboThisServer.FormattingEnabled = True Me.cboThisServer.Location = New System.Drawing.Point(181, 105) Me.cboThisServer.Name = "cboThisServer" Me.cboThisServer.Size = New System.Drawing.Size(182, 21) Me.cboThisServer.TabIndex = 3 ' 'radServerAnother ' Me.radServerAnother.Location = New System.Drawing.Point(60, 138) Me.radServerAnother.Name = "radServerAnother" Me.radServerAnother.Size = New System.Drawing.Size(168, 16) Me.radServerAnother.TabIndex = 2 Me.radServerAnother.Text = "Another server" ' 'radThisComputer ' Me.radThisComputer.Checked = True Me.radThisComputer.Location = New System.Drawing.Point(60, 106) Me.radThisComputer.Name = "radThisComputer" Me.radThisComputer.Size = New System.Drawing.Size(104, 16) Me.radThisComputer.TabIndex = 1 Me.radThisComputer.TabStop = True Me.radThisComputer.Text = "This computer:" ' 'Label16 ' Me.Label16.Location = New System.Drawing.Point(36, 81) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(400, 16) Me.Label16.TabIndex = 1 Me.Label16.Text = "Which server will the clients connect to?" ' 'Label17 ' Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label17.Location = New System.Drawing.Point(32, 16) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(392, 24) Me.Label17.TabIndex = 0 Me.Label17.Text = "Client configuration: Connection" ' 'lblThisComputer ' Me.lblThisComputer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblThisComputer.Location = New System.Drawing.Point(85, 122) Me.lblThisComputer.Name = "lblThisComputer" Me.lblThisComputer.Size = New System.Drawing.Size(459, 16) Me.lblThisComputer.TabIndex = 6 Me.lblThisComputer.Text = "(Error message)" Me.lblThisComputer.Visible = False ' 'pnlStepLogo ' Me.pnlStepLogo.Controls.Add(Me.Label14) Me.pnlStepLogo.Controls.Add(Me.btnCustomBootImage) Me.pnlStepLogo.Controls.Add(Me.radBootImageCustom) Me.pnlStepLogo.Controls.Add(Me.radImageBoot) Me.pnlStepLogo.Controls.Add(Me.radTextBoot) Me.pnlStepLogo.Controls.Add(Me.Label23) Me.pnlStepLogo.Controls.Add(Me.pnlLogos) Me.pnlStepLogo.Controls.Add(Me.Label22) Me.pnlStepLogo.Enabled = False Me.HelpProvider.SetHelpKeyword(Me.pnlStepLogo, "clientconfigurationdisplayduringboot.htm") Me.HelpProvider.SetHelpNavigator(Me.pnlStepLogo, System.Windows.Forms.HelpNavigator.Topic) Me.pnlStepLogo.Location = New System.Drawing.Point(0, 0) Me.pnlStepLogo.Name = "pnlStepLogo" Me.HelpProvider.SetShowHelp(Me.pnlStepLogo, True) Me.pnlStepLogo.Size = New System.Drawing.Size(560, 288) Me.pnlStepLogo.TabIndex = 8 Me.pnlStepLogo.Visible = False ' 'Label14 ' Me.Label14.Location = New System.Drawing.Point(40, 266) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(488, 16) Me.Label14.TabIndex = 14 Me.Label14.Text = "Not all graphic adapters support boot images. If you have problems, try without i" & _ "mage." ' 'btnCustomBootImage ' Me.btnCustomBootImage.Location = New System.Drawing.Point(176, 234) Me.btnCustomBootImage.Name = "btnCustomBootImage" Me.btnCustomBootImage.Size = New System.Drawing.Size(88, 24) Me.btnCustomBootImage.TabIndex = 8 Me.btnCustomBootImage.Text = "Select..." ' 'radBootImageCustom ' Me.radBootImageCustom.Location = New System.Drawing.Point(64, 239) Me.radBootImageCustom.Name = "radBootImageCustom" Me.radBootImageCustom.Size = New System.Drawing.Size(168, 18) Me.radBootImageCustom.TabIndex = 7 Me.radBootImageCustom.Text = "My custom image" ' 'radImageBoot ' Me.radImageBoot.Location = New System.Drawing.Point(64, 88) Me.radImageBoot.Name = "radImageBoot" Me.radImageBoot.Size = New System.Drawing.Size(168, 18) Me.radImageBoot.TabIndex = 2 Me.radImageBoot.Text = "Predefined image" ' 'radTextBoot ' Me.radTextBoot.Checked = True Me.radTextBoot.Location = New System.Drawing.Point(64, 64) Me.radTextBoot.Name = "radTextBoot" Me.radTextBoot.Size = New System.Drawing.Size(104, 16) Me.radTextBoot.TabIndex = 0 Me.radTextBoot.TabStop = True Me.radTextBoot.Text = "Text boot" ' 'Label23 ' Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label23.Location = New System.Drawing.Point(32, 16) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(400, 24) Me.Label23.TabIndex = 0 Me.Label23.Text = "Client configuration: Display during boot" ' 'pnlLogos ' Me.pnlLogos.Controls.Add(Me.radImage4) Me.pnlLogos.Controls.Add(Me.radImage3) Me.pnlLogos.Controls.Add(Me.radImage2) Me.pnlLogos.Controls.Add(Me.radImage1) Me.pnlLogos.Controls.Add(Me.PictureBox4) Me.pnlLogos.Controls.Add(Me.PictureBox3) Me.pnlLogos.Controls.Add(Me.PictureBox2) Me.pnlLogos.Controls.Add(Me.PictureBox1) Me.pnlLogos.Location = New System.Drawing.Point(80, 112) Me.pnlLogos.Name = "pnlLogos" Me.pnlLogos.Size = New System.Drawing.Size(456, 120) Me.pnlLogos.TabIndex = 2 ' 'radImage4 ' Me.radImage4.Enabled = False Me.radImage4.Location = New System.Drawing.Point(344, 88) Me.radImage4.Name = "radImage4" Me.radImage4.Size = New System.Drawing.Size(104, 32) Me.radImage4.TabIndex = 6 Me.radImage4.Text = "Please wait" Me.ttpHelp.SetToolTip(Me.radImage4, """Please wait, system loading""") ' 'radImage3 ' Me.radImage3.Enabled = False Me.radImage3.Location = New System.Drawing.Point(232, 88) Me.radImage3.Name = "radImage3" Me.radImage3.Size = New System.Drawing.Size(104, 32) Me.radImage3.TabIndex = 5 Me.radImage3.Text = "Windows Professional" ' 'radImage2 ' Me.radImage2.Enabled = False Me.radImage2.Location = New System.Drawing.Point(120, 88) Me.radImage2.Name = "radImage2" Me.radImage2.Size = New System.Drawing.Size(104, 32) Me.radImage2.TabIndex = 4 Me.radImage2.Text = "Windows 2000" ' 'radImage1 ' Me.radImage1.Checked = True Me.radImage1.Enabled = False Me.radImage1.Location = New System.Drawing.Point(8, 88) Me.radImage1.Name = "radImage1" Me.radImage1.Size = New System.Drawing.Size(104, 32) Me.radImage1.TabIndex = 3 Me.radImage1.TabStop = True Me.radImage1.Text = "Windows Server 2003" ' 'PictureBox4 ' Me.PictureBox4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image) Me.PictureBox4.Location = New System.Drawing.Point(344, 8) Me.PictureBox4.Name = "PictureBox4" Me.PictureBox4.Size = New System.Drawing.Size(104, 79) Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize Me.PictureBox4.TabIndex = 16 Me.PictureBox4.TabStop = False ' 'PictureBox3 ' Me.PictureBox3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image) Me.PictureBox3.Location = New System.Drawing.Point(232, 8) Me.PictureBox3.Name = "PictureBox3" Me.PictureBox3.Size = New System.Drawing.Size(104, 79) Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize Me.PictureBox3.TabIndex = 15 Me.PictureBox3.TabStop = False ' 'PictureBox2 ' Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image) Me.PictureBox2.Location = New System.Drawing.Point(120, 8) Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Size = New System.Drawing.Size(104, 79) Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize Me.PictureBox2.TabIndex = 14 Me.PictureBox2.TabStop = False ' 'PictureBox1 ' Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) Me.PictureBox1.Location = New System.Drawing.Point(8, 8) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(104, 79) Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize Me.PictureBox1.TabIndex = 13 Me.PictureBox1.TabStop = False ' 'Label22 ' Me.Label22.Location = New System.Drawing.Point(40, 40) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(464, 16) Me.Label22.TabIndex = 1 Me.Label22.Text = "Do you want the client to display an image during boot?" ' 'btnAdvancedOptions ' Me.btnAdvancedOptions.Location = New System.Drawing.Point(153, 296) Me.btnAdvancedOptions.Name = "btnAdvancedOptions" Me.btnAdvancedOptions.Size = New System.Drawing.Size(154, 23) Me.btnAdvancedOptions.TabIndex = 101 Me.btnAdvancedOptions.Text = "Advanced client options..." Me.btnAdvancedOptions.UseVisualStyleBackColor = True ' 'pnlStepGraph ' Me.pnlStepGraph.Controls.Add(Me.grpScreenResPro) Me.pnlStepGraph.Controls.Add(Me.chkRefresh) Me.pnlStepGraph.Controls.Add(Me.grpScreenResFree) Me.pnlStepGraph.Controls.Add(Me.grpColorDepth) Me.pnlStepGraph.Controls.Add(Me.Label36) Me.pnlStepGraph.Controls.Add(Me.cboGraphThisDriver) Me.pnlStepGraph.Controls.Add(Me.radGraphThisDriver) Me.pnlStepGraph.Controls.Add(Me.radGraphAuto) Me.pnlStepGraph.Controls.Add(Me.Label19) Me.pnlStepGraph.Controls.Add(Me.Label20) Me.pnlStepGraph.Enabled = False Me.pnlStepGraph.Location = New System.Drawing.Point(0, 0) Me.pnlStepGraph.Name = "pnlStepGraph" Me.pnlStepGraph.Size = New System.Drawing.Size(560, 288) Me.pnlStepGraph.TabIndex = 9 Me.pnlStepGraph.Visible = False ' 'grpScreenResPro ' Me.grpScreenResPro.Controls.Add(Me.Label30) Me.grpScreenResPro.Controls.Add(Me.Label34) Me.grpScreenResPro.Controls.Add(Me.txtScreenResY) Me.grpScreenResPro.Controls.Add(Me.txtScreenResX) Me.grpScreenResPro.Controls.Add(Me.Label35) Me.grpScreenResPro.Controls.Add(Me.Label37) Me.grpScreenResPro.Controls.Add(Me.tbrScreenResolution) Me.grpScreenResPro.Location = New System.Drawing.Point(65, 174) Me.grpScreenResPro.Name = "grpScreenResPro" Me.grpScreenResPro.Size = New System.Drawing.Size(288, 105) Me.grpScreenResPro.TabIndex = 45 Me.grpScreenResPro.TabStop = False Me.grpScreenResPro.Text = "Screen resolution " ' 'Label30 ' Me.Label30.AutoSize = True Me.Label30.Location = New System.Drawing.Point(201, 67) Me.Label30.Name = "Label30" Me.Label30.Size = New System.Drawing.Size(33, 13) Me.Label30.TabIndex = 24 Me.Label30.Text = "pixels" ' 'Label34 ' Me.Label34.AutoSize = True Me.Label34.Location = New System.Drawing.Point(132, 67) Me.Label34.Name = "Label34" Me.Label34.Size = New System.Drawing.Size(18, 13) Me.Label34.TabIndex = 24 Me.Label34.Text = "by" ' 'txtScreenResY ' Me.txtScreenResY.Location = New System.Drawing.Point(152, 64) Me.txtScreenResY.MaxLength = 4 Me.txtScreenResY.Name = "txtScreenResY" Me.txtScreenResY.Size = New System.Drawing.Size(43, 20) Me.txtScreenResY.TabIndex = 5 ' 'txtScreenResX ' Me.txtScreenResX.Location = New System.Drawing.Point(84, 64) Me.txtScreenResX.MaxLength = 4 Me.txtScreenResX.Name = "txtScreenResX" Me.txtScreenResX.Size = New System.Drawing.Size(43, 20) Me.txtScreenResX.TabIndex = 4 ' 'Label35 ' Me.Label35.AutoSize = True Me.Label35.Location = New System.Drawing.Point(247, 26) Me.Label35.Name = "Label35" Me.Label35.Size = New System.Drawing.Size(31, 13) Me.Label35.TabIndex = 23 Me.Label35.Text = "More" ' 'Label37 ' Me.Label37.AutoSize = True Me.Label37.Location = New System.Drawing.Point(12, 26) Me.Label37.Name = "Label37" Me.Label37.Size = New System.Drawing.Size(29, 13) Me.Label37.TabIndex = 22 Me.Label37.Text = "Less" ' 'tbrScreenResolution ' Me.tbrScreenResolution.AutoSize = False Me.tbrScreenResolution.BackColor = System.Drawing.Color.Transparent Me.tbrScreenResolution.LargeChange = 1 Me.tbrScreenResolution.Location = New System.Drawing.Point(41, 21) Me.tbrScreenResolution.Maximum = 11 Me.tbrScreenResolution.Minimum = 1 Me.tbrScreenResolution.Name = "tbrScreenResolution" Me.tbrScreenResolution.Size = New System.Drawing.Size(206, 32) Me.tbrScreenResolution.TabIndex = 3 Me.tbrScreenResolution.Value = 4 ' 'chkRefresh ' Me.chkRefresh.Location = New System.Drawing.Point(64, 151) Me.chkRefresh.Name = "chkRefresh" Me.chkRefresh.Size = New System.Drawing.Size(176, 16) Me.chkRefresh.TabIndex = 3 Me.chkRefresh.Text = "60 Hz refresh rate" Me.ttpHelp.SetToolTip(Me.chkRefresh, "Lowers refresh rate for digital monitors such as LCD/TFT") ' 'grpScreenResFree ' Me.grpScreenResFree.Controls.Add(Me.lblOtherResolutions) Me.grpScreenResFree.Controls.Add(Me.radGraph1280) Me.grpScreenResFree.Controls.Add(Me.radGraph640) Me.grpScreenResFree.Controls.Add(Me.radGraph1024) Me.grpScreenResFree.Controls.Add(Me.radGraph800) Me.grpScreenResFree.Location = New System.Drawing.Point(64, 174) Me.grpScreenResFree.Name = "grpScreenResFree" Me.grpScreenResFree.Size = New System.Drawing.Size(288, 105) Me.grpScreenResFree.TabIndex = 4 Me.grpScreenResFree.TabStop = False Me.grpScreenResFree.Text = "Screen resolution" ' 'lblOtherResolutions ' Me.lblOtherResolutions.AutoSize = True Me.lblOtherResolutions.Location = New System.Drawing.Point(17, 87) Me.lblOtherResolutions.Name = "lblOtherResolutions" Me.lblOtherResolutions.Size = New System.Drawing.Size(93, 13) Me.lblOtherResolutions.TabIndex = 4 Me.lblOtherResolutions.TabStop = True Me.lblOtherResolutions.Text = "More resolutions..." ' 'radGraph1280 ' Me.radGraph1280.Location = New System.Drawing.Point(20, 20) Me.radGraph1280.Name = "radGraph1280" Me.radGraph1280.Size = New System.Drawing.Size(80, 16) Me.radGraph1280.TabIndex = 0 Me.radGraph1280.Text = "1280x1024" ' 'radGraph640 ' Me.radGraph640.Location = New System.Drawing.Point(20, 68) Me.radGraph640.Name = "radGraph640" Me.radGraph640.Size = New System.Drawing.Size(72, 16) Me.radGraph640.TabIndex = 3 Me.radGraph640.Text = "640x480" ' 'radGraph1024 ' Me.radGraph1024.Checked = True Me.radGraph1024.Location = New System.Drawing.Point(20, 36) Me.radGraph1024.Name = "radGraph1024" Me.radGraph1024.Size = New System.Drawing.Size(72, 16) Me.radGraph1024.TabIndex = 1 Me.radGraph1024.TabStop = True Me.radGraph1024.Text = "1024x768" ' 'radGraph800 ' Me.radGraph800.Location = New System.Drawing.Point(20, 52) Me.radGraph800.Name = "radGraph800" Me.radGraph800.Size = New System.Drawing.Size(72, 16) Me.radGraph800.TabIndex = 2 Me.radGraph800.Text = "800x600" ' 'grpColorDepth ' Me.grpColorDepth.Controls.Add(Me.radGraph24bit) Me.grpColorDepth.Controls.Add(Me.radGraph16bit) Me.grpColorDepth.Location = New System.Drawing.Point(358, 174) Me.grpColorDepth.Name = "grpColorDepth" Me.grpColorDepth.Size = New System.Drawing.Size(186, 105) Me.grpColorDepth.TabIndex = 5 Me.grpColorDepth.TabStop = False Me.grpColorDepth.Text = "Color depth" ' 'radGraph24bit ' Me.radGraph24bit.Checked = True Me.radGraph24bit.Location = New System.Drawing.Point(20, 26) Me.radGraph24bit.Name = "radGraph24bit" Me.radGraph24bit.Size = New System.Drawing.Size(80, 16) Me.radGraph24bit.TabIndex = 0 Me.radGraph24bit.TabStop = True Me.radGraph24bit.Text = "24 bit color" ' 'radGraph16bit ' Me.radGraph16bit.Location = New System.Drawing.Point(20, 42) Me.radGraph16bit.Name = "radGraph16bit" Me.radGraph16bit.Size = New System.Drawing.Size(80, 16) Me.radGraph16bit.TabIndex = 1 Me.radGraph16bit.Text = "16 bit color" ' 'Label36 ' Me.Label36.Location = New System.Drawing.Point(40, 129) Me.Label36.Name = "Label36" Me.Label36.Size = New System.Drawing.Size(508, 19) Me.Label36.TabIndex = 44 Me.Label36.Text = "Please select the client default graphics settings. These can be changed later fo" & _ "r all managed clients." Me.Label36.Visible = False ' 'cboGraphThisDriver ' Me.cboGraphThisDriver.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboGraphThisDriver.Enabled = False Me.cboGraphThisDriver.Location = New System.Drawing.Point(176, 94) Me.cboGraphThisDriver.Name = "cboGraphThisDriver" Me.cboGraphThisDriver.Size = New System.Drawing.Size(264, 21) Me.cboGraphThisDriver.TabIndex = 2 ' 'radGraphThisDriver ' Me.radGraphThisDriver.Location = New System.Drawing.Point(64, 96) Me.radGraphThisDriver.Name = "radGraphThisDriver" Me.radGraphThisDriver.Size = New System.Drawing.Size(104, 18) Me.radGraphThisDriver.TabIndex = 1 Me.radGraphThisDriver.Text = "This driver only:" ' 'radGraphAuto ' Me.radGraphAuto.Checked = True Me.radGraphAuto.Location = New System.Drawing.Point(64, 72) Me.radGraphAuto.Name = "radGraphAuto" Me.radGraphAuto.Size = New System.Drawing.Size(104, 16) Me.radGraphAuto.TabIndex = 0 Me.radGraphAuto.TabStop = True Me.radGraphAuto.Text = "Auto-detect" Me.ttpHelp.SetToolTip(Me.radGraphAuto, "This will include all available drivers, resulting in a slower boot, but works on" & _ " many different computers") ' 'Label19 ' Me.Label19.Location = New System.Drawing.Point(40, 40) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(464, 16) Me.Label19.TabIndex = 1 Me.Label19.Text = "Please select the client graphics card driver." ' 'Label20 ' Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label20.Location = New System.Drawing.Point(32, 16) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(392, 24) Me.Label20.TabIndex = 0 Me.Label20.Text = "Client configuration: Graphics" ' 'pnlStepNet ' Me.pnlStepNet.Controls.Add(Me.Panel3) Me.pnlStepNet.Controls.Add(Me.cboNetThisDriver) Me.pnlStepNet.Controls.Add(Me.radNetThisDriver) Me.pnlStepNet.Controls.Add(Me.radNetAuto) Me.pnlStepNet.Controls.Add(Me.Label28) Me.pnlStepNet.Controls.Add(Me.Label27) Me.pnlStepNet.Enabled = False Me.pnlStepNet.Location = New System.Drawing.Point(0, 0) Me.pnlStepNet.Name = "pnlStepNet" Me.pnlStepNet.Size = New System.Drawing.Size(560, 288) Me.pnlStepNet.TabIndex = 10 Me.pnlStepNet.Visible = False ' 'Panel3 ' Me.Panel3.Controls.Add(Me.Label29) Me.Panel3.Controls.Add(Me.radNetClientIP) Me.Panel3.Controls.Add(Me.radNetUseDHCP) Me.Panel3.Location = New System.Drawing.Point(36, 116) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(492, 70) Me.Panel3.TabIndex = 14 ' 'Label29 ' Me.Label29.Location = New System.Drawing.Point(4, 6) Me.Label29.Name = "Label29" Me.Label29.Size = New System.Drawing.Size(464, 16) Me.Label29.TabIndex = 7 Me.Label29.Text = "Please select how to assign IP address to the client(s)" ' 'radNetClientIP ' Me.radNetClientIP.Location = New System.Drawing.Point(28, 44) Me.radNetClientIP.Name = "radNetClientIP" Me.radNetClientIP.Size = New System.Drawing.Size(162, 18) Me.radNetClientIP.TabIndex = 1 Me.radNetClientIP.Text = "Specify IP address" Me.ttpHelp.SetToolTip(Me.radNetClientIP, "Assigning a fixed IP address of course only works for a single client") ' 'radNetUseDHCP ' Me.radNetUseDHCP.Checked = True Me.radNetUseDHCP.Location = New System.Drawing.Point(28, 25) Me.radNetUseDHCP.Name = "radNetUseDHCP" Me.radNetUseDHCP.Size = New System.Drawing.Size(200, 18) Me.radNetUseDHCP.TabIndex = 0 Me.radNetUseDHCP.TabStop = True Me.radNetUseDHCP.Text = "Use DHCP" ' 'cboNetThisDriver ' Me.cboNetThisDriver.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboNetThisDriver.Enabled = False Me.cboNetThisDriver.Items.AddRange(New Object() {"3Com 3C359 Token Link Velocity XL adapter", "3Com 3c501 EtherLink (3c501)", "3Com 3c503 EtherLink II (3c503)", "3Com 3c505 EtherLink Plus (3c505)", "3Com 3c507 EtherLink 16 (3c507)", "3Com 3c509/3c529 (MCA)/3c579 EtherLink III (3c509)", "3Com 3c515 ISA Fast EtherLink (3c515)", "3Com 3c574 Etherlink XL 10/100 PCMCIA (3c574_cs)", "3Com 3c589 Etherlink III PCMCIA (3c589_cs)", "3Com 3c590/3c900 (592/595/597) Vortex/Boomerang (3c59x)", "3Com 3cr990 Typhoon (typhoon)", "Adaptec Starfire/DuraLAN (starfire)", "Alteon AceNIC/3Com 3C985/NetGear GA620 Gigabit (acenic)", "AMD 8111 (new PCI lance) (amd8111e)", "AMD LANCE and PCnet (AT1500 and NE2100) (lance)", "AMD PCnet32 PCI (pcnet32)", "Ansel Communications EISA 3200 (ac3200)", "Asix AX88190 PCMCIA (axnet_cs)", "AT&T/Lucent old WaveLAN Pcmcia wireless (wavelan_cs)", "AT1700/1720 (at1700)", "Atheros 802.11 wireless LAN", "Aviator/Raytheon 2.4MHz wireless (ray_cs)", "Broadcom 4400 ethernet (b44)", "Broadcom NetXtremeII BCM5706/5708", "Broadcom Tigon3 (tg3)", "Cabletron E21xx (e2100)", "Chelsio 10Gb Ethernet", "Cisco/Aironet 34X/35X/4500/4800 PCMCIA (airo_cs)", "Crystal Semiconductor CS89x0 (cs89x0)", "Davicom DM910x/DM980x (dmfe)", "DEC DEPCA (depca)", "DECchip & DIGITAL EtherWORKS PCI/EISA (de4x5)", "DECchip Tulip dc21x4x PCI (tulip)", "DECchip Tulip Early PCI (dc2104x)", "Digi Intl. RightSwitch SE-X (dgrs)", "D-Link DL2000-based Gigabit Ethernet (dl2k)", "Fujitsu FMV-J18x PCMCIA (fmvj18x_cs)", "Hermes/Lucent/Agere/Orinoco PCMCIA Wireless (orinoco_cs)", "HP 10/100VG PCLAN (ISA (hp100)", "HP PCLAN (27245 and other 27xxx) (hp)", "HP PCLAN+ (27247B and 27252A) (hp-plus)", "IBM Lanstreamer chipset PCI adapter", "IBM Olympic chipset PCI adapter", "IBM PCMCIA tokenring adapter (ibmtr_cs)", "IBM Tropic chipset based adapter", "ICL EtherTeam 16i/32 (eth16i)", "Intel EtherExpress 16 (eexpress)", "Intel EtherExpressPro/100 (e100)", "Intel EtherExpressPro/100 (eepro100)", "Intel EtherExpressPro/1000 Gigabit Ethernet (e1000)", "Intel EtherExpressPro/EtherExpress 10 (i82595) (eepro)", "Intel EtherWORKS 3 DE203 , DE204, DE205 (ewrk3)", "Intel LP486E on board Ethernet (lp486e)", "Intel PRO/10GbE", "Madge Smart 16/4 PCI Mk2", "Marvell Yukon Chipset / SysKonnect SK-98xx (sk98lin)", "Myson MTD-8xx PCI Ethernet (fealnx)", "National Semiconductor DP8381x PCI Ethernet (natsemi)", "National Semiconductor DP83820 (ns83820)", "NE2000 (NS8390) PCMCIA (pcnet_cs)", "NE2000 PCI compatible (ne2k-pci)", "NE2000/NE1000 compatible (ne)", "New Media PCMCIA (nmclan_cs)", "nForce Ethernet (forcedeth)", "Packet Engines Hamachi GNIC-II (hamachi)", "Packet Engines Yellowfin Gigabit-NIC (yellowfin)", "Prism/Lucent/Agere/Orinoco PCI Wireless (orinoco_pci)", "Proteon ISA", "Racal-Interlan (Micom) NI cards (ni5010)", "Racal-Interlan (Micom) NI cards (ni52)", "Racal-Interlan (Micom) NI cards (ni65)", "RealTek RTL-8139 C+ PCI Fast Ethernet Adapter (8139cp)", "RealTek RTL-8139 PCI Fast Ethernet Adapter (8139too)", "RealTek RTL-8169 Gigabit Ethernet (r8169)", "S2IO 10Gbe XFrame NIC", "SiS 900/7016 PCI Fast Ethernet Adapter (sis900)", "SMC 9194 (smc9194)", "SMC 91Cxx PCMCIA (smc91c92_cs)", "SMC EtherPower II (epic100)", "SMC Ultra (smc-ultra)", "Sundance Alta (sundance)", "SysKonnect TR4/16 ISA", "TI ThunderLAN (tlan)", "WD80*3 (wd)", "VIA Rhine I and II (via-rhine)", "VIA Velocity (via-velocity)", "Winbond W89c840 Ethernet (winbond-840)", "Xircom 16-bit PCMCIA xirc2ps_cs", "Xircom Netwave AirSurfer Pcmcia wireless (netwave_cs)", "Xircom PCMCIA (xircom_cb)", "Xircom Tulip-like CardBus (xircom_tulip_cb)"}) Me.cboNetThisDriver.Location = New System.Drawing.Point(168, 76) Me.cboNetThisDriver.Name = "cboNetThisDriver" Me.cboNetThisDriver.Size = New System.Drawing.Size(360, 21) Me.cboNetThisDriver.TabIndex = 2 ' 'radNetThisDriver ' Me.radNetThisDriver.Location = New System.Drawing.Point(64, 78) Me.radNetThisDriver.Name = "radNetThisDriver" Me.radNetThisDriver.Size = New System.Drawing.Size(104, 18) Me.radNetThisDriver.TabIndex = 1 Me.radNetThisDriver.Text = "This driver only:" ' 'radNetAuto ' Me.radNetAuto.Checked = True Me.radNetAuto.Location = New System.Drawing.Point(64, 59) Me.radNetAuto.Name = "radNetAuto" Me.radNetAuto.Size = New System.Drawing.Size(104, 16) Me.radNetAuto.TabIndex = 0 Me.radNetAuto.TabStop = True Me.radNetAuto.Text = "Auto-detect" Me.ttpHelp.SetToolTip(Me.radNetAuto, "This will include all available drivers, resulting in a slower boot, but works on" & _ " many different computers") ' 'Label28 ' Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label28.Location = New System.Drawing.Point(32, 16) Me.Label28.Name = "Label28" Me.Label28.Size = New System.Drawing.Size(392, 24) Me.Label28.TabIndex = 0 Me.Label28.Text = "Client configuration: Network" ' 'Label27 ' Me.Label27.Location = New System.Drawing.Point(40, 40) Me.Label27.Name = "Label27" Me.Label27.Size = New System.Drawing.Size(464, 16) Me.Label27.TabIndex = 1 Me.Label27.Text = "Please select the client network card driver." ' 'pnlStepSound ' Me.pnlStepSound.Controls.Add(Me.radSndNo) Me.pnlStepSound.Controls.Add(Me.cboSndThisDriver) Me.pnlStepSound.Controls.Add(Me.radSndThisDriver) Me.pnlStepSound.Controls.Add(Me.radSndAuto) Me.pnlStepSound.Controls.Add(Me.Label31) Me.pnlStepSound.Controls.Add(Me.Label32) Me.pnlStepSound.Enabled = False Me.pnlStepSound.Location = New System.Drawing.Point(0, 0) Me.pnlStepSound.Name = "pnlStepSound" Me.pnlStepSound.Size = New System.Drawing.Size(560, 288) Me.pnlStepSound.TabIndex = 11 Me.pnlStepSound.Visible = False ' 'radSndNo ' Me.radSndNo.Location = New System.Drawing.Point(64, 131) Me.radSndNo.Name = "radSndNo" Me.radSndNo.Size = New System.Drawing.Size(104, 18) Me.radSndNo.TabIndex = 3 Me.radSndNo.Text = "No sound" ' 'cboSndThisDriver ' Me.cboSndThisDriver.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboSndThisDriver.Enabled = False Me.cboSndThisDriver.Items.AddRange(New Object() {"AC97 intergrated device with ALi M5451 Audio Controller (snd-ali5451)", "AC97 intergrated device with ATI chipsets (snd-atiixp)", "AC97 intergrated device with Intel/SiS/nVidia/AMD chipsets (snd-intel8x0)", "AC97 intergrated device with VIA chipsets (snd-via82xx)", "AD1848 (Analog Devices) or CS4248 (Cirrus Logic) (snd-ad1848)", "AMD InterWave based soundcards Gravis UltraSound Plug & Play (snd-interwave)", "AMD InterWave based soundcards with a TEA6330T bass and (snd-interwave-stb)", "Analog Devices SoundPort AD1816A (snd-ad1816a)", "Aureal Advantage soundcards (snd-au8810)", "Aureal Vortex 2 soundcards (snd-au8830)", "Aureal Vortex soundcards (snd-au8820)", "Avance Logic ALS100, ALS110, ALS120 and ALS200 chips (snd-als100)", "Avance Logic ALS4000 chips (snd-als4000)", "Aztech AZF3328 (PCI168) soundcards (snd-azt3328)", "Aztech Sound Galaxy soundcards (snd-sgalaxy)", "Aztech Systems AZT2320 chip (snd-azt2320)", "Cirrus Logic CS4281 chips (snd-cs4281)", "Cirrus Logic CS4610/CS4612/CS4614/CS4615/CS4622/ (snd-cs46xx)", "C-Media CMI8330 chip (snd-cmi8330)", "C-Media CMI8338 or CMI8738 chips (snd-cmipci)", "Creative Sound Blaster 1.0 2.0/Pro (8-bit) or 100% compatible (snd-sb8)", "CS4231 chips from Cirrus Logic (snd-cs4231)", "CS4232 chips from Cirrus Logic (snd-cs4232)", "CS4235,CS4236,CS4237B,CS4238B,CS4239 chips from Cirrus Logic (snd-cs4236)", "Diamond Technologies DT-019X or Avance Logic ALS-007 chips (snd-dt019x)", "Digigram miXart soundcards (snd-mixart)", "Digigram VX222 soundcards (snd-vx222)", "Emu10k1X (Dell OEM Version)", "Ensoniq AudioPCI ES1370 chips (snd-ens1370)", "Ensoniq AudioPCI ES1371 chips and Sound Blaster PCI 64 or 128 (snd-ens1371)", "Ensoniq SoundScape PnP soundcards (snd-sscape)", "ESS AudioDrive ES18xx chips (snd-es18xx)", "ESS AudioDrive ES688 or ES1688 chips (snd-es1688)", "ESS AudioDrive ES968 chips (snd-es968)", "ESS Maestro 1/2/2E chips (snd-es1968)", "ESS Maestro 3 (Allegro) chips (snd-maestro3)", "ESS Solo-1 (ES1938, ES1946, ES1969) chips (snd-es1938)", "ForteMedia FM801 chip (snd-fm801)", "ICE/VT1724/1720 (Envy24HT/PT) chips (snd-ice1724)", "ICE1712 (Envy24) chip (snd-ice1712)", "Intel HD Audio", "Korg 1212IO soundcards (snd-korg1212)", "NeoMagic NM256AV/ZX chips (snd-nm256)", "Opti 82C92x chips and using a CS4231 codec (snd-opti92x-cs4231)", "Opti 82C92x or OTI-601 chips and using an AD1848 codec (snd-opti92x-ad1848)", "Opti 82C93x chips (snd-opti93x)", "RME Digi32, Digi32 PRO and Digi32/8 (snd-rme32)", "RME Digi96, Digi96/8 and Digi96/8 PRO/PAD/PST soundcards (snd-rme96)", "RME Hammerfall (RME Digi9652/Digi9636) soundcards (snd-rme9652)", "RME Hammerfall DSP Audio soundcards (snd-hdsp)", "S3 SonicVibes chip (snd-sonicvibes)", "Sound Blaster 16 soundcards (including Plug and Play version) (snd-sb16)", "Sound Blaster AWE soundcards (including Plug and Play version) (snd-sbawe)", "Sound Blaster PCI 512, Live!, Audigy and (snd-emu10k1)", "Trident 4D-Wave DX/NX or SiS 7018 chips (snd-trident)", "Turtle Beach Maui, Tropez, Tropez+ based on the Wavefront chip (snd-wavefront)", "Yamaha OPL3-SA2 and OPL3-SA3 chips (snd-opl3sa2)", "Yamaha PCI chips YMF724,YMF724F,YMF740,YMF740C,YMF744,YMF754 (snd-ymfpci)"}) Me.cboSndThisDriver.Location = New System.Drawing.Point(168, 98) Me.cboSndThisDriver.Name = "cboSndThisDriver" Me.cboSndThisDriver.Size = New System.Drawing.Size(376, 21) Me.cboSndThisDriver.TabIndex = 2 ' 'radSndThisDriver ' Me.radSndThisDriver.Location = New System.Drawing.Point(64, 102) Me.radSndThisDriver.Name = "radSndThisDriver" Me.radSndThisDriver.Size = New System.Drawing.Size(104, 18) Me.radSndThisDriver.TabIndex = 1 Me.radSndThisDriver.Text = "This driver only:" ' 'radSndAuto ' Me.radSndAuto.Checked = True Me.radSndAuto.Location = New System.Drawing.Point(64, 72) Me.radSndAuto.Name = "radSndAuto" Me.radSndAuto.Size = New System.Drawing.Size(104, 18) Me.radSndAuto.TabIndex = 0 Me.radSndAuto.TabStop = True Me.radSndAuto.Text = "Auto-detect" Me.ttpHelp.SetToolTip(Me.radSndAuto, "This will include all available drivers, resulting in a slower boot, but works on" & _ " many different computers") ' 'Label31 ' Me.Label31.Location = New System.Drawing.Point(40, 40) Me.Label31.Name = "Label31" Me.Label31.Size = New System.Drawing.Size(464, 16) Me.Label31.TabIndex = 1 Me.Label31.Text = "Please select the client sound card driver." ' 'Label32 ' Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label32.Location = New System.Drawing.Point(32, 16) Me.Label32.Name = "Label32" Me.Label32.Size = New System.Drawing.Size(392, 24) Me.Label32.TabIndex = 0 Me.Label32.Text = "Client configuration: Sound" ' 'pnlStepISO ' Me.pnlStepISO.Controls.Add(Me.cmdISOChoose) Me.pnlStepISO.Controls.Add(Me.txtISOChoose) Me.pnlStepISO.Controls.Add(Me.Label33) Me.pnlStepISO.Controls.Add(Me.Label51) Me.pnlStepISO.Enabled = False Me.pnlStepISO.Location = New System.Drawing.Point(0, 0) Me.pnlStepISO.Name = "pnlStepISO" Me.pnlStepISO.Size = New System.Drawing.Size(560, 288) Me.pnlStepISO.TabIndex = 13 Me.pnlStepISO.Visible = False ' 'cmdISOChoose ' Me.cmdISOChoose.Location = New System.Drawing.Point(429, 106) Me.cmdISOChoose.Name = "cmdISOChoose" Me.cmdISOChoose.Size = New System.Drawing.Size(120, 23) Me.cmdISOChoose.TabIndex = 1 Me.cmdISOChoose.Text = "Browse..." ' 'txtISOChoose ' Me.txtISOChoose.Location = New System.Drawing.Point(30, 109) Me.txtISOChoose.Name = "txtISOChoose" Me.txtISOChoose.ReadOnly = True Me.txtISOChoose.Size = New System.Drawing.Size(393, 20) Me.txtISOChoose.TabIndex = 0 ' 'Label33 ' Me.Label33.Location = New System.Drawing.Point(27, 93) Me.Label33.Name = "Label33" Me.Label33.Size = New System.Drawing.Size(256, 16) Me.Label33.TabIndex = 2 Me.Label33.Text = "Please pick a name for the ISO file:" ' 'Label51 ' Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label51.Location = New System.Drawing.Point(32, 16) Me.Label51.Name = "Label51" Me.Label51.Size = New System.Drawing.Size(392, 24) Me.Label51.TabIndex = 0 Me.Label51.Text = "Create a bootable CD" ' 'ttpHelp ' Me.ttpHelp.AutomaticDelay = 200 Me.ttpHelp.AutoPopDelay = 20000 Me.ttpHelp.InitialDelay = 200 Me.ttpHelp.ReshowDelay = 0 ' 'pnlStepTFTP ' Me.pnlStepTFTP.Controls.Add(Me.Label24) Me.pnlStepTFTP.Controls.Add(Me.Label43) Me.pnlStepTFTP.Controls.Add(Me.Label40) Me.pnlStepTFTP.Enabled = False Me.pnlStepTFTP.Location = New System.Drawing.Point(0, 0) Me.pnlStepTFTP.Name = "pnlStepTFTP" Me.pnlStepTFTP.Size = New System.Drawing.Size(560, 288) Me.pnlStepTFTP.TabIndex = 17 Me.pnlStepTFTP.Visible = False ' 'Label24 ' Me.Label24.Location = New System.Drawing.Point(165, 133) Me.Label24.Name = "Label24" Me.Label24.Size = New System.Drawing.Size(283, 35) Me.Label24.TabIndex = 6 Me.Label24.Text = "Press Finish to overwrite your current network boot image. This will update your " & _ "TFTP server(s)" ' 'Label43 ' Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label43.Location = New System.Drawing.Point(32, 16) Me.Label43.Name = "Label43" Me.Label43.Size = New System.Drawing.Size(392, 24) Me.Label43.TabIndex = 0 Me.Label43.Text = "Network boot image created" ' 'Label40 ' Me.Label40.Location = New System.Drawing.Point(40, 40) Me.Label40.Name = "Label40" Me.Label40.Size = New System.Drawing.Size(496, 24) Me.Label40.TabIndex = 2 Me.Label40.Text = "Update your network boot configuration" ' 'pnlStepFinished ' Me.pnlStepFinished.Controls.Add(Me.rtxFinished) Me.pnlStepFinished.Controls.Add(Me.Label39) Me.pnlStepFinished.Enabled = False Me.pnlStepFinished.Location = New System.Drawing.Point(0, 0) Me.pnlStepFinished.Name = "pnlStepFinished" Me.pnlStepFinished.Size = New System.Drawing.Size(560, 288) Me.pnlStepFinished.TabIndex = 18 Me.pnlStepFinished.Visible = False ' 'rtxFinished ' Me.rtxFinished.BackColor = System.Drawing.SystemColors.Control Me.rtxFinished.BorderStyle = System.Windows.Forms.BorderStyle.None Me.rtxFinished.Location = New System.Drawing.Point(39, 47) Me.rtxFinished.Name = "rtxFinished" Me.rtxFinished.ReadOnly = True Me.rtxFinished.Size = New System.Drawing.Size(510, 238) Me.rtxFinished.TabIndex = 3 Me.rtxFinished.Text = "Finished" & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "Click Finish to return to menu." ' 'Label39 ' Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label39.Location = New System.Drawing.Point(32, 16) Me.Label39.Name = "Label39" Me.Label39.Size = New System.Drawing.Size(392, 24) Me.Label39.TabIndex = 0 Me.Label39.Text = "Finished" ' 'btnDebug ' Me.btnDebug.Location = New System.Drawing.Point(9, 296) Me.btnDebug.Name = "btnDebug" Me.btnDebug.Size = New System.Drawing.Size(15, 24) Me.btnDebug.TabIndex = 22 Me.btnDebug.Text = "Debug" Me.btnDebug.Visible = False ' 'pnlStepIPConf ' Me.pnlStepIPConf.Controls.Add(Me.Label10) Me.pnlStepIPConf.Controls.Add(Me.Label11) Me.pnlStepIPConf.Controls.Add(Me.pnlManagedClient) Me.pnlStepIPConf.Controls.Add(Me.pnlClientIPSet) Me.pnlStepIPConf.Controls.Add(Me.Label8) Me.pnlStepIPConf.Controls.Add(Me.Label6) Me.pnlStepIPConf.Enabled = False Me.pnlStepIPConf.Location = New System.Drawing.Point(0, 0) Me.pnlStepIPConf.Name = "pnlStepIPConf" Me.pnlStepIPConf.Size = New System.Drawing.Size(560, 290) Me.pnlStepIPConf.TabIndex = 1 Me.pnlStepIPConf.Visible = False ' 'Label10 ' Me.Label10.AutoSize = True Me.Label10.Location = New System.Drawing.Point(6, 213) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(52, 13) Me.Label10.TabIndex = 15 Me.Label10.Text = "Managed" ' 'Label11 ' Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.Label11.Location = New System.Drawing.Point(65, 220) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(485, 2) Me.Label11.TabIndex = 14 ' 'pnlManagedClient ' Me.pnlManagedClient.Controls.Add(Me.Label9) Me.pnlManagedClient.Controls.Add(Me.txtNetClientTFTP) Me.pnlManagedClient.Controls.Add(Me.Label5) Me.pnlManagedClient.Location = New System.Drawing.Point(7, 232) Me.pnlManagedClient.Name = "pnlManagedClient" Me.pnlManagedClient.Size = New System.Drawing.Size(545, 50) Me.pnlManagedClient.TabIndex = 8 ' 'Label9 ' Me.Label9.AutoSize = True Me.Label9.Location = New System.Drawing.Point(8, 14) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(74, 13) Me.Label9.TabIndex = 8 Me.Label9.Text = "TFTP Server:" ' 'txtNetClientTFTP ' Me.txtNetClientTFTP.Location = New System.Drawing.Point(85, 11) Me.txtNetClientTFTP.MaxLength = 200 Me.txtNetClientTFTP.Name = "txtNetClientTFTP" Me.txtNetClientTFTP.Size = New System.Drawing.Size(100, 20) Me.txtNetClientTFTP.TabIndex = 9 Me.txtNetClientTFTP.Text = "10.223.0.1" ' 'Label5 ' Me.Label5.Location = New System.Drawing.Point(202, 12) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(343, 15) Me.Label5.TabIndex = 6 Me.Label5.Text = "IP address or name of the server that contains the client configurations." ' 'pnlClientIPSet ' Me.pnlClientIPSet.Controls.Add(Me.Label25) Me.pnlClientIPSet.Controls.Add(Me.txtNetClientDNSSuffix) Me.pnlClientIPSet.Controls.Add(Me.Label21) Me.pnlClientIPSet.Controls.Add(Me.txtNetClientDNS2) Me.pnlClientIPSet.Controls.Add(Me.Label12) Me.pnlClientIPSet.Controls.Add(Me.Label3) Me.pnlClientIPSet.Controls.Add(Me.txtNetClientDNS1) Me.pnlClientIPSet.Controls.Add(Me.Label48) Me.pnlClientIPSet.Controls.Add(Me.Label7) Me.pnlClientIPSet.Controls.Add(Me.txtNetClientGateway) Me.pnlClientIPSet.Controls.Add(Me.txtNetClientMask) Me.pnlClientIPSet.Controls.Add(Me.txtNetClientIP) Me.pnlClientIPSet.Location = New System.Drawing.Point(7, 59) Me.pnlClientIPSet.Name = "pnlClientIPSet" Me.pnlClientIPSet.Size = New System.Drawing.Size(545, 109) Me.pnlClientIPSet.TabIndex = 7 ' 'Label25 ' Me.Label25.AutoSize = True Me.Label25.Location = New System.Drawing.Point(285, 75) Me.Label25.Name = "Label25" Me.Label25.Size = New System.Drawing.Size(60, 13) Me.Label25.TabIndex = 13 Me.Label25.Text = "DNS suffix:" ' 'txtNetClientDNSSuffix ' Me.txtNetClientDNSSuffix.Location = New System.Drawing.Point(351, 71) Me.txtNetClientDNSSuffix.MaxLength = 200 Me.txtNetClientDNSSuffix.Name = "txtNetClientDNSSuffix" Me.txtNetClientDNSSuffix.Size = New System.Drawing.Size(100, 20) Me.txtNetClientDNSSuffix.TabIndex = 8 ' 'Label21 ' Me.Label21.AutoSize = True Me.Label21.Location = New System.Drawing.Point(267, 47) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(78, 13) Me.Label21.TabIndex = 11 Me.Label21.Text = "Alternate DNS:" ' 'txtNetClientDNS2 ' Me.txtNetClientDNS2.Location = New System.Drawing.Point(351, 44) Me.txtNetClientDNS2.MaxLength = 39 Me.txtNetClientDNS2.Name = "txtNetClientDNS2" Me.txtNetClientDNS2.Size = New System.Drawing.Size(100, 20) Me.txtNetClientDNS2.TabIndex = 7 ' 'Label12 ' Me.Label12.AutoSize = True Me.Label12.Location = New System.Drawing.Point(52, 23) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(60, 13) Me.Label12.TabIndex = 9 Me.Label12.Text = "IP address:" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(266, 22) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(79, 13) Me.Label3.TabIndex = 8 Me.Label3.Text = "Preferred DNS:" ' 'txtNetClientDNS1 ' Me.txtNetClientDNS1.Location = New System.Drawing.Point(351, 19) Me.txtNetClientDNS1.MaxLength = 39 Me.txtNetClientDNS1.Name = "txtNetClientDNS1" Me.txtNetClientDNS1.Size = New System.Drawing.Size(100, 20) Me.txtNetClientDNS1.TabIndex = 6 ' 'Label48 ' Me.Label48.AutoSize = True Me.Label48.Location = New System.Drawing.Point(25, 76) Me.Label48.Name = "Label48" Me.Label48.Size = New System.Drawing.Size(87, 13) Me.Label48.TabIndex = 6 Me.Label48.Text = "Default gateway:" ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(40, 49) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(72, 13) Me.Label7.TabIndex = 5 Me.Label7.Text = "Subnet mask:" ' 'txtNetClientGateway ' Me.txtNetClientGateway.Location = New System.Drawing.Point(118, 72) Me.txtNetClientGateway.MaxLength = 39 Me.txtNetClientGateway.Name = "txtNetClientGateway" Me.txtNetClientGateway.Size = New System.Drawing.Size(100, 20) Me.txtNetClientGateway.TabIndex = 5 Me.txtNetClientGateway.Text = "10.223.0.1" ' 'txtNetClientMask ' Me.txtNetClientMask.Location = New System.Drawing.Point(118, 46) Me.txtNetClientMask.MaxLength = 39 Me.txtNetClientMask.Name = "txtNetClientMask" Me.txtNetClientMask.Size = New System.Drawing.Size(100, 20) Me.txtNetClientMask.TabIndex = 4 Me.txtNetClientMask.Text = "255.255.255.0" ' 'txtNetClientIP ' Me.txtNetClientIP.Location = New System.Drawing.Point(118, 20) Me.txtNetClientIP.MaxLength = 39 Me.txtNetClientIP.Name = "txtNetClientIP" Me.txtNetClientIP.Size = New System.Drawing.Size(100, 20) Me.txtNetClientIP.TabIndex = 3 ' 'Label8 ' Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label8.Location = New System.Drawing.Point(32, 16) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(392, 24) Me.Label8.TabIndex = 0 Me.Label8.Text = "Client configuration: IP" ' 'Label6 ' Me.Label6.Location = New System.Drawing.Point(40, 40) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(496, 24) Me.Label6.TabIndex = 2 Me.Label6.Text = "Set the client IP parameters" ' 'cmdPrevious ' Me.cmdPrevious.Location = New System.Drawing.Point(320, 296) Me.cmdPrevious.Name = "cmdPrevious" Me.cmdPrevious.Size = New System.Drawing.Size(112, 23) Me.cmdPrevious.TabIndex = 102 Me.cmdPrevious.Text = "< Previous" ' 'pnlStepManaged ' Me.pnlStepManaged.Controls.Add(Me.Label50) Me.pnlStepManaged.Controls.Add(Me.radManaged) Me.pnlStepManaged.Controls.Add(Me.radUnmanaged) Me.pnlStepManaged.Controls.Add(Me.Label41) Me.pnlStepManaged.Controls.Add(Me.Label49) Me.pnlStepManaged.Enabled = False Me.pnlStepManaged.Location = New System.Drawing.Point(0, 0) Me.pnlStepManaged.Name = "pnlStepManaged" Me.pnlStepManaged.Size = New System.Drawing.Size(560, 288) Me.pnlStepManaged.TabIndex = 51 Me.pnlStepManaged.Visible = False ' 'Label50 ' Me.Label50.AutoSize = True Me.Label50.Location = New System.Drawing.Point(15, 204) Me.Label50.Name = "Label50" Me.Label50.Size = New System.Drawing.Size(541, 78) Me.Label50.TabIndex = 4 Me.Label50.Text = resources.GetString("Label50.Text") ' 'radManaged ' Me.radManaged.AutoSize = True Me.radManaged.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.radManaged.Location = New System.Drawing.Point(15, 187) Me.radManaged.Name = "radManaged" Me.radManaged.Size = New System.Drawing.Size(77, 17) Me.radManaged.TabIndex = 2 Me.radManaged.TabStop = True Me.radManaged.Text = "Managed" Me.radManaged.UseVisualStyleBackColor = True ' 'radUnmanaged ' Me.radUnmanaged.AutoSize = True Me.radUnmanaged.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.radUnmanaged.Location = New System.Drawing.Point(15, 41) Me.radUnmanaged.Name = "radUnmanaged" Me.radUnmanaged.Size = New System.Drawing.Size(92, 17) Me.radUnmanaged.TabIndex = 1 Me.radUnmanaged.TabStop = True Me.radUnmanaged.Text = "Unmanaged" Me.radUnmanaged.UseVisualStyleBackColor = True ' 'Label41 ' Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label41.Location = New System.Drawing.Point(12, 10) Me.Label41.Name = "Label41" Me.Label41.Size = New System.Drawing.Size(392, 24) Me.Label41.TabIndex = 0 Me.Label41.Text = "Client Configuration: Management" ' 'Label49 ' Me.Label49.AutoSize = True Me.Label49.Location = New System.Drawing.Point(15, 60) Me.Label49.Name = "Label49" Me.Label49.Size = New System.Drawing.Size(546, 117) Me.Label49.TabIndex = 3 Me.Label49.Text = resources.GetString("Label49.Text") ' 'pnlStepEval ' Me.pnlStepEval.Controls.Add(Me.Label46) Me.pnlStepEval.Controls.Add(Me.Label45) Me.pnlStepEval.Controls.Add(Me.Label42) Me.pnlStepEval.Controls.Add(Me.radFreeClient) Me.pnlStepEval.Controls.Add(Me.radProClient) Me.pnlStepEval.Controls.Add(Me.Label15) Me.pnlStepEval.Enabled = False Me.pnlStepEval.Location = New System.Drawing.Point(0, 0) Me.pnlStepEval.Name = "pnlStepEval" Me.pnlStepEval.Size = New System.Drawing.Size(560, 288) Me.pnlStepEval.TabIndex = 52 Me.pnlStepEval.Visible = False ' 'Label46 ' Me.Label46.AutoSize = True Me.Label46.Location = New System.Drawing.Point(49, 217) Me.Label46.Name = "Label46" Me.Label46.Size = New System.Drawing.Size(483, 65) Me.Label46.TabIndex = 5 Me.Label46.Text = resources.GetString("Label46.Text") ' 'Label45 ' Me.Label45.AutoSize = True Me.Label45.Location = New System.Drawing.Point(51, 54) Me.Label45.Name = "Label45" Me.Label45.Size = New System.Drawing.Size(499, 130) Me.Label45.TabIndex = 4 Me.Label45.Text = resources.GetString("Label45.Text") ' 'Label42 ' Me.Label42.AutoSize = True Me.Label42.Location = New System.Drawing.Point(359, 9) Me.Label42.Name = "Label42" Me.Label42.Size = New System.Drawing.Size(177, 13) Me.Label42.TabIndex = 3 Me.Label42.Text = "Select the client you want to create:" ' 'radFreeClient ' Me.radFreeClient.AutoSize = True Me.radFreeClient.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.radFreeClient.Location = New System.Drawing.Point(32, 198) Me.radFreeClient.Name = "radFreeClient" Me.radFreeClient.Size = New System.Drawing.Size(131, 17) Me.radFreeClient.TabIndex = 2 Me.radFreeClient.TabStop = True Me.radFreeClient.Text = "AnywhereTS client" Me.radFreeClient.UseVisualStyleBackColor = True ' 'radProClient ' Me.radProClient.AutoSize = True Me.radProClient.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.radProClient.Location = New System.Drawing.Point(30, 37) Me.radProClient.Name = "radProClient" Me.radProClient.Size = New System.Drawing.Size(154, 17) Me.radProClient.TabIndex = 1 Me.radProClient.TabStop = True Me.radProClient.Text = "AnywhereTS Pro client" Me.radProClient.UseVisualStyleBackColor = True ' 'Label15 ' Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label15.Location = New System.Drawing.Point(32, 9) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(392, 24) Me.Label15.TabIndex = 0 Me.Label15.Text = "Client version" ' 'btnHelp ' Me.btnHelp.Location = New System.Drawing.Point(35, 296) Me.btnHelp.Name = "btnHelp" Me.btnHelp.Size = New System.Drawing.Size(112, 23) Me.btnHelp.TabIndex = 100 Me.btnHelp.Text = "Help" ' 'pnlDistribution ' Me.pnlDistribution.Controls.Add(Me.Label61) Me.pnlDistribution.Controls.Add(Me.Label60) Me.pnlDistribution.Controls.Add(Me.Label59) Me.pnlDistribution.Controls.Add(Me.Label58) Me.pnlDistribution.Controls.Add(Me.radBootUSB) Me.pnlDistribution.Controls.Add(Me.radBootHardDiskViaUSB) Me.pnlDistribution.Controls.Add(Me.radBootHardDiskViaCD) Me.pnlDistribution.Controls.Add(Me.radBootCD) Me.pnlDistribution.Controls.Add(Me.radBootNetwork) Me.pnlDistribution.Controls.Add(Me.Label52) Me.pnlDistribution.Controls.Add(Me.Label53) Me.pnlDistribution.Controls.Add(Me.Label54) Me.pnlDistribution.Enabled = False Me.pnlDistribution.Location = New System.Drawing.Point(0, 0) Me.pnlDistribution.Name = "pnlDistribution" Me.pnlDistribution.Size = New System.Drawing.Size(560, 288) Me.pnlDistribution.TabIndex = 53 Me.pnlDistribution.Visible = False ' 'Label61 ' Me.Label61.Location = New System.Drawing.Point(68, 174) Me.Label61.Name = "Label61" Me.Label61.Size = New System.Drawing.Size(434, 18) Me.Label61.TabIndex = 11 Me.Label61.Text = "Prepares a USB flash drive that can be used to boot the client." ' 'Label60 ' Me.Label60.Location = New System.Drawing.Point(68, 264) Me.Label60.Name = "Label60" Me.Label60.Size = New System.Drawing.Size(458, 18) Me.Label60.TabIndex = 10 Me.Label60.Text = "Prepares a USB flash drive that can be used to install the image to the client's " & _ "hard disk." ' 'Label59 ' Me.Label59.Location = New System.Drawing.Point(68, 219) Me.Label59.Name = "Label59" Me.Label59.Size = New System.Drawing.Size(470, 20) Me.Label59.TabIndex = 9 Me.Label59.Text = "Creates an ISO file that can be burnt to CD. The CD will install the image to the" & _ " client's hard disk." ' 'Label58 ' Me.Label58.Location = New System.Drawing.Point(68, 129) Me.Label58.Name = "Label58" Me.Label58.Size = New System.Drawing.Size(336, 19) Me.Label58.TabIndex = 8 Me.Label58.Text = "Creates an ISO file that can be burnt to CD and booted on the clients." ' 'radBootUSB ' Me.radBootUSB.AutoSize = True Me.radBootUSB.Location = New System.Drawing.Point(39, 154) Me.radBootUSB.Name = "radBootUSB" Me.radBootUSB.Size = New System.Drawing.Size(146, 17) Me.radBootUSB.TabIndex = 3 Me.radBootUSB.TabStop = True Me.radBootUSB.Text = "Boot from USB flash drive" Me.radBootUSB.UseVisualStyleBackColor = True ' 'radBootHardDiskViaUSB ' Me.radBootHardDiskViaUSB.AutoSize = True Me.radBootHardDiskViaUSB.Location = New System.Drawing.Point(39, 244) Me.radBootHardDiskViaUSB.Name = "radBootHardDiskViaUSB" Me.radBootHardDiskViaUSB.Size = New System.Drawing.Size(304, 17) Me.radBootHardDiskViaUSB.TabIndex = 5 Me.radBootHardDiskViaUSB.TabStop = True Me.radBootHardDiskViaUSB.Text = "Boot from hard disk (distribute via bootable USB flash drive)" Me.radBootHardDiskViaUSB.UseVisualStyleBackColor = True ' 'radBootHardDiskViaCD ' Me.radBootHardDiskViaCD.AutoSize = True Me.radBootHardDiskViaCD.Location = New System.Drawing.Point(39, 199) Me.radBootHardDiskViaCD.Name = "radBootHardDiskViaCD" Me.radBootHardDiskViaCD.Size = New System.Drawing.Size(248, 17) Me.radBootHardDiskViaCD.TabIndex = 4 Me.radBootHardDiskViaCD.TabStop = True Me.radBootHardDiskViaCD.Text = "Boot from hard disk (disitribute via bootable CD)" Me.radBootHardDiskViaCD.UseVisualStyleBackColor = True ' 'radBootCD ' Me.radBootCD.AutoSize = True Me.radBootCD.Location = New System.Drawing.Point(39, 109) Me.radBootCD.Name = "radBootCD" Me.radBootCD.Size = New System.Drawing.Size(88, 17) Me.radBootCD.TabIndex = 2 Me.radBootCD.TabStop = True Me.radBootCD.Text = "Boot from CD" Me.radBootCD.UseVisualStyleBackColor = True ' 'radBootNetwork ' Me.radBootNetwork.AutoSize = True Me.radBootNetwork.Location = New System.Drawing.Point(39, 64) Me.radBootNetwork.Name = "radBootNetwork" Me.radBootNetwork.Size = New System.Drawing.Size(89, 17) Me.radBootNetwork.TabIndex = 1 Me.radBootNetwork.TabStop = True Me.radBootNetwork.Text = "Network boot" Me.radBootNetwork.UseVisualStyleBackColor = True ' 'Label52 ' Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label52.Location = New System.Drawing.Point(32, 16) Me.Label52.Name = "Label52" Me.Label52.Size = New System.Drawing.Size(392, 24) Me.Label52.TabIndex = 0 Me.Label52.Text = "Select boot method" ' 'Label53 ' Me.Label53.Location = New System.Drawing.Point(68, 84) Me.Label53.Name = "Label53" Me.Label53.Size = New System.Drawing.Size(336, 18) Me.Label53.TabIndex = 2 Me.Label53.Text = "Updates the network boot image on your TFTP server(s)." ' 'Label54 ' Me.Label54.Location = New System.Drawing.Point(32, 40) Me.Label54.Name = "Label54" Me.Label54.Size = New System.Drawing.Size(336, 24) Me.Label54.TabIndex = 0 Me.Label54.Text = "How do you want the client to boot?" ' 'pnlRemovableMedia ' Me.pnlRemovableMedia.Controls.Add(Me.pnlWritingToRemovableDrive) Me.pnlRemovableMedia.Controls.Add(Me.pnlAttachRemovableDrive) Me.pnlRemovableMedia.Controls.Add(Me.lblSelectDrives) Me.pnlRemovableMedia.Controls.Add(Me.Label62) Me.pnlRemovableMedia.Controls.Add(Me.PictureBox5) Me.pnlRemovableMedia.Controls.Add(Me.lstRemovableDrives) Me.pnlRemovableMedia.Controls.Add(Me.Label55) Me.pnlRemovableMedia.Enabled = False Me.pnlRemovableMedia.Location = New System.Drawing.Point(0, 0) Me.pnlRemovableMedia.Name = "pnlRemovableMedia" Me.pnlRemovableMedia.Size = New System.Drawing.Size(560, 288) Me.pnlRemovableMedia.TabIndex = 54 Me.pnlRemovableMedia.Visible = False ' 'pnlWritingToRemovableDrive ' Me.pnlWritingToRemovableDrive.Controls.Add(Me.lblWritingClientToDrive) Me.pnlWritingToRemovableDrive.Location = New System.Drawing.Point(266, 37) Me.pnlWritingToRemovableDrive.Name = "pnlWritingToRemovableDrive" Me.pnlWritingToRemovableDrive.Size = New System.Drawing.Size(250, 239) Me.pnlWritingToRemovableDrive.TabIndex = 3 Me.pnlWritingToRemovableDrive.Visible = False ' 'lblWritingClientToDrive ' Me.lblWritingClientToDrive.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblWritingClientToDrive.Location = New System.Drawing.Point(7, 7) Me.lblWritingClientToDrive.Name = "lblWritingClientToDrive" Me.lblWritingClientToDrive.Size = New System.Drawing.Size(242, 34) Me.lblWritingClientToDrive.TabIndex = 0 Me.lblWritingClientToDrive.Text = "Writing client to" ' 'pnlAttachRemovableDrive ' Me.pnlAttachRemovableDrive.Controls.Add(Me.Label57) Me.pnlAttachRemovableDrive.Location = New System.Drawing.Point(266, 37) Me.pnlAttachRemovableDrive.Name = "pnlAttachRemovableDrive" Me.pnlAttachRemovableDrive.Size = New System.Drawing.Size(250, 239) Me.pnlAttachRemovableDrive.TabIndex = 3 ' 'Label57 ' Me.Label57.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label57.Location = New System.Drawing.Point(7, 7) Me.Label57.Name = "Label57" Me.Label57.Size = New System.Drawing.Size(242, 52) Me.Label57.TabIndex = 0 Me.Label57.Text = "Please attach at least one USB flash drive or other removable drive to the comput" & _ "er..." ' 'lblSelectDrives ' Me.lblSelectDrives.Location = New System.Drawing.Point(274, 43) Me.lblSelectDrives.Name = "lblSelectDrives" Me.lblSelectDrives.Size = New System.Drawing.Size(237, 76) Me.lblSelectDrives.TabIndex = 2 Me.lblSelectDrives.Text = "Select the removable drive(s) you want to write to. Then press Next." ' 'Label62 ' Me.Label62.AutoSize = True Me.Label62.Location = New System.Drawing.Point(273, 190) Me.Label62.Name = "Label62" Me.Label62.Size = New System.Drawing.Size(95, 13) Me.Label62.TabIndex = 6 Me.Label62.Text = "Removable drives:" ' 'PictureBox5 ' Me.PictureBox5.Image = CType(resources.GetObject("PictureBox5.Image"), System.Drawing.Image) Me.PictureBox5.Location = New System.Drawing.Point(36, 44) Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Size = New System.Drawing.Size(227, 232) Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize Me.PictureBox5.TabIndex = 5 Me.PictureBox5.TabStop = False ' 'lstRemovableDrives ' Me.lstRemovableDrives.FormattingEnabled = True Me.lstRemovableDrives.Location = New System.Drawing.Point(276, 207) Me.lstRemovableDrives.Name = "lstRemovableDrives" Me.lstRemovableDrives.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple Me.lstRemovableDrives.Size = New System.Drawing.Size(228, 69) Me.lstRemovableDrives.TabIndex = 4 ' 'Label55 ' Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label55.Location = New System.Drawing.Point(32, 16) Me.Label55.Name = "Label55" Me.Label55.Size = New System.Drawing.Size(392, 24) Me.Label55.TabIndex = 0 Me.Label55.Text = "Write to removable drive" ' 'timerRemovableMedia ' Me.timerRemovableMedia.Interval = 1000 ' 'NotifyIcon1 ' Me.NotifyIcon1.Text = "NotifyIcon1" Me.NotifyIcon1.Visible = True ' 'frmWizard ' Me.ClientSize = New System.Drawing.Size(560, 325) Me.Controls.Add(Me.pnlStepServer) Me.Controls.Add(Me.pnlStepGraph) Me.Controls.Add(Me.pnlRemovableMedia) Me.Controls.Add(Me.pnlDistribution) Me.Controls.Add(Me.btnAdvancedOptions) Me.Controls.Add(Me.cmdNext) Me.Controls.Add(Me.cmdPrevious) Me.Controls.Add(Me.btnDebug) Me.Controls.Add(Me.btnHelp) Me.Controls.Add(Me.pnlStepTFTP) Me.Controls.Add(Me.pnlStepFinished) Me.Controls.Add(Me.pnlStepSound) Me.Controls.Add(Me.pnlStepIPConf) Me.Controls.Add(Me.pnlStepLogo) Me.Controls.Add(Me.pnlStepISO) Me.Controls.Add(Me.pnlStepEval) Me.Controls.Add(Me.pnlStepManaged) Me.Controls.Add(Me.pnlStepNet) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.HelpProvider.SetHelpNavigator(Me, System.Windows.Forms.HelpNavigator.Topic) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MaximizeBox = False Me.Name = "frmWizard" Me.HelpProvider.SetShowHelp(Me, True) Me.ShowInTaskbar = False Me.Text = "AnywhereTS-config" Me.pnlStepServer.ResumeLayout(False) Me.pnlStepServer.PerformLayout() Me.pnlCitrixPN.ResumeLayout(False) Me.pnlCitrixPN.PerformLayout() Me.pnlApplicationSet.ResumeLayout(False) Me.pnlApplicationSet.PerformLayout() Me.pnlStepLogo.ResumeLayout(False) Me.pnlLogos.ResumeLayout(False) Me.pnlLogos.PerformLayout() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlStepGraph.ResumeLayout(False) Me.grpScreenResPro.ResumeLayout(False) Me.grpScreenResPro.PerformLayout() CType(Me.tbrScreenResolution, System.ComponentModel.ISupportInitialize).EndInit() Me.grpScreenResFree.ResumeLayout(False) Me.grpScreenResFree.PerformLayout() Me.grpColorDepth.ResumeLayout(False) Me.pnlStepNet.ResumeLayout(False) Me.Panel3.ResumeLayout(False) Me.pnlStepSound.ResumeLayout(False) Me.pnlStepISO.ResumeLayout(False) Me.pnlStepISO.PerformLayout() Me.pnlStepTFTP.ResumeLayout(False) Me.pnlStepFinished.ResumeLayout(False) Me.pnlStepIPConf.ResumeLayout(False) Me.pnlStepIPConf.PerformLayout() Me.pnlManagedClient.ResumeLayout(False) Me.pnlManagedClient.PerformLayout() Me.pnlClientIPSet.ResumeLayout(False) Me.pnlClientIPSet.PerformLayout() Me.pnlStepManaged.ResumeLayout(False) Me.pnlStepManaged.PerformLayout() Me.pnlStepEval.ResumeLayout(False) Me.pnlStepEval.PerformLayout() Me.pnlDistribution.ResumeLayout(False) Me.pnlDistribution.PerformLayout() Me.pnlRemovableMedia.ResumeLayout(False) Me.pnlRemovableMedia.PerformLayout() Me.pnlWritingToRemovableDrive.ResumeLayout(False) Me.pnlAttachRemovableDrive.ResumeLayout(False) CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region Private Sub wizard_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load #If PRO Then 'If we are running the pro version, we need to set up a config set. In the free version this is done in frmMain. currentImage = New ATSImage If ATSGlobals.managedMode = 1 Then 'We are running in managed mode, get defaults from database. currentImage.ReadDefaultFromDatabase() rem radManaged.Checked = True HS test ElseIf ATSGlobals.managedMode = 2 Then 'We are running in unmanged mode Else Throw New Exception("Undefined mode 87583") End If HelpProvider.HelpNamespace = ATSGlobals.strHelpFilePath ' Initiate helpProvider #Else #End If ' Set defaults strAppdir = Path.GetDirectoryName(Application.ExecutablePath) If Globals.WizardMode = Globals.WizardTask.USER_SELECTED_DISTRIBUTION Then currentImage.DesigntimeConfig.DataDirectory = strAppdir + "\data" ElseIf Globals.WizardMode = Globals.WizardTask.USER_SELECTED_DISTRIBUTION_DATA2 Then currentImage.DesigntimeConfig.DataDirectory = strAppdir + "\data2" End If intDHCPinst = 0 bolRestartComputer = False 'Get strTFTPdir from registry Settings.GetTFTPdirectory() 'Initiate combo boxes wizardSupport.LoadComboBoxFromFile(cboGraphThisDriver, currentImage.DesigntimeConfig.DataDirectory + "\" + ATSGlobals.SelectedGraphicsAdaptersFile) wizardSupport.LoadComboBoxFromFile(cboNetThisDriver, currentImage.DesigntimeConfig.DataDirectory + "\" + ATSGlobals.SelectedNicAdaptersFile) wizardSupport.LoadComboBoxFromFile(cboSndThisDriver, currentImage.DesigntimeConfig.DataDirectory + "\" + ATSGlobals.SelectedSoundAdaptersFile) ProSupport.ThisComputerIp(cboThisServer, True) ManagedClient = currentImage.DesigntimeConfig.ConfigFile InitPanelManaged() SwitchPanel(True) 'Show intro 'INITIATE CONTROLS 'Display during boot Select Case currentImage.DesigntimeConfig.BootPicture.Type Case 0 ' Text radTextBoot.Checked = True Case 1 'Custom picture radBootImageCustom.Checked = True Case 11 'Predef pic 1 radImageBoot.Checked = True radImage1.Checked = True Case 12 'Predef pic 2 radImageBoot.Checked = True radImage2.Checked = True Case 13 'Predef pic 3 radImageBoot.Checked = True radImage3.Checked = True Case 14 'Predef pic 4 radImageBoot.Checked = True radImage4.Checked = True Case Else radTextBoot.Checked = True End Select 'Network InitPanelNetwork() ' Graphics tbrScreenResolution.Maximum = ATSGlobals.ScreenResolutions.GetLength(0) ' The number of predefined screen resolutions. InitPanelGraphics() End Sub Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click Select Case WizardState Case WizardPanel.Managed_Panel ' NEXT button on Managed Unmanaged Client ' ******************************************************************************* InitPanelServer() 'ATSGlobals.isManaged = radManaged.Checked currentImage.DesigntimeConfig.ConfigFile = radManaged.Checked InitPanelNetwork() SwitchPanel(False) WizardState = WizardPanel.Server_Panel SwitchPanel(True) Case WizardPanel.ClientVersion_Panel ' NEXT button on New/Old RDP Client ' ******************************************************************************* InitPanelNetwork() SwitchPanel(False) WizardState = WizardPanel.Server_Panel SwitchPanel(True) Case WizardPanel.Server_Panel ' NEXT button on Server select ' ******************************************************************************* 'Save RDP/ICA selection, so that it can be used i.e on misc form Select Case cboConnection.SelectedIndex Case 0 currentImage.RuntimeConfig.SessionType = ATSImageRuntimeConfig.ATSSessionType.ATSRDP Case 1 currentImage.RuntimeConfig.SessionType = ATSImageRuntimeConfig.ATSSessionType.ATSICA Case 2 currentImage.RuntimeConfig.SessionType = ATSImageRuntimeConfig.ATSSessionType.ATSPNA Case Else MessageBox.Show("Error Unknown connection selection (73319)") End Select If radServerAnother.Checked Then 'Validate IP address If txtServerIP.Text.Trim.Length = 0 Then MessageBox.Show("You must supply the server name or IP address.", "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub Else strServerIP = txtServerIP.Text.Trim End If If intDHCPcheck = 2 Then ' User is connecting to another server and using internal DHCP. Add routing for the Anywhere network 10.253.0.0/16 and notify that route might have to be adjusted. Try Dim objRegkey As Microsoft.Win32.RegistryKey objRegkey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", True) If objRegkey.GetValue("IPEnableRouter", 1) <> 1 Then ' Is router enabled? Try 'Enable routing objRegkey.SetValue("IPEnableRouter", 1) bolRestartComputer = True Catch ex As Exception MessageBox.Show("Error, write to registry failed. Route not added.", "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End If Catch ex As Exception MessageBox.Show("Error, read registry failed.", "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try MessageBox.Show("You will be using the built in DHCP at the same time connecting to another server. If you experience connection problems, you might have to adjust the router on your terminal server to accept the IP addresses of the built in DHCP. Add a route for 10.253.0.0/16.", "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Error) End If Else 'This server strServerIP = cboThisServer.Text 'This should already be validated End If If chkDomain.Checked Then If txtDomain.Text.Trim.Length = 0 Then MessageBox.Show("You must supply a valid Domain name.", "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Error) txtDomain.Focus() txtDomain.SelectAll() Return Else strDomain = txtDomain.Text.Trim End If Else strDomain = "" End If If currentImage.RuntimeConfig.SessionType = ATSImageRuntimeConfig.ATSSessionType.ATSRDP Then 'RDP selected ElseIf currentImage.RuntimeConfig.SessionType = ATSImageRuntimeConfig.ATSSessionType.ATSICA Then 'ICA selected currentImage.RuntimeConfig.ICAApplicationSet = txtApplicationSet.Text ElseIf currentImage.RuntimeConfig.SessionType = ATSImageRuntimeConfig.ATSSessionType.ATSPNA Then 'PNA selected currentImage.RuntimeConfig.ICAServerURL = txtCitrixServerURL.Text currentImage.RuntimeConfig.ICAResource = txtCitrixResource.Text Else MessageBox.Show("Error: Unknown seesion type (76432)") End If InitPanelNetwork() SwitchPanel(False) WizardState = WizardPanel.Network_Panel SwitchPanel(True) Case WizardPanel.Network_Panel ' NEXT button on Network card select ' ******************************************************************************* SwitchPanel(False) If currentImage.DesigntimeConfig.ConfigFile Then pnlManagedClient.Enabled = True Else pnlManagedClient.Enabled = False End If If radNetClientIP.Checked = True Then InitPanelClientIP() WizardState = WizardPanel.ClientIP_Panel 'Manual assignd IP Else 'Server is 2003 Server or later WizardState = WizardPanel.Sound_Panel InitPanelSound() End If SwitchPanel(True) Case WizardPanel.ClientIP_Panel 'NEXT button on IP Manual ' ******************************************************************************* Dim ip As IPAddress ip = Nothing If Not IPAddress.TryParse(txtNetClientIP.Text, ip) Then MessageBox.Show("Please enter a valid IP address") txtNetClientIP.Focus() txtNetClientIP.SelectAll() Return End If If Not IPAddress.TryParse(txtNetClientMask.Text, ip) Then MessageBox.Show("Please enter a valid IP address") txtNetClientMask.Focus() txtNetClientMask.SelectAll() Return End If If Not txtNetClientGateway.Text = "" Then If Not IPAddress.TryParse(txtNetClientGateway.Text, ip) Then MessageBox.Show("Please enter a valid IP address") txtNetClientGateway.Focus() txtNetClientGateway.SelectAll() Return End If End If If Not txtNetClientDNS1.Text = "" Then If Not IPAddress.TryParse(txtNetClientDNS1.Text, ip) Then MessageBox.Show("Please enter a valid IP address") txtNetClientDNS1.Focus() txtNetClientDNS1.SelectAll() Return End If End If If txtNetClientDNS1.Text = "" And (Not IPAddress.TryParse(strServerIP, ip) Or currentImage.DesigntimeConfig.ConfigFile) Then If currentImage.DesigntimeConfig.ConfigFile And Not txtNetClientTFTP.Text = "" And Not IPAddress.TryParse(txtNetClientTFTP.Text, ip) Then MessageBox.Show("You need a DNS server") txtNetClientDNS1.Focus() txtNetClientDNS1.SelectAll() Return End If If Not IPAddress.TryParse(strServerIP, ip) Then MessageBox.Show("You need a DNS server") txtNetClientDNS1.Focus() txtNetClientDNS1.SelectAll() Return End If End If If Not txtNetClientDNS2.Text = "" Then If txtNetClientDNS1.Text = "" Then MessageBox.Show("Please enter a valid Preferred DNS server IP") txtNetClientDNS1.Focus() txtNetClientDNS1.SelectAll() Return End If If Not IPAddress.TryParse(txtNetClientDNS2.Text, ip) Then MessageBox.Show("Please enter a valid IP address") txtNetClientDNS2.Focus() txtNetClientDNS2.SelectAll() Return End If End If currentImage.DesigntimeConfig.ClientIP = IPAddress.Parse(txtNetClientIP.Text) currentImage.DesigntimeConfig.ClientIPNetmask = IPAddress.Parse(txtNetClientMask.Text) If txtNetClientGateway.Text = "" Then currentImage.DesigntimeConfig.ClientIPGateway = Nothing Else currentImage.DesigntimeConfig.ClientIPGateway = IPAddress.Parse(txtNetClientGateway.Text) End If If txtNetClientDNS1.Text = "" Then currentImage.DesigntimeConfig.ClientIPGateway = Nothing Else currentImage.DesigntimeConfig.ClientIPDNS1 = IPAddress.Parse(txtNetClientDNS1.Text) End If If txtNetClientDNS2.Text = "" Then currentImage.DesigntimeConfig.ClientIPGateway = Nothing Else currentImage.DesigntimeConfig.ClientIPDNS2 = IPAddress.Parse(txtNetClientDNS2.Text) End If currentImage.DesigntimeConfig.ClientIPDNSSuffix = txtNetClientDNSSuffix.Text currentImage.DesigntimeConfig.ClientBootServer = txtNetClientTFTP.Text SwitchPanel(False) 'Server is 2003 Server or later WizardState = WizardPanel.Sound_Panel 'Has sound InitPanelSound() SwitchPanel(True) Case WizardPanel.Sound_Panel 'NEXT button on Soundcard select ' ******************************************************************************* InitPanelGraphics() SwitchPanel(False) WizardState = WizardPanel.Graphic_Panel SwitchPanel(True) Case WizardPanel.Graphic_Panel 'NEXT button on Graphics card select ' ******************************************************************************* If radUnmanaged.Checked Then 'Resolution set by text boxes Try currentImage.RuntimeConfig.ScreenResolutionX = Int32.Parse(txtScreenResX.Text.Trim()) Catch MessageBox.Show("Invalid screen resolution!") txtScreenResX.Focus() txtScreenResX.SelectAll() Return End Try If currentImage.RuntimeConfig.ScreenResolutionX < 100 OrElse currentImage.RuntimeConfig.ScreenResolutionX > 9999 Then ' Value to high or to low MessageBox.Show("Invalid screen resolution!") txtScreenResX.Focus() txtScreenResX.SelectAll() Return End If Try currentImage.RuntimeConfig.ScreenResolutionY = Int32.Parse(txtScreenResY.Text.Trim()) Catch MessageBox.Show("Invalid screen resolution!") txtScreenResY.Focus() txtScreenResY.SelectAll() Return End Try If currentImage.RuntimeConfig.ScreenResolutionY < 100 OrElse currentImage.RuntimeConfig.ScreenResolutionY > 9999 Then ' Value to high or to low MessageBox.Show("Invalid screen resolution!") txtScreenResY.Focus() txtScreenResY.SelectAll() Return End If Else ' Default setting for all managed clients in fallback mode chkRefresh.Checked = True currentImage.RuntimeConfig.ScreenResolutionX = 800 currentImage.RuntimeConfig.ScreenResolutionY = 600 End If SwitchPanel(False) btnAdvancedOptions.Visible = True WizardState = WizardPanel.BootDisplay_Panel SwitchPanel(True) Case WizardPanel.BootDisplay_Panel 'NEXT button on Boot picture ' ******************************************************************************* SwitchPanel(False) InitPanelDistribution() WizardState = WizardPanel.Distribution SwitchPanel(True) Case WizardPanel.Distribution 'NEXT button on Select Distribution Panel ' ******************************************************************************* cmdNext.Enabled = False cmdPrevious.Enabled = False SaveControls() Select Case currentImage.DesigntimeConfig.BootMedia Case ATSImageDesigntimeConfig.ATSBootMedia.PXE MakeDistro() SwitchPanel(False) WizardState = WizardPanel.UpdateTFTP_Panel cmdNext.Enabled = True cmdNext.Focus() Case ATSImageDesigntimeConfig.ATSBootMedia.CD_ISO MakeDistro() SwitchPanel(False) WizardState = WizardPanel.ISO_Panel ' Set destination for CD image to My Documents folder and set a default name txtISOChoose.Text = Environment.GetFolderPath(Environment.SpecialFolder.Personal) + "\AnywhereTS_Client.iso" cmdNext.Enabled = True cmdNext.Focus() Case ATSImageDesigntimeConfig.ATSBootMedia.USB MakeDistro() SwitchPanel(False) UpdatePnlRemovableDrives(True) WizardState = WizardPanel.RemovableMedia Case ATSImageDesigntimeConfig.ATSBootMedia.HD_via_CD MakeDistro() SwitchPanel(False) WizardState = WizardPanel.ISO_Panel ' Set destination for CD image to My Documents folder and set a default name txtISOChoose.Text = Environment.GetFolderPath(Environment.SpecialFolder.Personal) + "\AnywhereTS_HardDiskBoot.iso" cmdNext.Enabled = True cmdNext.Focus() Case ATSImageDesigntimeConfig.ATSBootMedia.HD_via_USB MakeDistro() SwitchPanel(False) UpdatePnlRemovableDrives(True) WizardState = WizardPanel.RemovableMedia Case Else MessageBox.Show("Error No dist selected (12433)") End Select SwitchPanel(True) cmdPrevious.Enabled = True Case WizardPanel.ISO_Panel 'ISO select ' ******************************************************************************* 'NB we can safely overwrite destination, because Save File dialog has already 'asked user for "overwrite?" confirmation. Try File.Copy(currentImage.objTempdir.BasePath + "\client.iso", txtISOChoose.Text, True) Catch MessageBox.Show("Could not save file. Please choose another destination.", "AnywhereTS") Exit Sub End Try SwitchPanel(False) WizardState = WizardPanel.Finish_Panel If currentImage.DesigntimeConfig.BootMedia = ATSImageDesigntimeConfig.ATSBootMedia.CD_ISO Then 'CD disitribution rtxFinished.Rtf = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}{\*\generator Msftedit 5.41.21.2500;}\viewkind4\uc1\pard\lang1053\f0\fs20 Your client image is ready.\par\par 1. Burn the newly saved ISO file to CD using a CD-writing software.\par 2. Make sure you client computer is configured to boot from CD.\par 3. Insert the CD into the client computer and boot.\lang1033\par}" Else 'Hard disk via CD distribtion rtxFinished.Rtf = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}{\*\generator Msftedit 5.41.21.2500;}\viewkind4\uc1\pard\lang1053\f0\fs20 Your client image is ready.\par\par 1. Burn the newly saved ISO file to CD using a CD-writing software.\par 2. Make sure you client computer is configured to boot from CD.\par 3. Insert the CD into the client computer and boot.\par 4. Follow the instructions on the screen of the client computer.\lang1033\par}" End If SwitchPanel(True) Case WizardPanel.UpdateTFTP_Panel ' NEXT on Update TFTP ' ******************************************************************************* If currentImage.DesigntimeConfig.BootPackage = 0 Then 'Copy Etherboot files to TFTP server(s) UpdateTFTP_withEtherboot() ElseIf currentImage.DesigntimeConfig.BootPackage = 1 Then 'Copy PXE linux files to TFTP server(s) UpdateTFTP_withPXE_Linux() Else MessageBox.Show("Error, unknown boot method (42664)", "AnywhereTS") End If SwitchPanel(False) Me.Close() SwitchPanel(True) Case WizardPanel.RemovableMedia 'NEXT button on Removable Media Panel ' ******************************************************************************* Dim oldCursor As Cursor = Me.Cursor Dim currentDriveName As String Try Me.Cursor = Cursors.WaitCursor pnlWritingToRemovableDrive.Visible = True pnlWritingToRemovableDrive.Refresh() ' Create the client and store it in the "\usb" directory If currentImage.DesigntimeConfig.BootMedia = ATSImageDesigntimeConfig.ATSBootMedia.USB Then currentImage.CreateUSBBootedClient() ' Create the client and store it in the "\usb" directory rtxFinished.Rtf = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}{\*\generator Msftedit 5.41.21.2500;}\viewkind4\uc1\pard\lang1053\f0\fs20 Your client image is ready.\par\par 1. Safely remove the removable drive.\par 2. Make sure you client computer is configured to boot from USB.\par 3. Insert the removable drive into the client computer and boot.\lang1033\par}" ElseIf currentImage.DesigntimeConfig.BootMedia = ATSImageDesigntimeConfig.ATSBootMedia.HD_via_USB Then currentImage.CreateHardDiskBootUSB() rtxFinished.Rtf = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}{\*\generator Msftedit 5.41.21.2500;}\viewkind4\uc1\pard\lang1053\f0\fs20 Your client image is ready.\par\par 1. Safely remove the removable drive.\par 2. Make sure you client computer is configured to boot from USB.\par 3. Insert the removable drive into the client computer and boot.\par 4. Follow the instructions on the screen of the client computer.\lang1033\par}" Else 'Client media unknown. Should not happen! Me.Cursor = oldCursor MessageBox.Show("Error unknown media call (55111)") Exit Sub End If ' Copy the client to the selected removable drives For Each intSelectedIndex As Integer In lstRemovableDrives.SelectedIndices currentDriveName = previousRemovableDrives(intSelectedIndex).Name lblWritingClientToDrive.Text = "Writing client to " & currentDriveName lblWritingClientToDrive.Refresh() 'Check USB memory file system If Not previousRemovableDrives(intSelectedIndex).DriveFormat.StartsWith("FAT") Then 'Wrong file system Me.Cursor = oldCursor MessageBox.Show("Error: The file system of your removable drive " & currentDriveName & " is not FAT. The file system needs to be FAT in order for the drive to become bootable. Please attach a removable drive that is using FAT.", "AnywhereTS") Exit Sub End If 'Check USB memory free space Dim requiredSpace As Long If File.Exists(currentDriveName & "initrd") Then 'There is already a client on the removable drive. Go with less memory requiredSpace = 10000000 ' Ca 10 MB (could be a USB client that should be overwritten with HD client) Else 'Probably there is yet no client on the removable drive requiredSpace = 15000000 ' Ca 15 MB End If If previousRemovableDrives(intSelectedIndex).TotalFreeSpace < requiredSpace Then 'Too little space Me.Cursor = oldCursor MessageBox.Show("Error: There is not enoguh space on the drive " & currentDriveName & ". Please delete some files and try again.", "AnywhereTS") Exit Sub End If If currentImage.DesigntimeConfig.BootMedia = ATSImageDesigntimeConfig.ATSBootMedia.USB Then 'We are writing an USB booted client If Not currentImage.WriteUSBBootedClient(currentDriveName) Then 'Error when creating USB booted client. Me.Cursor = oldCursor Exit Sub End If ElseIf currentImage.DesigntimeConfig.BootMedia = ATSImageDesigntimeConfig.ATSBootMedia.HD_via_USB Then 'We are creating a hard disk client via USB If Not currentImage.WriteHardDiskBootUSB(currentDriveName) Then 'Error when creating hard disk client via USB Me.Cursor = oldCursor Exit Sub End If Else 'Client media unknown. Should not happen! Me.Cursor = oldCursor MessageBox.Show("Error unknown media call (55109)") Exit Sub End If Next SwitchPanel(False) WizardState = WizardPanel.Finish_Panel SwitchPanel(True) Catch ex As Exception MessageBox.Show("Error when writing client (20932): " & ex.Message, "AnywhereTS") Exit Sub Finally pnlWritingToRemovableDrive.Visible = False Me.Cursor = oldCursor End Try Case WizardPanel.Finish_Panel 'Finished ' ******************************************************************************* SwitchPanel(False) Me.Close() SwitchPanel(True) End Select End Sub Private Sub cmdPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrevious.Click Select Case WizardState Case WizardPanel.Managed_Panel 'Managed select SwitchPanel(False) Me.Close() SwitchPanel(True) Case WizardPanel.ClientVersion_Panel 'RDP Old/New select SwitchPanel(False) WizardState = WizardPanel.Managed_Panel SwitchPanel(True) Case WizardPanel.Server_Panel 'Server select SwitchPanel(False) WizardState = WizardPanel.Managed_Panel SwitchPanel(True) Case WizardPanel.Network_Panel 'Network card select SwitchPanel(False) WizardState = WizardPanel.Server_Panel SwitchPanel(True) Case WizardPanel.ClientIP_Panel 'IP Manual SwitchPanel(False) WizardState = WizardPanel.Network_Panel SwitchPanel(True) Case WizardPanel.Sound_Panel 'Soundcard select SwitchPanel(False) If radNetUseDHCP.Checked = True Then WizardState = WizardPanel.Network_Panel 'Using DHCP Else WizardState = WizardPanel.ClientIP_Panel 'Manual assignd IP End If SwitchPanel(True) Case WizardPanel.Graphic_Panel 'Graphics card select SwitchPanel(False) 'Server is 2003 Server or later WizardState = WizardPanel.Sound_Panel SwitchPanel(True) Case WizardPanel.BootDisplay_Panel 'Logo select SwitchPanel(False) WizardState = WizardPanel.Graphic_Panel InitPanelGraphics() SwitchPanel(True) Case WizardPanel.Distribution 'PREVIOUS button on Select Distribution Panel SwitchPanel(False) WizardState = WizardPanel.BootDisplay_Panel btnAdvancedOptions.Visible = True SwitchPanel(True) Case WizardPanel.RemovableMedia 'PREVIOUS button on Removable Media Panel SwitchPanel(False) WizardState = WizardPanel.Distribution SwitchPanel(True) Case WizardPanel.ISO_Panel 'ISO select SwitchPanel(False) WizardState = WizardPanel.Distribution SwitchPanel(True) Case WizardPanel.UpdateTFTP_Panel 'Update TFTP SwitchPanel(False) WizardState = WizardPanel.Distribution SwitchPanel(True) Case WizardPanel.Finish_Panel 'Finished SwitchPanel(False) If radBootNetwork.Checked Then WizardState = WizardPanel.UpdateTFTP_Panel ElseIf radBootCD.Checked Then WizardState = WizardPanel.ISO_Panel ElseIf radBootHardDiskViaCD.Checked Then WizardState = WizardPanel.ISO_Panel ElseIf radBootHardDiskViaUSB.Checked Then UpdatePnlRemovableDrives(True) WizardState = WizardPanel.RemovableMedia ElseIf radBootUSB.Checked Then UpdatePnlRemovableDrives(True) WizardState = WizardPanel.RemovableMedia Else MessageBox.Show("Error No dist selected (12433)") End If SwitchPanel(True) End Select cmdNext.Text = "Next >" End Sub Private Sub SwitchPanel(ByVal bolEnabled As Boolean) Select Case WizardState Case WizardPanel.Managed_Panel 'Managed select pnlStepManaged.Enabled = bolEnabled cmdPrevious.Visible = False cmdNext.Text = "Next >" btnAdvancedOptions.Visible = False pnlStepManaged.Visible = bolEnabled Case WizardPanel.Server_Panel 'Server select pnlStepServer.Enabled = bolEnabled cmdPrevious.Visible = True cmdNext.Text = "Next >" btnAdvancedOptions.Visible = False pnlStepServer.Visible = bolEnabled Case WizardPanel.ClientVersion_Panel 'RDP Old/New select pnlStepEval.Enabled = bolEnabled cmdPrevious.Visible = True cmdNext.Text = "Next >" btnAdvancedOptions.Visible = False pnlStepEval.Visible = bolEnabled Case WizardPanel.Network_Panel 'Network card select pnlStepNet.Enabled = bolEnabled cmdPrevious.Visible = True btnAdvancedOptions.Visible = False pnlStepNet.Visible = bolEnabled Case WizardPanel.ClientIP_Panel 'IP Manual pnlStepIPConf.Enabled = bolEnabled cmdPrevious.Visible = True btnAdvancedOptions.Visible = False pnlStepIPConf.Visible = bolEnabled Case WizardPanel.Sound_Panel 'Soundcard select pnlStepSound.Enabled = bolEnabled cmdPrevious.Visible = True btnAdvancedOptions.Visible = False pnlStepSound.Visible = bolEnabled Case WizardPanel.Graphic_Panel 'Graphics card select pnlStepGraph.Enabled = bolEnabled btnAdvancedOptions.Visible = False cmdPrevious.Visible = True pnlStepGraph.Visible = bolEnabled Case WizardPanel.BootDisplay_Panel 'Logo select pnlStepLogo.Enabled = bolEnabled btnAdvancedOptions.Visible = True cmdPrevious.Visible = True btnAdvancedOptions.Visible = True pnlStepLogo.Visible = bolEnabled Case WizardPanel.Distribution 'Select distribution pnlDistribution.Enabled = bolEnabled cmdPrevious.Visible = True btnAdvancedOptions.Visible = False cmdNext.Text = "Next >" cmdNext.Enabled = True ' Could have been disabled if we went to the RemovableMedia panel and pressed 'Previous' pnlDistribution.Visible = bolEnabled Case WizardPanel.ISO_Panel 'ISO select pnlStepISO.Enabled = bolEnabled cmdPrevious.Visible = True btnAdvancedOptions.Visible = False cmdNext.Text = "Next >" pnlStepISO.Visible = bolEnabled Case WizardPanel.UpdateTFTP_Panel 'Update TFTP pnlStepTFTP.Enabled = bolEnabled cmdPrevious.Visible = True btnAdvancedOptions.Visible = False cmdNext.Text = "Finish" pnlStepTFTP.Visible = bolEnabled Case WizardPanel.RemovableMedia 'Removable Media (write to USB) pnlRemovableMedia.Enabled = bolEnabled cmdPrevious.Visible = True btnAdvancedOptions.Visible = False cmdNext.Text = "Next >" pnlRemovableMedia.Visible = bolEnabled If bolEnabled Then timerRemovableMedia.Start() 'Activate the timer for updating the panel. Else timerRemovableMedia.Stop() 'Deactivate the timer for updating the panel. End If Case WizardPanel.Finish_Panel 'Finished pnlStepFinished.Enabled = bolEnabled cmdPrevious.Visible = True btnAdvancedOptions.Visible = False cmdNext.Text = "Finish" pnlStepFinished.Visible = bolEnabled End Select End Sub Private Sub UpdateTFTP_withEtherboot() If ATSGlobals.managedMode = 1 Then ' We are running in managed mode, update TFTP If ATSGlobals.tftpConfig = 0 Then ' Use ATS TFTP Try File.Copy(currentImage.objTempdir.BasePath + "\client", ATSGlobals.strTFTPdir + "\client", True) File.Copy(currentImage.DesigntimeConfig.DataDirectory & "\client.zpxe", ATSGlobals.strTFTPdir + "\client.zpxe", True) Catch MessageBox.Show("Error: Could not update AnywhereTS internal TFTP server (22956). Do you have sufficient rights to " + ATSGlobals.strTFTPdir + "?", "AnywhereTS") End Try ElseIf ATSGlobals.tftpConfig = 1 Then ' External TFTP ' Write the image files to all TFTP directories ProSupport.CopyImageFile(currentImage.objTempdir.BasePath, "client", "client") ProSupport.CopyImageFile(currentImage.DesigntimeConfig.DataDirectory, "client.zpxe", "client.zpxe") Else Throw New Exception("Unknown TFTP mode 28158") End If ElseIf ATSGlobals.managedMode = 2 Then ' We are running in unmanaged mode. Update the Destination directory File.Copy(currentImage.objTempdir.BasePath + "\client", ProSupport.strDestDir + "\client", True) File.Copy(currentImage.DesigntimeConfig.DataDirectory + "\client.zpxe", ProSupport.strDestDir + "\client.zpxe", True) MessageBox.Show("Client image files saved in " & ProSupport.strDestDir, "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Asterisk) Else Throw New Exception("Undefinied configuration 77114") End If End Sub Private Sub UpdateTFTP_withPXE_Linux() If ATSGlobals.managedMode = 1 Then ' We are running in managed mode, update TFTP If ATSGlobals.tftpConfig = 0 Then Try ' Use ATS TFTP File.Copy(currentImage.objTempdir.BasePath + "\initrd", ATSGlobals.strTFTPdir + "\INITRD", True) File.Copy(currentImage.DesigntimeConfig.DataDirectory + "\vmlinuz", ATSGlobals.strTFTPdir + "\vmlinuz", True) File.Copy(currentImage.DesigntimeConfig.DataDirectory + "\client2.zpxe", ATSGlobals.strTFTPdir + "\client.zpxe", True) Directory.CreateDirectory(ATSGlobals.strTFTPdir + "\pxelinux.cfg") File.Copy(currentImage.objTempdir.BasePath + "\cd\isolinux.cfg", ATSGlobals.strTFTPdir + "\pxelinux.cfg\default", True) Catch MessageBox.Show("Error: Could not update AnywhereTS internal TFTP server (22954). Do you have sufficient rights to " + ATSGlobals.strTFTPdir + "?", "AnywhereTS") End Try ElseIf ATSGlobals.tftpConfig = 1 Then ' External TFTP ' Write the image files to all TFTP directories ProSupport.CopyImageFile(currentImage.objTempdir.BasePath, "initrd", "INITRD") ProSupport.CopyImageFile(currentImage.DesigntimeConfig.DataDirectory, "vmlinuz", "vmlinuz") ProSupport.CopyImageFile(currentImage.DesigntimeConfig.DataDirectory, "client2.zpxe", "client.zpxe") ProSupport.CreateDirectoryOnTFTP_servers("pxelinux.cfg") ProSupport.CopyImageFile(currentImage.objTempdir.BasePath + "\cd", "isolinux.cfg", "pxelinux.cfg\default") Else Throw New Exception("Unknown TFTP mode (28161)") End If ElseIf ATSGlobals.managedMode = 2 Then ' We are running in unmanaged mode. Update the Destination directory MessageBox.Show("Unmanged mode not implemented for PXE Linux", "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Asterisk) Else Throw New Exception("Undefinied configuration (77119)") End If End Sub Private Sub radGraphThisDriver_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radGraphThisDriver.CheckedChanged cboGraphThisDriver.Enabled = radGraphThisDriver.Checked End Sub Private Sub cmdISOChoose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdISOChoose.Click Dim objDialog As New SaveFileDialog objDialog.Filter = "CD-R ISO images (*.iso)|*.iso" objDialog.DefaultExt = "iso" objDialog.FileName = txtISOChoose.Text If objDialog.ShowDialog() = DialogResult.OK Then txtISOChoose.Text = objDialog.FileName End If End Sub Private Sub radImageBoot_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radImageBoot.CheckedChanged radImage1.Enabled = radImageBoot.Checked radImage2.Enabled = radImageBoot.Checked radImage3.Enabled = radImageBoot.Checked radImage4.Enabled = radImageBoot.Checked End Sub Private Sub radNetThisDriver_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radNetThisDriver.CheckedChanged cboNetThisDriver.Enabled = radNetThisDriver.Checked End Sub Private Sub radNetClientIP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radNetClientIP.CheckedChanged txtNetClientIP.Enabled = radNetClientIP.Checked txtNetClientMask.Enabled = radNetClientIP.Checked txtNetClientGateway.Enabled = radNetClientIP.Checked End Sub Private Sub radSndThisDriver_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radSndThisDriver.CheckedChanged cboSndThisDriver.Enabled = radSndThisDriver.Checked End Sub Private Sub radAnotherServer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radServerAnother.CheckedChanged ServerDomainEnableControls() End Sub Private Sub ServerDomainEnableControls() 'Enables controls on the Server-Domain panel depending on the choice of this or another server cboThisServer.Enabled = radThisComputer.Checked lblServerIP.Enabled = radServerAnother.Checked txtServerIP.Enabled = radServerAnother.Checked End Sub Private Function TestWriteTempAndTFTPdir() As Boolean 'Create a test file and delete it. Trap any error. On Error GoTo Err File.CreateText(Globals.strTFTPdir + "\writetest.txt").Close() File.Delete(Globals.strTFTPdir + "\writetest.txt") Return True Err: On Error GoTo 0 MessageBox.Show("Cannot write to TFTP directory. You have to be Administrator to run this application.", "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Asterisk) Return False End Function Private Sub MakeDistro() Dim oldCursor As Cursor = Me.Cursor Me.Cursor = Cursors.WaitCursor 'Build the image currentImage.Make() 'Check if we are running free client. Dim freeClient As Boolean freeClient = False 'Add boot image If currentImage.DesigntimeConfig.BootPicture.Type > 10 Or currentImage.DesigntimeConfig.BootPicture.Type = 1 Then ' One of the predefinied bootpictures or custom selected currentImage.DesigntimeConfig.BootPicture.Write(currentImage.objTempdir.BasePath + "\initrd", currentImage.DesigntimeConfig.DataDirectory, freeClient) End If If radBootCD.Checked Then 'Make client boot CD currentImage.CreateClientISO() ElseIf radBootNetwork.Checked Then 'Make network boot image If currentImage.DesigntimeConfig.BootPackage = 0 Then 'Make Etherboot image currentImage.CreateEtherboot() ElseIf currentImage.DesigntimeConfig.BootPackage = 1 Then currentImage.CreateClientISO() ' We will use the isolinux.cfg from the cd for PXELINUX Else MessageBox.Show("Error, unknown boot method (42663)", "AnywhereTS") End If ElseIf radBootHardDiskViaCD.Checked Then 'Make CD distributed hard disk booted client currentImage.CreateHardDiskBootISO() End If Me.Cursor = oldCursor End Sub 'Save selections in all controls to current image Private Sub SaveControls() 'Save Display during boot controls If radTextBoot.Checked Then currentImage.DesigntimeConfig.BootPicture.Type = 0 ElseIf radImageBoot.Checked Then If radImage1.Checked Then currentImage.DesigntimeConfig.BootPicture.Type = 11 ElseIf radImage2.Checked Then currentImage.DesigntimeConfig.BootPicture.Type = 12 ElseIf radImage3.Checked Then currentImage.DesigntimeConfig.BootPicture.Type = 13 Else currentImage.DesigntimeConfig.BootPicture.Type = 14 End If Else currentImage.DesigntimeConfig.BootPicture.Type = 1 ' Custom boot pic End If 'Save Network & IP controls If radNetThisDriver.Checked Then If cboNetThisDriver.SelectedIndex <> -1 Then currentImage.DesigntimeConfig.NetworkDriver = cboNetThisDriver.Text Else currentImage.DesigntimeConfig.NetworkDriver = "" 'Card not selected, go for Autodetect End If Else currentImage.DesigntimeConfig.NetworkDriver = "" ' Autodetect End If If radNetUseDHCP.Checked Then currentImage.DesigntimeConfig.UseDHCP = True Else currentImage.DesigntimeConfig.UseDHCP = False currentImage.DesigntimeConfig.ClientIP = System.Net.IPAddress.Parse(txtNetClientIP.Text) currentImage.DesigntimeConfig.ClientIPNetmask = System.Net.IPAddress.Parse(txtNetClientMask.Text) currentImage.DesigntimeConfig.ClientIPGateway = System.Net.IPAddress.Parse(txtNetClientGateway.Text) End If 'Save Server & domain controls If radThisComputer.Checked Then 'Clients will connect to this computer currentImage.RuntimeConfig.ServerName = cboThisServer.Text If Environment.OSVersion.Version.Major = 5 And Environment.OSVersion.Version.Minor = 0 Then 'This server/computer is running Win 2000 currentImage.RuntimeConfig.ServerVersion = ATSImageRuntimeConfig.ATSServerVersion.ATSWin2000 Else 'This computer is running a non Win 2000 OS currentImage.RuntimeConfig.ServerVersion = ATSImageRuntimeConfig.ATSServerVersion.ATSWin2003 End If Else 'Clients will connect to another server currentImage.RuntimeConfig.ServerName = strServerIP End If If chkDomain.Checked Then currentImage.RuntimeConfig.ServerDomain = strDomain Else currentImage.RuntimeConfig.ServerDomain = "" End If If radGraph24bit.Checked Then currentImage.RuntimeConfig.ScreenColorDepth = ATSImageRuntimeConfig.ATSScreenColorDepth.ATS24Bit Else currentImage.RuntimeConfig.ScreenColorDepth = ATSImageRuntimeConfig.ATSScreenColorDepth.ATS16Bit End If currentImage.RuntimeConfig.DigitalMonitor = chkRefresh.Checked If radGraphThisDriver.Checked Then currentImage.RuntimeConfig.GraphicsAdapter = LookupFile(cboGraphThisDriver.SelectedIndex, ATSGlobals.GraphicsAdaptersA) Else ' Automatic driver selection is selected currentImage.RuntimeConfig.GraphicsAdapter = "" End If SavePanelSound() 'Save pnlDistribution If radBootNetwork.Checked Then currentImage.DesigntimeConfig.BootMedia = ATSImageDesigntimeConfig.ATSBootMedia.PXE ElseIf radBootCD.Checked Then currentImage.DesigntimeConfig.BootMedia = ATSImageDesigntimeConfig.ATSBootMedia.CD_ISO ElseIf radBootUSB.Checked Then currentImage.DesigntimeConfig.BootMedia = ATSImageDesigntimeConfig.ATSBootMedia.USB ElseIf radBootHardDiskViaCD.Checked Then currentImage.DesigntimeConfig.BootMedia = ATSImageDesigntimeConfig.ATSBootMedia.HD_via_CD ElseIf radBootHardDiskViaUSB.Checked Then currentImage.DesigntimeConfig.BootMedia = ATSImageDesigntimeConfig.ATSBootMedia.HD_via_USB Else MessageBox.Show("Error No dist selected (12433)") End If End Sub 'Adds a an IP address to the adapter specified in AdapterCaption. Private Function AddIP(ByVal AdapterCaption As String, ByVal NewIP As String, ByVal NewSubnet As String) As Integer Dim query As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration Where Caption = '" & AdapterCaption & "'") Dim queryCollection As ManagementObjectCollection Dim mo As ManagementObject Dim IPArray As ManagementBaseObject Dim errEnable As ManagementBaseObject Dim i As Integer Try queryCollection = query.Get() For Each mo In queryCollection Dim addresses() As String = CType(mo("IPAddress"), String()) Dim subnets() As String = CType(mo("IPSubnet"), String()) Dim bolIPAllreadyExists As Boolean = False For i = 0 To UBound(addresses) If addresses(i) = NewIP Then 'IP already exists bolIPAllreadyExists = True End If Next i 'If it is a new IP, add it. If Not bolIPAllreadyExists Then Try ReDim Preserve addresses(UBound(addresses) + 1) addresses(UBound(addresses)) = NewIP ReDim Preserve subnets(UBound(subnets) + 1) subnets(UBound(subnets)) = NewSubnet IPArray = mo.GetMethodParameters("EnableStatic") IPArray("IPAddress") = addresses IPArray("SubnetMask") = subnets Dim options As New InvokeMethodOptions errEnable = mo.InvokeMethod("EnableStatic", IPArray, options) 'MessageBox.Show("Debug Hubbanät tillagt. Felkod: " & errEnable.ToString, "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Error) Catch ex As Exception MessageBox.Show("Error: Could not not set IP. " & ex.ToString, "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End If Next Catch ex As Exception MessageBox.Show("Error! Cannot get adapters. " & ex.ToString, "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Try End Try Return 1 End Function Private Sub frmWizard_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated If Globals.bolDhcpNotInst Then 'This code is only run the application is just started and the form displayed for the first time Application.DoEvents() 'WizardState = WizardPanel.ConfDHCP_Panel 'intStep = 0 'Check to see that write persmissions exist If Not TestWriteTempAndTFTPdir() Then MessageBox.Show("AnywhereTS must have write permissions to directories. Current action will abort.") Me.Close() End If End If End Sub 'Enumerates network adapters with static IP:s Private Function EnumNetworkAdapters(ByRef Adapters() As String, ByRef AdapterIP() As String, ByRef combo As System.Windows.Forms.ComboBox) As Integer Dim query As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True AND DHCPEnabled = False") Dim queryCollection As ManagementObjectCollection = query.Get() Dim mo As ManagementObject Dim AdapterCaption() As String = {} Dim i As Integer = 0 combo.Items.Clear() ReDim Adapters(0) ReDim AdapterIP(0) For Each mo In queryCollection Dim addresses() As String = CType(mo("IPAddress"), String()) combo.Items.Add(addresses(0) & " " & mo("Description")) Globals.strComputerIPAddress = addresses(0) ReDim Preserve Adapters(i) ReDim Preserve AdapterIP(i) Adapters(i) = mo("Caption") AdapterIP(i) = addresses(0) i = i + 1 Next Return i ' Return number of adapters with static IP. End Function Protected Overrides Sub Finalize() MyBase.Finalize() End Sub ' Show the advanced client options dialog Private Sub btnAdvancedOptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdvancedOptions.Click Dim objCustomDialogBox As frmClientMiscellany objCustomDialogBox = New frmClientMiscellany() objCustomDialogBox.currentImage = currentImage 'Enable Pro Options on the Advanced client dialog. objCustomDialogBox.isPro = Globals.isPro objCustomDialogBox.ShowDialog() End Sub Private Sub radThisComputer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radThisComputer.CheckedChanged ServerDomainEnableControls() End Sub Private Sub InitPanelManaged() radManaged.Checked = currentImage.DesigntimeConfig.ConfigFile End Sub Private Sub InitPanelServer() If currentImage.RuntimeConfig.ServerName = "" Then 'No server name defined, set default this server radThisComputer.Checked = True txtServerIP.Text = "" cboThisServer.SelectedIndex = 0 Else cboThisServer.SelectedIndex = cboThisServer.FindStringExact(currentImage.RuntimeConfig.ServerName) If cboThisServer.SelectedIndex = -1 Then cboThisServer.SelectedIndex = 0 ' There should always be an item selected in the combo radServerAnother.Checked = True If currentImage.RuntimeConfig.ServerName <> strHubbaIP Then txtServerIP.Text = currentImage.RuntimeConfig.ServerName Else txtServerIP.Text = "" ' Do not display the AnywhereTS net internal IP End If Else radThisComputer.Checked = True txtServerIP.Text = "" End If End If Select Case currentImage.RuntimeConfig.SessionType Case ATSImageRuntimeConfig.ATSSessionType.ATSRDP cboConnection.SelectedIndex = 0 Case ATSImageRuntimeConfig.ATSSessionType.ATSICA cboConnection.SelectedIndex = 1 Case ATSImageRuntimeConfig.ATSSessionType.ATSPNA cboConnection.SelectedIndex = 2 Case Else MessageBox.Show("Error: Invalid session type 43201") End Select ServerDomainEnableControls() 'Update Citrix application set txtApplicationSet.Text = currentImage.RuntimeConfig.ICAApplicationSet txtCitrixServerURL.Text = currentImage.RuntimeConfig.ICAServerURL txtCitrixResource.Text = currentImage.RuntimeConfig.ICAResource 'Update domain controls If currentImage.RuntimeConfig.ServerDomain = "" Then chkDomain.Checked = False txtDomain.Text = "" lblDomain.Enabled = False txtDomain.Enabled = False Else chkDomain.Checked = True txtDomain.Text = currentImage.RuntimeConfig.ServerDomain lblDomain.Enabled = True txtDomain.Enabled = True End If End Sub Private Sub InitPanelClientVersion() End Sub Private Sub InitPanelNetwork() If currentImage.DesigntimeConfig.NetworkDriver = "" Then radNetAuto.Checked = True cboNetThisDriver.SelectedIndex = -1 Else cboNetThisDriver.SelectedIndex = cboNetThisDriver.FindStringExact(currentImage.DesigntimeConfig.NetworkDriver) radNetThisDriver.Checked = True End If If currentImage.DesigntimeConfig.UseDHCP Then radNetUseDHCP.Checked = True Else radNetClientIP.Checked = True End If End Sub Private Sub InitPanelGraphics() If IntPtr.Size = 8 Then '64 bit OS, change the background color on the track bar to controls, as it becomes white on 64 bit tbrScreenResolution.BackColor = System.Drawing.SystemColors.Control End If If currentImage.DesigntimeConfig.GraphicsDriver = "" Then radGraphAuto.Checked = True cboGraphThisDriver.SelectedIndex = -1 Else cboGraphThisDriver.SelectedIndex = cboGraphThisDriver.FindStringExact(currentImage.DesigntimeConfig.GraphicsDriver) radGraphThisDriver.Checked = True End If chkRefresh.Checked = currentImage.RuntimeConfig.DigitalMonitor 'Update screen resolution If currentImage.DesigntimeConfig.ConfigFile Then grpScreenResPro.Visible = False grpScreenResFree.Visible = False grpColorDepth.Visible = False chkRefresh.Visible = False chkRefresh.Checked = True Else grpColorDepth.Visible = True chkRefresh.Visible = True UpdateProPanelScreenRes() End If End Sub Private Sub InitPanelSound() If currentImage.DesigntimeConfig.SoundType = ATSImageDesigntimeConfig.ATSSoundType.ATSAutodetect Then radSndAuto.Checked = True cboSndThisDriver.SelectedIndex = -1 ElseIf currentImage.DesigntimeConfig.SoundType = ATSImageDesigntimeConfig.ATSSoundType.ATSSelectedDriver Then cboSndThisDriver.SelectedIndex = cboSndThisDriver.FindStringExact(currentImage.DesigntimeConfig.SoundDriver) radSndThisDriver.Checked = True Else radSndNo.Checked = True End If End Sub Private Sub InitPanelClientIP() If currentImage.DesigntimeConfig.ClientIP Is Nothing Then txtNetClientIP.Text = "" Else txtNetClientIP.Text = currentImage.DesigntimeConfig.ClientIP.ToString() End If If currentImage.DesigntimeConfig.ClientIPNetmask Is Nothing Then Try txtNetClientMask.Text = ProSupport.ThisComputerNetworkConf("IPSubnet") Catch ex As Exception txtNetClientMask.Text = "" End Try Else txtNetClientMask.Text = currentImage.DesigntimeConfig.ClientIPNetmask.ToString End If If currentImage.DesigntimeConfig.ClientIPGateway Is Nothing Then Try txtNetClientGateway.Text = ProSupport.ThisComputerNetworkConf("DefaultIPGateway") Catch ex As Exception txtNetClientGateway.Text = "" End Try Else txtNetClientGateway.Text = currentImage.DesigntimeConfig.ClientIPGateway.ToString End If If currentImage.DesigntimeConfig.ClientIPDNS1 Is Nothing Then Try txtNetClientDNS1.Text = ProSupport.ThisComputerNetworkConf("DNSServerSearchOrder") Catch ex As Exception txtNetClientDNS1.Text = "" End Try Else txtNetClientDNS1.Text = currentImage.DesigntimeConfig.ClientIPDNS1.ToString End If If currentImage.DesigntimeConfig.ClientIPDNS2 Is Nothing Then txtNetClientDNS2.Text = "" Else txtNetClientDNS2.Text = currentImage.DesigntimeConfig.ClientIPDNS2.ToString End If If Not currentImage.DesigntimeConfig.ClientIPDNSSuffix = "" Then txtNetClientDNSSuffix.Text = currentImage.DesigntimeConfig.ClientIPDNSSuffix End If If currentImage.DesigntimeConfig.ConfigFile = True Then pnlManagedClient.Enabled = True If ATSGlobals.tftpConfig = 0 And currentImage.DesigntimeConfig.ClientBootServer = "" Then If AtsDhcp.strTftpd32IP = "" Then txtNetClientTFTP.Text = Dns.GetHostName() Else txtNetClientTFTP.Text = AtsDhcp.strTftpd32IP End If Else txtNetClientTFTP.Text = currentImage.DesigntimeConfig.ClientBootServer End If Else txtNetClientTFTP.Text = "" End If If txtNetClientDNS1.Text = "" Then txtNetClientDNS2.Enabled = False Else End If End Sub Private Sub InitPanelDistribution() radBootUSB.Font = New Font(radBootUSB.Font, FontStyle.Regular) radBootHardDiskViaUSB.Font = New Font(radBootHardDiskViaUSB.Font, FontStyle.Regular) radBootHardDiskViaCD.Font = New Font(radBootHardDiskViaCD.Font, FontStyle.Regular) Select Case currentImage.DesigntimeConfig.BootMedia Case ATSImageDesigntimeConfig.ATSBootMedia.PXE radBootNetwork.Checked = True Case ATSImageDesigntimeConfig.ATSBootMedia.CD_ISO radBootCD.Checked = True Case ATSImageDesigntimeConfig.ATSBootMedia.USB radBootUSB.Checked = True Case ATSImageDesigntimeConfig.ATSBootMedia.HD_via_CD radBootHardDiskViaCD.Checked = True Case ATSImageDesigntimeConfig.ATSBootMedia.HD_via_USB radBootHardDiskViaUSB.Checked = True Case Else MessageBox.Show("Error No dist selected (12436)") End Select End Sub Private Sub SavePanelSound() If radSndAuto.Checked Then currentImage.DesigntimeConfig.SoundType = ATSImageDesigntimeConfig.ATSSoundType.ATSAutodetect currentImage.DesigntimeConfig.SoundDriver = "" currentImage.RuntimeConfig.RedirectSound = True ElseIf radSndThisDriver.Checked Then currentImage.DesigntimeConfig.SoundType = ATSImageDesigntimeConfig.ATSSoundType.ATSSelectedDriver currentImage.DesigntimeConfig.SoundDriver = cboSndThisDriver.Text currentImage.RuntimeConfig.RedirectSound = True Else currentImage.DesigntimeConfig.SoundType = ATSImageDesigntimeConfig.ATSSoundType.ATSNoSound currentImage.DesigntimeConfig.SoundDriver = "" currentImage.RuntimeConfig.RedirectSound = False End If End Sub Private Sub txtNetClientDNS1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNetClientDNS1.TextChanged If txtNetClientDNS1.Text = "" Then txtNetClientDNS2.Enabled = False Else txtNetClientDNS2.Enabled = True End If End Sub Private Sub frmWizard_HelpRequested(ByVal sender As System.Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles MyBase.HelpRequested HelpProvider.SetHelpKeyword(sender, GetHelpKeyword()) End Sub Private Sub lblOtherResolutions_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lblOtherResolutions.LinkClicked 'We are running a free unmanaged client, that is the only case when this control is displayed UpdateProPanelScreenRes() End Sub Private Sub chkDomain_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkDomain.CheckedChanged lblDomain.Enabled = chkDomain.Checked txtDomain.Enabled = chkDomain.Checked End Sub Private Sub tbrScreenResolution_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbrScreenResolution.Scroll If changedByUser Then Dim x As Integer Dim y As Integer ' Convert values from trackbar ProSupport.GetScreenResolutionFromTrackbar(tbrScreenResolution, x, y) txtScreenResX.Text = x.ToString() txtScreenResY.Text = y.ToString() End If End Sub Private Sub btnCustomBootImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCustomBootImage.Click radBootImageCustom.Checked = True ' Activate the custom boot radio button, since we clicked on the custom image select button Dim objCustomDialogBox As frmClientBootPicture objCustomDialogBox = New frmClientBootPicture() objCustomDialogBox.currentImage = currentImage objCustomDialogBox.ShowDialog() End Sub Private Sub btnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHelp.Click Help.ShowHelp(Me, ATSGlobals.strHelpFilePath, HelpNavigator.Topic, GetHelpKeyword()) End Sub Function GetHelpKeyword() As String Select Case WizardState Case WizardPanel.Managed_Panel Return "clientmanagement.htm" Case WizardPanel.Server_Panel Return "clientconfigurationserverdomain.htm" Case WizardPanel.ClientVersion_Panel Return "clientconfigurationclientversion.htm" Case WizardPanel.Network_Panel Return "clientconfigurationnetwork.htm" Case WizardPanel.ClientIP_Panel Return "clientconfigurationip.htm" Case WizardPanel.Sound_Panel Return "clientconfigurationsound.htm" Case WizardPanel.Graphic_Panel Return "clientconfigurationgraphics.htm" Case WizardPanel.BootDisplay_Panel Return "clientconfigurationdisplayduringboot.htm" Case WizardPanel.Distribution Return "bootmethod.htm" Case WizardPanel.ISO_Panel Return "createabootablecd.htm" Case WizardPanel.UpdateTFTP_Panel Return "introduction.htm" Case WizardPanel.RemovableMedia Return "writetoremovabledrive.htm" Case WizardPanel.Finish_Panel Return "introduction.htm" Case Else Return "" End Select End Function Private Sub UpdatePnlRemovableDrives(ByVal alwaysUpdate As Boolean) 'IN alwaysUpdate = false: Only update if the list has changed since last time 'IN alwaysUpdate = true: Update the panel regardless if the drives changed since last time Dim allRemovableDrives() As DriveInfo = DriveInfo.GetDrives() Dim currentRemovableDrives As New List(Of DriveInfo) Dim di As DriveInfo For Each di In allRemovableDrives If di.DriveType = DriveType.Removable AndAlso di.IsReady Then currentRemovableDrives.Add(di) End If Next If alwaysUpdate OrElse Not ProSupport.CompareDriveInfoArrays(currentRemovableDrives, previousRemovableDrives) Then 'There has been a change in the list of removable drives attached to this computer. previousRemovableDrives = currentRemovableDrives ' Update list of old drives If currentRemovableDrives.Count = 0 Then 'There are no removable drives ' Display panel "Insert drive" pnlAttachRemovableDrive.Visible = True 'Disable next button cmdNext.Enabled = False Else 'There are at least one removable drive pnlAttachRemovableDrive.Visible = False 'Update list of removble drives lstRemovableDrives.Items.Clear() Dim d As DriveInfo For Each d In currentRemovableDrives lstRemovableDrives.Items.Add(d.Name + " " + d.VolumeLabel) Next If currentRemovableDrives.Count = 1 Then 'Only one drive found, no need for user to select it. lblSelectDrives.Text = "Press Next to write to the drive below." lstRemovableDrives.SetSelected(0, True) ' Select the only item Else lstRemovableDrives.ClearSelected() ' Deselect all drives lblSelectDrives.Text = "Select the removable drive(s) you want to write to. Then press Next." End If End If End If End Sub Sub DoSplash() 'Currently not being used 'Dim sp As frmProFeature = New frmProFeature() 'sp.ShowDialog() End Sub Private Sub timerRemovableMedia_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerRemovableMedia.Tick UpdatePnlRemovableDrives(False) End Sub Private Sub lstRemovableDrives_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstRemovableDrives.SelectedIndexChanged If lstRemovableDrives.SelectedItems.Count = 0 Then 'No drives selcted cmdNext.Enabled = False Else 'At least one drive selected 'Enable next button cmdNext.Enabled = True cmdNext.Focus() End If End Sub Private Sub UpdateProPanelScreenRes() 'Display the pro panel for changing screen res grpScreenResPro.Visible = True grpScreenResFree.Visible = False ' Update Pro controls for changing resolution ProSupport.UpdateScreenResolutionControls(currentImage.RuntimeConfig.ScreenResolutionX, currentImage.RuntimeConfig.ScreenResolutionY, txtScreenResX, txtScreenResY, tbrScreenResolution) If currentImage.RuntimeConfig.ScreenColorDepth = ATSImageRuntimeConfig.ATSScreenColorDepth.ATS24Bit Then radGraph24bit.Checked = True ElseIf currentImage.RuntimeConfig.ScreenColorDepth = ATSImageRuntimeConfig.ATSScreenColorDepth.ATS16Bit Then radGraph16bit.Checked = True Else MessageBox.Show("Error: Invalid screen color depth 43201") End If End Sub Private Sub cboConnection_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboConnection.SelectedIndexChanged 'Display different panels depending on the connection type Select Case cboConnection.SelectedIndex Case 0 'RDP pnlCitrixPN.Visible = False pnlApplicationSet.Visible = False lblDomainDesc.Visible = True Case 1 'Citrix ICA pnlCitrixPN.Visible = False pnlApplicationSet.Visible = True lblDomainDesc.Visible = False Case 2 'Citrix PN pnlCitrixPN.Visible = True pnlApplicationSet.Visible = False lblDomainDesc.Visible = False End Select End Sub End Class