Script VBS, para PRTG - time

Se necesita tomar la diferencia de tiempo entre un servidor windows y su controlador de dominio.
sensor exe-script
_____________________________________________________
VBScript Script File(.vbs)
_____________________________________________________

hor=Hour(time)
min= minute(time)
seg= second(time)

time1=(hor*3600)+(min*60)+seg
Wscript.Echo time1&":ok"


_____________________________________________________
PRTG - factory sensor
_____________________________________________________

#1:Controlador de Domino                                    
Channel(12471,2)

#2:servidor                              
Channel(12473,2)

#3:diferencia tiempo                                 
Channel(12471,2)-Channel(12473,2)