ændre system dato via visual basic

Gerne i VBScript

du kan gøre sådan her :

Public Sub SetDate(NewDate As Variant)

    On Error Resume Next

    DateTime.Date = NewDate

End Sub

Public Sub SetTime(NewTime As Variant)

    On Error Resume Next

    DateTime.Time = NewTime

End Sub

-den bruges sådan her:

SetDateTime (\"August 1 2000\")
SetDateTime (\"01/08/2000\")
SetTime (#1:00:00 PM#)

så er det bare at gemme den nuværende værdi i en variabel og sætte den ind når programmet har termineret.

Fandt du den på http://www.internettrash.com/users/fdb/altering.htm :-)

Jeg har ikke testet dit script, men går ud fra at det virker. Jeg lavede selv følgende lille stykke VBScript der også gør det ønskede:

Dim ws, olddate, newdate
olddate = Date
newdate = \"3/21/2000\"
Set ws = CreateObject(\"WScript.Shell\")
ws.Run \"%comspec% /c date \" & newdate, 0
Do until Date <> Olddate
Loop
ws.Run \"%comspec% /c net start minservice\", 0
WScript.Sleep 8000
ws.Run \"%comspec% /c date \" & olddate, 0
Set ws = Nothing
WScript.Quit

tak for pts.

tmceu>> ja.