Ach jau Tclsh !
Wie war das mit den Bäumen und dem Wald ...
Danke !!
Moderatoren: jmaus, Co-Administratoren
Ach jau Tclsh !
Code: Alles auswählen
#!/bin/tclsh
load tclrega.so
if { $::argc > 0 } {
set i 1
foreach arg $::argv {
set rega_cmd ""
append rega_cmd "var result=dom.GetObject('$arg').State();"
array set values [rega_script $rega_cmd]
incr i
set result $values(result)
puts "$arg $result"
}
} else {
puts "no DeviceId passed"
}