Help restarting Windows XP everyday at a certain time.

by: MalmensaPosted on 2008-06-11 at 01:32:43ID: 21757864

Fairly simple, you need write a script that uses the SHUTDOWN command, then fire it with task scheduler. Type "shutdown" at a command prompt for a template, go to "Control panel", "Sheduled tasks" to add a task.

by: DigitalNamPosted on 2008-06-11 at 01:37:10ID: 21757883

Any other solution malmensa? I do not want to use the windows task scheduler.

by: bluefezteamPosted on 2008-06-11 at 01:38:01ID: 21757887

You just need a scheduled task to perform a reboot, it's prebuilt into windows.

It should have existing schedules for scandisk/ddefrag etc, look at them and create one for a shutdown/reboot

by: bolt81Posted on 2008-06-11 at 01:38:07ID: 21757889

Create a schedule task that runs %SystemRoot%\System32\shutdown.exe -r -t 00

this will restart immediately at the time you set in the schedule.

use -s to shutdown instead of restart
change 00 to how many seconds to wait before restart

by: bluefezteamPosted on 2008-06-11 at 01:40:22ID: 21757900

Hmm, why don't you want to use windows task scheduler?
It's free and already installed - that's its purpose to perform scheduled operations - it sits in the taskbar and waits to run tasks.

Unless you want to write something yourself in Visual Basic that isn't obvious to a user and unknown to them reboots the PC - but applications like that may not work given antivirus software etc; best to use the approved Microsoft Program so you know for certain it iwll work.

by: ThievingSixPosted on 2008-06-11 at 01:52:08ID: 21757948

1) Start a new application.
2) Remove Unit1(Project Menu --> Remove From Project).
3) View project source(Project Menu --> View Source).
4) Paste below code editing constants.

.::Kind a simplistic way to do this, but it works.::.

program RestartScheduler;
 
uses
  Windows,
  SysUtils;
 
{$R *.res}
 
function RestartWindows: Boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: Boolean;
const
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
  If (Win32Platform = VER_PLATFORM_WIN32_NT) Then
    begin
    tpResult := OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY,TTokenHd);
    If (tpResult) Then
      begin
      tpResult := LookupPrivilegeValue(nil,SE_SHUTDOWN_NAME,TTokenPvg.Privileges[0].Luid);
      TTokenPvg.PrivilegeCount := 1;
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      cbtpPrevious := SizeOf(rTTokenPvg);
      pcbtpPreviousRequired := 0;
      If (tpResult) Then
        begin
        AdjustTokenPrivileges(TTokenHd,False,TTokenPvg,cbtpPrevious,rTTokenPvg,pcbtpPreviousRequired);
      end;
    end;
  end;
  Result := ExitWindowsEx(EWX_REBOOT Or EWX_FORCE,0);
end;
 
const
  ShutdownTime : String = '12:00:00 am';
//ShutdownTime : String = '04:43:23 am';
//ShutdownTime : String = '08:02:12 pm';
var
  CurrentTime : String;
begin
  While (1 = 1) Do
    begin
    CurrentTime := FormatDateTime('hh:nn:ss am/pm',Now);
    If (CurrentTime = ShutdownTime) Then
      begin
      While Not RestartWindows Do
        begin
        Sleep(1000);
      end;
    end;
    Sleep(1000);
  end;
end.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

Select all Open in new window

by: DigitalNamPosted on 2008-06-11 at 02:16:23ID: 21758051

ThievingSix: this looks like what I am looking for. Don't have time to test it now,but will test it within the next few hours and award points. Thanks.

by: ThievingSixPosted on 2008-06-11 at 02:29:51ID: 21758113

The only thing I can say about the code is when setting the ShutdownTime constant, use the format: "00:00:00 am". No more characters, no less.

Also you might want to change the final Sleep(1000) to Sleep(500) or Sleep(750) because there is a slight chance that it will miss your time by a second if you don't.

by: Geert_GruwezPosted on 2008-06-11 at 02:39:51ID: 21758161

ThievingSix -->

1) Start a new application.
2) Remove Unit1(Project Menu --> Remove From Project).
3) View project source(Project Menu --> View Source).

this looks like the Create Console Application button

by: ThievingSixPosted on 2008-06-11 at 12:25:03ID: 21763317

No. This isn't a console app. It would have to say {$APPTYPE Console} for that.

by: Geert_GruwezPosted on 2008-06-11 at 21:27:31ID: 21766190

yeah, the only line would then be :
delete {$APPTYPE Console} line :)

by: Geert_GruwezPosted on 2008-06-11 at 21:27:56ID: 21766193

and off course
uses windows, sysutils;

by: ThievingSixPosted on 2008-06-11 at 22:42:55ID: 21766406

True, same thing in the end.

by: DigitalNamPosted on 2008-06-19 at 05:02:20ID: 21821282

Sorry for not responding for a while but one of the perks of living in a small town in Namibia is the lack of a reliable internet connection :-)

Thieving: This may sound stupid but how do I integrate your solution into an already existing project? I copied and pasted it in my current project but with the function, all code after it is ignored. Maybe I am overlooking something or just being stupid...

by: DigitalNamPosted on 2008-06-24 at 05:29:25ID: 31466055

thank you for the help. sorry it took so long to award the points.

by: ThievingSixPosted on 2008-06-24 at 14:56:11ID: 21860770

Put this in a timer

    CurrentTime := FormatDateTime('hh:nn:ss am/pm',Now);
    If (CurrentTime = ShutdownTime) Then
      begin
      While Not RestartWindows Do
        begin
        Sleep(1000);
      end;
    end;
    Sleep(1000);

1:
2:
3:
4:
5:
6:
7:
8:
9:

Select all Open in new window

Question

Help restarting Windows XP everyday at a certain time.

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

Delphi Programming

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press