Can I go back some years using dos in AutoIt?

[lgkoliveira]

I need to travel back five years to the past... jokes appart, I need to set the system date 5 years ago to use a WinXP Software at work, but i don't know how do it.

I tried setting a command line in dos, but the command 'date' only sets the full date, not only the years. 

I did this, for example: 

$yearsago = "date 01/01/2016"
Run(@Comspec & " /c " & $yearsago)

This works, I can set 01/01/2016 for instance, but when I finish doing what I have to do I must set the actual date. Can anyone help me?

[Musashi]

_Date_Time_SetSystemTime

[Earthshine]

This looks troublesome. Why would you have to set the time back In order to use a piece of software?

[pseakins]

I haven't tested this and I have the nasty bit remmed out but this should toggle your system clock as required. This was a bit of fun and is an adaptation of the help example for _Date_Time_SetSystemTime()

Just uncomment the last 4 lines.

; Delorean.au3 Toggle system year between now and five years ago
#include <Date.au3>

$tCur = _Date_Time_GetSystemTime() ; Get current system time
$sSysTime = _Date_Time_SystemTimeToDateTimeStr($tCur)  ; convert to mm/dd/yyyy hh:mm:ss
$iMon = Number(StringMid($sSysTime, 1, 2))
$iDay = Number(StringMid($sSysTime, 4, 2))
$iYear = Number(StringMid($sSysTime, 7, 4))
$iHour = Number(StringMid($sSysTime, 12, 2))
$iMin = Number(StringMid($sSysTime, 15, 2))
$iSec = Number(StringMid($sSysTime, 18, 2))
If $iYear < 2021 Then
  $iYear += 5 ; bring it back to the future
Else
  $iYear -= 5 ; engage flux capacitor
EndIf
$tNew = _Date_Time_EncodeSystemTime($iMon, $iDay, $iYear, $iHour, $iMin, $iSec)    ; m, d, y, h, min, s
;~ If Not _Date_Time_SetSystemTime($tNew) Then
;~   MsgBox($MB_SYSTEMMODAL, "Error", "System clock cannot be SET" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
;~   Exit
;~ EndIf

 

Edited January 6, 2021 by pseakins
typo

[caramen]

On 1/5/2021 at 2:28 PM, Earthshine said:

This looks troublesome. Why would you have to set the time back In order to use a piece of software?

Of course for license reasons.... I guess.

[Earthshine]

isn't that against forum rules?

[Jos]

1 hour ago, Earthshine said:

isn't that against forum rules?

Don't worry...  we ( MODs)  are following topics and will act when needed.
You can obviously also report the thread, but then please only when it is confirmed going against the rules as till now there is no evidence, hence you didn't see any action yet after your first report.

So having said all of this: halve of the posts in this thread are now off-topic, so please don't post unless it is on-topic and let us do our work.   

Edited January 6, 2021 by Jos

[mikell]

On 1/5/2021 at 12:44 PM, lgkoliveira said:

the command 'date' only sets the full date, not only the years

Hmm this works for me (date in french format)

; set old
$dateold = @MDay & "/" & @Mon & "/" & @Year-5  ; 2021 - 5 = 2016
Run(@ComSpec & " /c " & "date " & $dateold, "", @SW_HIDE)

; back
$currentdate = @MDay & "/" & @Mon & "/" & @Year+5  ; 2016 + 5 = 2021
Run(@ComSpec & " /c " & "date " & $currentdate, "", @SW_HIDE)

 

[lgkoliveira]

On 1/6/2021 at 2:20 PM, Earthshine said:

isn't that against forum rules?

Why would it be?

[lgkoliveira]

22 hours ago, mikell said:

Hmm this works for me (date in french format)

; set old
$dateold = @MDay & "/" & @Mon & "/" & @Year-5  ; 2021 - 5 = 2016
Run(@ComSpec & " /c " & "date " & $dateold, "", @SW_HIDE)

; back
$currentdate = @MDay & "/" & @Mon & "/" & @Year+5  ; 2016 + 5 = 2021
Run(@ComSpec & " /c " & "date " & $currentdate, "", @SW_HIDE)

 

This is very good, thanks again. I used another command line, just to sync with the time set in our server (for setting the actual time and date). I did this:

RunWait(@ComSpec & " /c " & 'net time /DOMAIN:MyDomain /SET /YES', "", @SW_HIDE)