home *** CD-ROM | disk | FTP | other *** search
- {
- This example script allows toggle state of any host(s) from it's context menu
- }
-
- program Toggle_state;
- var tmi:TNVMenuItem;
- hst:TNVHost;
- v,v1,v2:integer;
- s:string;
- begin
- hst:=TNVHost.create;
- tmi:=TNVMenuItem.create;
- tmi.flags:=NVMENUFLAG_CONTEXT;
- tmi.msg:=$852;
- tmi.txt:='Toggle state';
- tmi.Refresh;
-
- repeat
- v:=WaitEvent(v1,v2);
- if(v=tmi.msg)then
- begin
- hst.nextid:=0;
- repeat
- hst.GetHost(hst.nextid,NVOBJ_SELECTED);
- if(hst.id<>0)then
- begin
- s:=hst.GetMetaVar('ison');
- if(s='off')then s:='on' else s:='off';
- hst.SetMetaVar('ison',s);
- hst.SetMetaVar('ctime','Swithed: '+s);
- Action(NVACTION_SETSTATE,hst.id);
- end;
- until hst.nextid=0;
- end;
- until v=0;
-
-
- tmi.Delete;
- tmi.Free;
- hst.Free;
- end.
-