[RESOLVED] Restart computer

[Sir Loin]

I am trying to restart the user's computer, and I don't know which to use, ExitWindowsEx or Shell (Shutdown.exe -t 0 -r). I tried using:

ExitWindowsEx (EWX_Force And EWX_Reboot, 0&)

but that didn't work.

What should I do?

Thank you,
Sir Loin

[penagate]

To shutdown the PC without shelling shutdown.exe your process must have the appropriate permissions set. It works when you use shutdown.exe because it is a separate process that has the permissions to shiut down the system.

[wolve]

Try

Shell ("C:\Windows\System32\CMD.exe /C shutdown -r -t 45 -c "See you soon"), vbHide

The above is broken down like this
-r = Restart
-t = The time in seconds before computer restarts
-c = What ever comment you want

this just sends a command to the cmd
hope that helps

[penagate]

There is no need to shell cmd.exe because you can shell shutdown.exe directly
Also, he knows how to do it that way, he is asking for a better way

[Sir Loin]

If I shell shutdown.exe, it will only work on WinXP computers, right? I need to restart older versions of Windows as well...

Thank You,
Sir Loin

[penagate]

If you don't mind showing the shutdown dialog?

Declare Function SHShutDownDialog Lib "shell32" Alias "#60" ( _
    ByVal IDontKnowWhatOnEarthThisDoes As Long _
) As Long
 
' Show the Shutdown dialog box
SHShutDownDialog 0&

Otherwise, since on 9x based OS's I don't believe there is a process permissions model, you could try shutdown.exe on Win2k+ OS's and ExitWindowsEx on Win 95+ OS's,

[Sir Loin]

Here is my restart code, it seems to work well, but i'm not sure if it will work on older OS's.

Private Sub RestartComputer()
On Error Resume Next
 
Shell "Shutdown.exe -t 0 -r"
Call ExitWindowsEx(EWX_REBOOT, 0&)
End Sub

Since shelling "Shutdown.exe -t 0 -r" would probably error on older OS's I just put an "On Error Resume Next".

For non XP systems (95/98) try

ExitWindowsEx (EWX_LogOff Or EWX_FORCE), &HFFFF

That's the problem, I don't know which OS the user is using...

Thank you,
Sir Loin

[Hack]

I am trying to restart the user's computer, and I don't know which to use, ExitWindowsEx or Shell (Shutdown.exe -t 0 -r). I tried using:

ExitWindowsEx (EWX_Force And EWX_Reboot, 0&)

but that didn't work.

What should I do?

Thank you,
Sir Loin

For non XP systems (95/98) try

ExitWindowsEx (EWX_LogOff Or EWX_FORCE), &HFFFF

[penagate]

Use GetVersionEx().

Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
 
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (_
    ByRef lpVersionInformation As OSVERSIONINFO _
) As Long
 
' Get OS version
Dim udtOSVer As OSVERSIONINFO
udtOSVer.dwOSVersionInfoSize = Len(udtOSVer)
GetVersionEx udtOSVer
 
' And then use (udtOSVer.dwMajor >= 5) to determine if you can call shutdown.exe.

[Sir Loin]

Oh... I was thinking about using GetVersionEx, but I was getting the platform, and if it returned 2 then that was NT, and I think Win2000, XP, and ME are all WinNT OS's.

Thanks a lot!

-Sir Loin

[Sir Loin]

I have 1 final question. Is Win95's major build number 1, and 98's 2 and so on...?

Thanks,
Sir Loin

[penagate]

No, the version numbers go like this

Edit: Major.Minor.Build

Win 95 - 4.00.xxx
Win 98 - 4.01
Win 2K - 5.00
Win XP - 5.1

As for NT, I believe shutdown.exe exists on all NT from 4 up (maybe). But the NT version numbers are obvious anyway. There are also platform constants you can use with .dwPlatformID, if you search GetVersionEx on MSDN you should be able to find these.

[Sir Loin]

Oh, thank you for ALL of your help!

-Sir Loin

[penagate]

No worries