Break On
$System = CreateObject("Kixtart.System")

;KD START

;************* Form **************
$Form = $System.Form()
$Form.BackColor = 212,208,200
$Form.FontSize = 8,25
$Form.FormBorderStyle = 3
$Form.Height = 566
$Form.Left = 119
$Form.MaximizeBox = "False"
$Form.Text = "Automagisk RDP fil generator"
$Form.Top = 78
$Form.Width = 400
;**************************************

;************* Label1 **************
$Label1 = $Form.Controls.Label()
$Label1.BackColor = 212,208,200
$Label1.FontSize = 8,25
$Label1.Height = 18
$Label1.Left = 15
$Label1.Text = "Brukernavn:"
$Label1.ToolTipText = "Brukernavn som sendes til serveren. Standard innlogget bruker + _adm"
$Label1.Top = 15
$Label1.Width = 89
;**************************************

;************* user **************
$user = $Form.Controls.TextBox()
$user.AcceptsTab = "True"
$user.FontSize = 8,25
$user.Height = 20
$user.Left = 111
$user.MaxLength = 128
$user.Text = @UserID + "_adm"
$user.Top = 15
$user.Width = 174
;**************************************

;************* progress **************
$progress = $Form.Controls.ProgressBar()
$progress.BackColor = 212,208,200
$progress.Height = 23
$progress.Left = 9
$progress.Step = 1
$progress.Top = 219
$progress.Value = 0
$progress.Width = 288
;**************************************

;************* browseButton **************
$browseButton = $Form.Controls.Button()
$browseButton.FontSize = 8,25
$browseButton.Height = 25
$browseButton.Left = 300
$browseButton.Text = "..."
$browseButton.Top = 79
$browseButton.Width = 33
$browseButton.OnClick = "selectDirectory()"
;**************************************

;************* generer **************
$generer = $Form.Controls.Button()
$generer.FontSize = 8,25
$generer.Height = 25
$generer.Left = 300
$generer.Text = "Generer Filer"
$generer.Top = 219
$generer.Width = 83
$generer.OnClick = "save()"
;**************************************

;************* log **************
$log = $Form.Controls.ListBox()
$log.FontSize = 8,25
$log.Height = 277
$log.Left = 12
$log.Top = 252
$log.Width = 370
;**************************************

;************* CheckBox1 **************
$CheckBox1 = $Form.Controls.CheckBox()
$CheckBox1.BackColor = 212,208,200
$CheckBox1.CheckAlign = 16
$CheckBox1.Checked = "True"
$CheckBox1.CheckState = 1
$CheckBox1.FontSize = 8,25
$CheckBox1.Height = 19
$CheckBox1.Left = 12
$CheckBox1.Text = "Torgnes"
$CheckBox1.Top = 192
$CheckBox1.Width = 71
;**************************************

;************* windowheight **************
$windowheight = $Form.Controls.TextBox()
$windowheight.FontSize = 8,25
$windowheight.Height = 20
$windowheight.Left = 111
$windowheight.Text = "750"
$windowheight.Top = 38
$windowheight.Width = 174
;**************************************

;************* Label2 **************
$Label2 = $Form.Controls.Label()
$Label2.BackColor = 212,208,200
$Label2.FontSize = 8,25
$Label2.Height = 19
$Label2.Left = 15
$Label2.Text = "Vinduhøyde:"
$Label2.ToolTipText = "Høyden på vinduet fra serveren"
$Label2.Top = 38
$Label2.Width = 90
;**************************************

;************* Label3 **************
$Label3 = $Form.Controls.Label()
$Label3.BackColor = 212,208,200
$Label3.FontSize = 8,25
$Label3.Height = 16
$Label3.Left = 15
$Label3.Text = "Vindubredde:"
$Label3.ToolTipText = "Bredden på vinduet fra serveren"
$Label3.Top = 60
$Label3.Width = 89
;**************************************

;************* windowwidth **************
$windowwidth = $Form.Controls.TextBox()
$windowwidth.FontSize = 8,25
$windowwidth.Height = 20
$windowwidth.Left = 111
$windowwidth.Text = "1000"
$windowwidth.Top = 60
$windowwidth.Width = 174
;**************************************

;************* Label4 **************
$Label4 = $Form.Controls.Label()
$Label4.BackColor = 212,208,200
$Label4.FontSize = 8,25
$Label4.Height = 18
$Label4.Left = 15
$Label4.Text = "Lagringssti"
$Label4.ToolTipText = "Sti hvor filene skal genereres"
$Label4.Top = 82
$Label4.Width = 92
;**************************************

;************* path **************
$path = $Form.Controls.TextBox()
$path.FontSize = 8,25
$path.Height = 20
$path.Left = 111
$path.Text = "c:\rdp\"
$path.Top = 82
$path.Width = 174
;**************************************

Function save()
         $path = $path.text
         $width = $windowwidth.Text
         $height = $windowheight.Text
         $name = $user.Text
         logLine("Starter generering av filer. ")
         logLine("Bruker katalogen $path, vindubredde: $width, høyde $height og brukernavn: $name")
         logLine("og brukernavn: $name")
EndFunction

Function readfile($file)
    Dim $lf, $f, $_, $t
    $lf=chr(10)
    $f=freefilehandle()
    $_=open($f,$file)
    if @error   exit @error   endif
    do $t=$t+readline($f)+$lf until @error
    $_=close($f)
    $ReadFile=split(substr($t,2),$lf)
EndFunction

Function logLine($line)
         $log.AddItem ("$line")
EndFunction

Function selectDirectory()
         $dir = $System.FolderBrowserDialog()
         $dir.RootFolder = $path.text
         If ($dir.ShowDialog() = 0)
             logLine("Fikk ikke valgt katalog. Feilkode: @ERROR")
         Else
             logLine("Valgte katalogen:"+ $dir.SelectedPath)
         EndIf
         $selDir=$dir.SelectedPath
         $path.text = $selDir
EndFunction

;KD END

$serverlist = readfile("serverliste.csv")
$dimen = Ubound($serverlist)
logLine("Filen har: $dimen linjer")

dim $blah[$dimen,2]
$currrow = 0

For Each $row In $serverlist
    logLine("$row")
    $temp = split($row,";")
    $blah[$currrow,0] = $temp[0]
;    $blah[1,$currrow] = $temp[1]
;    $blah[$currrow,2] = $temp[2]
    $currrow = $currrow +1
Next


$Form.Show
While $Form.Visible
   $=Execute($Form.DoEvents())
Loop
Exit 1