home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
batch
/
mxmnu233.zip
/
SERVTIME.MNU
< prev
next >
Wrap
Text File
|
1991-09-03
|
957b
|
60 lines
Comment
====================================================
This is a sample menu utility to set the clock on all your file servers
to the same date and time.
Usage: MarxMenu ServTime '08-19-91 3:00pm'
This requires a Novell network to run.
====================================================
EndComment
StandardIO
var
T
DateOnly
Servers
Serv
Trim(CmdLine)
if CmdLine = ''
Writeln
Writeln 'Usage: MarxMenu ServTime <time>'
ExitMenu
endif
T = TimeOf(CmdLine)
DateOnly = pos(':',CmdLine) = 0
if BadDate
Writeln
Writeln 'Invalid Date: ' CmdLine
ExitMenu
endif
Writeln
Write 'Setting WorkStation Clock ... '
if DateOnly
Today = T
else
Now = T
endif
Writeln
T = Now
NovAttachedServers(Servers)
Loop Servers
Serv = Servers[LoopIndex]
Write 'Setting Server ' Serv ' Clock ... '
NovSetPreferredServer Serv
NovServerTime = T
Writeln
EndLoop