Solved

Shut Down win Xp vb.net 2008

Posted on 2009-05-07
10
430 Views
Last Modified: 2013-11-26
i need vb.net 2008 code to shut down win xp
0
Comment
Question by:aarontham
10 Comments
 
LVL 5

Expert Comment

by:drakeshe
ID: 24323078
Shutdown, Restart, or Log Off your computer using VB.Net
    Private Sub btnShutdown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShutdown.Click

        System.Diagnostics.Process.Start("shutdown", "-s -t 00")

        'This will make the computer Shutdown

    End Sub
 

    Private Sub btnRestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestart.Click

        System.Diagnostics.Process.Start("shutdown", "-r -t 00")

        'This will make the computer Restart

    End Sub
 

    Private Sub btnLogOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogOff.Click

        System.Diagnostics.Process.Start("shutdown", "-l -t 00")

        'This will make the computer Log Off

    End Sub
 

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        End

        'This will make the program to terminate(end the program)

    End Sub

Open in new window

0
 
LVL 7

Expert Comment

by:thiyaguk
ID: 24323113
0
 
LVL 5

Expert Comment

by:drakeshe
ID: 24323124
oh ya, forgot lol. =/
0
 
LVL 39

Accepted Solution

by:
abel earned 500 total points
ID: 24323128
that was blazingly fast, drakeshe!

Instead of using the shutdown.exe tool (which, iirc, is not available on older windows, but then again, older windows are rare) you can do this through Win32Shutdown method of WMI as follows, which has the benefit of being able to get information when the shutdown does not succeed:

Dim response As Single

Dim objWMIService, objComputer As Object
 

'Now get some privileges '

objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")
 

For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")
 

   ' 1 + 4 is a forced shutdown, 1 is a normal shutdown '

   response = objComputer.Win32Shutdown(1 + 4, 0)
 

   If response <> 0 Then

      MsgBox("Something wrong")

   Else
 

   End If

Next

Open in new window

0
 
LVL 39

Expert Comment

by:abel
ID: 24327845
Tx for the grade & pts, but...

if you don't comment on why you accept one solution over another, while another is still a
viable alternative, it is a common use at EE to split the points. See the closing q. guidelines.
0
3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

 

Author Comment

by:aarontham
ID: 24328052
drakeshe solution don't work on win XP
0
 
LVL 39

Expert Comment

by:abel
ID: 24328347
ah, ok. Didn't know that, tx for letting us in it ;)
0
 
LVL 5

Expert Comment

by:drakeshe
ID: 24330907
It does work on Windows XP, but perhaps you do not have proper permissions. If the methods are controlled by permissions then it may not be a good solution
0
 
LVL 39

Expert Comment

by:abel
ID: 24331564
interesting point, but the permissions are just as needed when you use the WMI method. The only difference may be that you can interrogate the return value to find out why restarting / shutting down didn't work.

But there's something else with shutdown.exe, or with any other Process.Start. More and more restrictions are applied on starting other processes. More firewalls bug users with messages "do you allow this process X to start this other process Y". It is for the good, but sometimes it is working quite too much against us.
0
 
LVL 5

Expert Comment

by:drakeshe
ID: 24331652
I've heard of anti-viruses that disabled .exe files that aren't installed into c:\program files\*  XD
0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Icons and Colors for Terms 3 24
Anyway to make "All" the default in the dropdown? 6 34
Angular JS Route 3 54
Change Format on Data when exporting to Excel 4 23
Today I had a very interesting conundrum that had to get solved quickly. Needless to say, it wasn't resolved quickly because when we needed it we were very rushed, but as soon as the conference call was over and I took a step back I saw the correct …
A long time ago (May 2011), I have written an article showing you how to create a DLL using Visual Studio 2005 to be hosted in SQL Server 2005. That was valid at that time and it is still valid if you are still using these versions. You can still re…
Video by: Mark
This lesson goes over how to construct ordered and unordered lists and how to create hyperlinks.
Hi friends,  in this video  I'll show you how new windows 10 user can learn the using of windows 10. Thank you.

864 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now