Dim msg getTime = time newtime = DateAdd("n", 2, getTime) MsgBox ("Системное время ="& getTime & vbcr & "Новое время = "& newtime) msg = MsgBox ("Изменить время?", 65, "Новое время") Select Case msg Case 1 Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "cmd.exe /c Time " & newtime, 0, true End Select