I want that where you can read "busy" that that value will change in "SUCCEED" or in "FAILURE" depending of the @error value.
But I don't know how to change that value.
This is what I have yet but it doesn't work:

code:

---

; Made at friday 28 december 2001
; You need kixforms for executing this script!
break on
$ip=enumipinfo(0,0)
$time=LEFT(@time,5)
$dd=RIGHT(@date,2)
$mm=SUBSTR(@date,LEN(@date)-4,2)

; From
$Form = createobject("kixtart.form")
$Form.Caption = "Welcome back @fullname"
$Form.Height = 400
$Form.Width = 400
$Form.FontSize = 9

; Frames
$Frame1 = $Form.Frame(13,1,350,150,"Network Information:")
$Frame2 = $Form.Frame(13,160,350,100,"Logon Processes:")
$Frame3 = $Form.Frame(13,270,350,100,"Common Info:")

; Labels
$Label1 = $Frame1.Label(13,25,185,20,"Privilege: @priv")
$label2 = $Frame1.Label(13,50,185,20,"Computername: @wksta")
$label3 = $Frame1.Label(13,75,185,20,"Domain: @domain")
$label4 = $Frame1.Label(13,100,185,20,"Logonserver: @lserver")
$label5 = $Frame1.Label(13,125,185,20,"IP-address: $ip")
$label6 = $Frame2.Label(13,25,185,20,"Synchronizing system time:")
$label7 = $Frame2.Label(13,50,185,20,"Mapping drives:")
$label8 = $Frame2.Label(13,75,185,20,"Set up some common settings:")
$label9 = $Frame3.Label(13,25,300,20,"@day $dd-$mm-@year $time")
$label10 = $Frame3.Label(13,50,300,20,"Written by systeembeheer EZW")
$label11 = $Frame3.Label(13,75,300,20,"Kixtart Version @kix with Kixforms plugin")

; Textboxes
$Systemtime = $Form.Label(220,184,100,20,"Busy")
$Systemtime.BorderStyle = 1
$Mapdrv = $Form.Label(220,209,100,20,"Busy")
$Mapdrv.BorderStyle = 1
$Commonset = $Form.Label(220,234,100,20,"Busy")
$Commonset.BorderStyle = 1

; Start
$Form.Show
SETTIME "\\taa-fs1"
IF @ERROR=0
  $Systemtime = $Form.Label(220,184,100,20,"SUCCEED")
  $systemtime.BorderStyle = 1
ELSE
  $Systemtime = $Form.Label(220,184,100,20,"FAILURE")
  $Systemtime.BorderStyle = 1
ENDIF
While $Form.GetEvent
LOOP
Exit

---

[ 28 December 2001: Message edited by: awinkel ]

code:

---

; Textboxes$Systemtime = $Form.Label(220,184,100,20,"Busy")$Systemtime.BorderStyle = 1$Mapdrv = $Form.Label(220,209,100,20,"Busy")$Mapdrv.BorderStyle = 1$Commonset = $Form.Label(220,234,100,20,"Busy")$Commonset.BorderStyle = 1

---

Use the caption property to set a label value, like this:

SETTIME "\\taa-fs1"
IF @ERROR=0
  $Systemtime.Caption = "SUCCEED"
ELSE
  $Systemtime.Caption = "FAILURE"
ENDIF

-Shawn

Do you know why there is a delay by building up the window?
I can see the text about the Network Information/Logon Processes and Common info after the script knows the results from the Logon Processes.
Previously the only thing I see is a equal grey window.

kixforms needs to have it's form built-up while invisible, then it has to get into it's event loop so that the controls can get initialized and visible ... so for example, the best way to fix the problem your having right now is to move your $form.show closer to your event loop, like this:

$Form.Show
While $Form.GetEvent
LOOP

-Shawn

-Shawn

It seems that the funny part of KWVB is that it's completely asynchronous, and works a little better with logon process. (KF too, but only with peekevent, if i'm right. Shawn ?)
As opposite, i don't think i can add the same KF getevent (a real wait for input before return the event).