code:

---

break on

$server = "x031768"
$tmp    = @scriptdir + "\" + @ticks + ".tmp"

shell '%ComSpec% /c net time \\' + $server + ' >' + $tmp

$ = open(1,$tmp)
if not @error
    $time = readline(1)
    if instr($time, ':')
        $h = val(substr($time,instr($time,':')-2, 2))
        $m = val(substr($time,instr($time,':')+1, 2))
        $p = right($time, 2)
        "Hour    = " + $h ?
        "Minutes = " + $m ?
        "period  = " + $p
    else
        "Net time on " + $server + " failed ..."
    endif
    $ = close(1)
    del $tmp
endif

get $

---

don't know if period is a proper name for PM / AM (we calculate here with 24 hrs )

[ 25. November 2002, 13:40: Message edited by: jpols ]