I have a file that I have added 10 computer names i.e comp1. comp2 etc

What I am trying to do is when comp1 logs on the script checks the file and if it apears runs another script (not the problem) and then deletes the entry so it does not run again. The problem I forsee is if all 10 machines logon at the same time there will be a problem with file being locked by another machine.

Any ideas

chris.darling@virgin.net

Use an INI File and manipulate with writeprofilestring() / readprofilestring() and Bob's your uncle !

J.

_________________________

Welcome to the board.

Our example which can give you an idea "how to do it":

Your temporary file can looks like:
f.e. script.ini

code:

---

[script]
comp1=x:\scripts\script1.kix
comp2=x:\scripts\script2.kix
comp3=x:\scripts\script1.kix
comp4=x:\scripts\script1.kix
comp5=x:\scripts\script5.kix

---

Your script can looks like:

code:

---

cls
$script_file="x:\scripts\script.ini"
$script_info=ReadProfileString($script_file,"script",@wksta)
IF (Len($script_info) <> 0)
  CALL $script_info
  IF (WriteProfileString($script_file,"script",@wksta,"") <> 0)
    ? "Warning KIX: problem with removing INI entry. error-code @error (@serror)."
  ENDIF
ENDIF

---

code:

---

if exists("@wksta.kix")
	call "@wksta.kix" 
	del "@wksta.kix"
endif

---

[ 27 October 2001: Message edited by: Howard Bullock ]

[ 27 October 2001: Message edited by: Howard Bullock ]

Our example which can give you an idea "how to do it" and with a message part.

Your temporary file can looks like:
f.e. script.ini

code:

---

[script]
comp1=x:\scripts\script1.kix
comp2=x:\scripts\script2.kix
comp3=x:\scripts\script1.kix
comp4=x:\scripts\script1.kix
comp5=x:\scripts\script5.kix

---

Your script can looks like:

code:

---

cls
$script_file="x:\scripts\script.ini"
$script_info=ReadProfileString($script_file,"script",@wksta)
IF (Len($script_info) <> 0)
  IF (Exist($script_info) = 1)
    CALL $script_info
    IF (WriteProfileString($script_file,"script",@wksta,"") <> 0)
      ? "Warning KIX: problem with removing INI entry. error-code @error (@serror)."
    ENDIF
  ELSE
    IF (MessageBox("Missing '+Ucase($script_info)+' file.'+CHR(10)+CHR(13)+'inform your helpdesk','Information message',0,5) <> 0)
    ENDIF
  ENDIF
ENDIF

---

btw: you can modify the MessageBox function to f.e. a WriteProfileString function.
Some like:

code:

---

IF (WriteProfileString($script_file,"script",@wksta,$script_info+" -missing file-") <> 0)
ENDIF

---

Also it is possible to use @userid as criteria instead of @wksta to
run a specified script.