Change the system time through QTP!!

Dim mytime
sNewDate = Time
msgbox sNewDate
mytime = split(sNewDate,":",-1,1)
hr = mytime(0) + 10
msgbox hr
min = mytime(1) + 20
msgbox min
sNewDate = (hr)&":"&(min)
sNewDate = cstr(sNewDate)
msgbox sNewDate
Dim oShell
Set oShell = CreateObject ("WSCript.shell")
oShell.run "cmd /k Time " & sNewDate & "& Exit"