Como detener el reloj en windows 10

Estoy tratando de detener el reloj en windows 10 estoy probando con estos comandos

set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
mihora= Time
Wscript. Echo "LA HORA SE CONGELARA EN :" & mihora & Chr (10) &" Para terminar abra el administrador de tareas y mate el proceso WSCRIPT"
Set MyFile = fso.OpenTextFile("C:\kk.bat",2,true)
Myfile.writeline "echo " & mihora & " | time "
Myfile.close
Do While True
WshShell.run "C:\kk.bat", 0,0
Wscript. Sleep 5000
loop

A la hora de ejecutarlo sale un mensaje de que el reloj se congelara a las 01:28 por ejemplo para terminar abra el administrador de tareas y mate el proceso WSCRIPT

Después sale un mensaje diciendo

Línea:5

Carácter:1

error; permiso denegado

Código 800A0046

Origen; error de microsoft VBSCRIPT entiempo de ejecución