Dělám to ve Visual FoxPro, takže kód je zapsán takto:

m.cPRG='net.exe'
m.cPAR='time \\server /set /yes'
DECLARE INTEGER ShellExecute IN SHELL32.DLL ;
Integer nWinHandle,;
String cOperation,;
String cFileName,;
String cParameters,;
String cDirectory,;
Integer nShowWindow
IF ShellExecute(0,'open',m.cPRG,m.cPAR,'',0)<=32
CLEAR DLLS
RETURN .f.
ELSE
CLEAR DLLS
RETURN .t.
ENDIF

Jenom by mě ještě zajímalo, jestli kromě příkazu NET existuje ještě jiné řešení.