home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 April / CHIP_CD_2005-04.iso / software / netv / NVinst.exe / $INSTDIR / Scripts / Scripter / ToggleState.nvs < prev   
Encoding:
Text File  |  2005-02-22  |  811 b   |  42 lines
  1. {
  2. This example script allows toggle state of any host(s) from it's context menu
  3. }
  4.  
  5. program Toggle_state;
  6. var tmi:TNVMenuItem;
  7.     hst:TNVHost;
  8.     v,v1,v2:integer;
  9.     s:string;
  10. begin
  11. hst:=TNVHost.create;
  12. tmi:=TNVMenuItem.create;
  13. tmi.flags:=NVMENUFLAG_CONTEXT;
  14. tmi.msg:=$852;
  15. tmi.txt:='Toggle state';
  16. tmi.Refresh;
  17.  
  18. repeat
  19. v:=WaitEvent(v1,v2);
  20. if(v=tmi.msg)then
  21. begin
  22. hst.nextid:=0;
  23.     repeat
  24.     hst.GetHost(hst.nextid,NVOBJ_SELECTED);
  25.     if(hst.id<>0)then
  26.         begin
  27.         s:=hst.GetMetaVar('ison');
  28.         if(s='off')then s:='on' else s:='off';
  29.         hst.SetMetaVar('ison',s);
  30.         hst.SetMetaVar('ctime','Swithed: '+s);
  31.         Action(NVACTION_SETSTATE,hst.id);
  32.         end;
  33.     until hst.nextid=0;
  34. end;
  35. until v=0;
  36.  
  37.  
  38. tmi.Delete;
  39. tmi.Free;
  40. hst.Free;
  41. end.
  42.