Changing System Date and time through QTP

newTime="03:40:00"
newDate=Date+1
Dim oShell
set oShell=CreateObject("WScript.Shell")
oShell.run "cmd /k date" &CStr(" "&newDate)&"& exit"
oShell.run "cmd /k time" &CStr(" "&newTime)&"& exit"
set oShell=nothing
curDateTime=now
msgbox curDateTime