code:

---

break on
$Line = 'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG.'

$Words = Split($Line, ' ')

For each $Word in $Words
	? $Word
Next

? $Words[2]  

---

code:

---

 BREAK ON

$RC = REDIRECTOUTPUT("",0)
"Gathering password age statistics. Please do not interrupt." ?

dim $servers[28]
$array_num = 0
call "c:\kixtart\server_list.scr"
$output = "C:\PWAGE.TXT"
$age_limit = 91
$readout = "C:\PWAGEFIL_THN.TXT"

$RC = REDIRECTOUTPUT($readout,1) ;\\Overwrite old file

;//Do local server accounts (listed in the array)
while $server[$array_num] <> 0
	shell "cmd.exe /c c:\kixtart\netpwage.exe /USERS /COMPUTER:" + $server[$array_num] + " /MIN:" + $age_limit + " /B >" + $output

	$RC = REDIRECTOUTPUT($readout,0)
	"Local Account Password Age Listing for Server "$server[$array_num] ?
	"------------------------------------------------------------------------------------------------" ?

	$rc = open(1,$output,2)
	$line = readline(1)
	do
		$line = readline(1)

		;$string = len($line)
		$accounts = SPLIT($line,,)
		for each $account in $accounts
		next
		;$pwage = substr($line,($string - 3),4)

		
		;$string = len($line)
		;$accounts = substr($line,1,20)
		;$pwage = substr($line,($string - 3),4)

		select
			case $accounts = "" $rc = close(1) goto no_accounts_to_list1
			case $accounts = "Failed to retrieve u" $rc = close(1) goto errorlog1
		endselect

		$RC = REDIRECTOUTPUT($readout,0)
		"  Account Name: " + $accounts[0] + " Password Age:$pwage days       Last logged on:14/5/2003 19:50" ?
	until $line = ""

	:no_accounts_to_list1
	$RC = REDIRECTOUTPUT($readout,0)
	"  No more accounts exceed the " + ($age_limit - 1) + " day password age limit." ?
	goto breakloop1

	:errorlog1
	$RC = REDIRECTOUTPUT($readout,0)
	"  Failed to retrieve account list from this server." ?

	:breakloop1
	$RC = REDIRECTOUTPUT($readout,0)
	?

	$array_num = $array_num + 1
loop
exit
 

---

quote:

---

Administrator User Account 98

---

as an exmaple, SPLIT will result in a 4-element array with indices 0-3. Index 0 is "Administartor, index 3 is "98". You can address indices with the square brackets, e.g. $variable[0] for the first element.

BTW, you should not use GOTO in code as it is a very bad habit, so don't start it

code:

---

Administrator             User Account        98

---

code:

---

SPLIT($Line,"      ",)

---

code:

---

$word[3]

---

code:

---

$age = ubound($word)
$word[$age]
 

---

code:

---

$a='Administrator             User Account        98'
while instr($a,'  ')
  $a=join(split($a,'  '),' ')
loop

---

code:

---

do
; stuff
until $line=''

---