ntp time updater

alias tm return $time(mm/dd/yy @ HH:nn:ss TT [zzz])
alias f2 $iif(($server) && ($active != status window) && (@* !iswm $active),say,echo -a) $tm
alias sf2 ntp
alias ntp .sockopen ntp ntp1.ptb.de 37
on *:sockread:ntp {
  var %n = ntp, %t | sockread &ntp
  %t = $calc($longip($replace($bvar(&ntp,1-),$chr(32),.)) -2208988800)
  if ($com(%n)) { .comclose %n }
  .comopen %n WScript.Shell
  .comclose %n $com(%n,Run,3,bstr,cmd.exe /c date $asctime(%t,mm/dd/yyyy) & time $asctime(%t,HH:nn:ss.00),uint,0,bool,true)
  .sockclose %n
}