*---------------Stop Sophos Anti-Virus Service lltest=.t. && (appropriate Conditions go here) IF lltest locomputer = getobject("WinNT://"+LEFT(SYS(0),AT(" ",SYS(0))-1)+",computer") for each loservice in locomputer WITH loservice if upper(.Class) = 'SERVICE' ; and "SOPHOS"$upper(.displayname) AND .Status = 4 .Stop ENDIF endwith ENDFOR ENDIF * program body goes here ...... *---------------Turn on Sophos Anti-Virus Service IF lltest AND TYPE("locomputer")="O" AND NOT ISNULL(locomputer) for each loservice in locomputer WITH loservice if upper(.Class) = 'SERVICE' ; and "SOPHOS"$upper(.displayname) AND .Status # 4 .Start ENDIF endwith ENDFOR locomputer=.null. ENDIFProbably you can do something similar for NA.