Shutdown/Restart Windows XP Pro using VB .NET program

[Brian Worth]

I have just upgraded from VB 4.0 to VB .NET 2002. One program under VB 4.0
was able to shut down or restart the (windows XP) machine using a series of
API calls. (Getlasterror, GetCurrentProce ss, OpenProcessToke n,
LookupPrivilege Value, AdjustTokenPriv ilegese, ExitWindowsEx.

I am trying to avoid using any API calls if possible and to use managed code
instead. I couldn't find any easy way of doing this but searching the
Internet with Google I found the following code for C:

using System;
using System.Manageme nt;
using System.Runtime. InteropServices ;
// Shutdown a system using WMI (management classes)
public class Wmis {
public static void Main() {
ManagementObjec t o;
ManagementPath path = new ManagementPath( );
path.Server = "xxxxxx"; // your server name here
path.NamespaceP ath = @"root\CIMV2 ";
// check your boot.ini file for the correct operating system entry & boot
partition
path.RelativePa th = @"Win32_Operati ngSystem.Name=" "Microsoft Windows XP
Professional|C: \\WINNT|\\Devic e\\Harddisk0\\P artition1""";
o = new ManagementObjec t(path);
ManagementBaseO bject inParams = null;
bool EnablePrivilege s = o.Scope.Options .EnablePrivileg es; // set required
privileges
o.Scope.Options .EnablePrivileg es = true;
// Invoke method (shutdown or reboot)
ManagementBaseO bject outParams = o.InvokeMethod( "Shutdown", inParams, null);
<============== ======
o.Scope.Options .EnablePrivileg es = EnablePrivilege s; // restore privs
(optional)

I don't know C at all but I tried nevertheless to convert it to VB .NET 2002
as follows:

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim o As New ManagementObjec t()
Dim BWManagementPat h As New ManagementPath( )
Dim inParams As System.Manageme nt.ManagementBa seObject()
Dim OptParams As InvokeMethodOpt ions
Dim OutParams As ManagementBaseO bject()
Dim enableprivilege s As Boolean
BWManagementPat h.Server = "DESKTOP"
BWManagementPat h.NamespacePath = "root\CIMV2 "
BWManagementPat h.RelativePath =
"Win32_Operatin gSystem.Name="" Microsoft Windows XP
Professional|C: \\WINDOWS|\\Dev ice\\Harddisk0\ \Partition1"""
o = New ManagementObjec t(BWManagementP ath)
EnablePrivilege s = o.Scope.Options .EnablePrivileg es
o.Scope.Options .EnablePrivileg es = True
OutParams = o.InvokeMethod( "Shutdown", inParams)
<============== ============
o.Scope.Options .EnablePrivileg es = enableprivilege s ' restore privs
(optional)
End Sub

When I tried to convert the outParams=o.Inv okeMethod line, I couldn't find a
way of specifying "Null" without the compiler objecting with the following
message:

"\Shutdown Test\Form1.vb(7 3): Overload resolution failed because no
accessible 'InvokeMethod' can be called with these arguments:
'Public Overloads Function InvokeMethod(me thodName As String,
inParameters As System.Manageme nt.ManagementBa seObject, options As
System.Manageme nt.InvokeMethod Options) As
System.Manageme nt.ManagementBa seObject': Value of type '1-dimensional array
of System.Manageme nt.ManagementBa seObject' cannot be converted to
'System.Managem ent.ManagementB aseObject'.
'Public Overloads Function InvokeMethod(me thodName As String,
inParameters As System.Manageme nt.ManagementBa seObject, options As
System.Manageme nt.InvokeMethod Options) As
System.Manageme nt.ManagementBa seObject': Value of type 'String' cannot be
converted to 'System.Managem ent.InvokeMetho dOptions'.
'Public Overloads Sub InvokeMethod(wa tcher As
System.Manageme nt.ManagementOp erationObserver , methodName As String, args()
As Object)': Value of type 'String' cannot be converted to
'System.Managem ent.ManagementO perationObserve r'.
'Public Overloads Sub InvokeMethod(wa tcher As
System.Manageme nt.ManagementOp erationObserver , methodName As String, args()
As Object)': Value of type '1-dimensional array of
System.Manageme nt.ManagementBa seObject' cannot be converted to 'String'.
'Public Overloads Sub InvokeMethod(wa tcher As
System.Manageme nt.ManagementOp erationObserver , methodName As String, args()
As Object)': Value of type 'String' cannot be converted to '1-dimensional
array of System.Object'. "

So I left the "null" bit off and ran the program.
When I do this, the outparams=o.Inv okeMethod line fails with
"Privilege Not Held"

Any help would be greatefully received.

[Brian Worth]

Thanks very much for your help. Where could I find information about the
InvokeMethod("S hutdown") as I assume I could pass different parameters and
get it to do a restart instead??

Thanks and regards,

Brian.
"Michal Sampson [MSFT]" <mi******@onlin e.microsoft.com > wrote in message
news:h0******** ******@cpmsftng xa06.phx.gbl...

Hi Brian,
I made a couple tweaks to your code and ran a test and sure enough, I
shutdown one of my desktops from another computer. Here's the code that I
ran:

Dim o As ManagementObjec t
Dim BWManagementPat h As New ManagementPath
Dim inParams As System.Manageme nt.ManagementBa seObject
Dim OptParams As InvokeMethodOpt ions
Dim OutParams As ManagementBaseO bject
Dim enableprivilege s As Boolean
BWManagementPat h.Server = "MY COMPUTER NAME"
BWManagementPat h.NamespacePath = "root\CIMV2 "
BWManagementPat h.RelativePath =
"Win32_Operatin gSystem.Name="" Microsoft Windows XP
Professional|C: \\WINDOWS|\\Dev ice\\Harddisk0\ \Partition1"""
o = New ManagementObjec t(BWManagementP ath)
enableprivilege s = o.Scope.Options .EnablePrivileg es
o.Scope.Options .EnablePrivileg es = True
OutParams = o.InvokeMethod( "Shutdown", inParams, Nothing)
o.Scope.Options .EnablePrivileg es = enableprivilege s ' restore privs (optional)

Here are the differences:
- The null keyword in C# is the equivalent of Nothing in VB .Net so on the
InvokeMethod call I passed Nothing where the null parameter was.
- You had some of the types above marked with an empty pair of parentheses: Dim BWManagementPat h As New ManagementPath( )
Dim inParams As System.Manageme nt.ManagementBa seObject()
This creates those variables as arrays and I could not compile until I
removed those parens.
- You may not have security permissions to shutdown the remote machine.
Make sure you have administrator rights on the machine that you wish to
shutdown.

Good luck!

--
Mike Sampson, VB .Net Developer in Deployment
This posting is provided "AS IS" with no warranties, and confers no rights. Use of included script samples are subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm

Note: For the benefit of the community-at-large, all responses to this
message are best directed to the newsgroup/thread from which they
originated.
--------------------

From: "Brian Worth" <Noname@Nowhere >
Subject: Shutdown/Restart Windows XP Pro using VB .NET program
Date: Mon, 6 Oct 2003 18:48:50 +0100
Lines: 97
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <uc************ **@TK2MSFTNGP10 .phx.gbl>
Newsgroups: microsoft.publi c.dotnet.langua ges.vb
NNTP-Posting-Host: ppp-0-16.milt-a-2.access.uk.tis cali.com 80.40.51.16
Path: cpmsftngxa06.ph x.gbl!TK2MSFTNG P08.phx.gbl!TK2 MSFTNGP10.phx.g bl
Xref: cpmsftngxa06.ph x.gbl microsoft.publi c.dotnet.langua ges.vb:144270
X-Tomcat-NG: microsoft.publi c.dotnet.langua ges.vb

I have just upgraded from VB 4.0 to VB .NET 2002. One program under VB 4.0was able to shut down or restart the (windows XP) machine using a series ofAPI calls. (Getlasterror, GetCurrentProce ss, OpenProcessToke n,
LookupPrivileg eValue, AdjustTokenPriv ilegese, ExitWindowsEx.

I am trying to avoid using any API calls if possible and to use managed code

instead. I couldn't find any easy way of doing this but searching the
Internet with Google I found the following code for C:

using System;
using System.Manageme nt;
using System.Runtime. InteropServices ;
// Shutdown a system using WMI (management classes)
public class Wmis {
public static void Main() {
ManagementObje ct o;
ManagementPa th path = new ManagementPath( );
path.Server = "xxxxxx"; // your server name here
path.Namespace Path = @"root\CIMV2 ";
// check your boot.ini file for the correct operating system entry & boot
partition
path.RelativeP ath = @"Win32_Operati ngSystem.Name=" "Microsoft Windows XP
Professional|C :\\WINNT|\\Devi ce\\Harddisk0\\ Partition1""";
o = new ManagementObjec t(path);
ManagementBase Object inParams = null;
bool EnablePrivilege s = o.Scope.Options .EnablePrivileg es; // set required
privileges
o.Scope.Option s.EnablePrivile ges = true;
// Invoke method (shutdown or reboot)
ManagementBase Object outParams = o.InvokeMethod( "Shutdown", inParams,

null);

<============= =======
o.Scope.Option s.EnablePrivile ges = EnablePrivilege s; // restore privs
(optional)

I don't know C at all but I tried nevertheless to convert it to VB .NET

2002

as follows:

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventAr gs) Handles Button1.Click
Dim o As New ManagementObjec t()
Dim BWManagementPat h As New ManagementPath( )
Dim inParams As System.Manageme nt.ManagementBa seObject()
Dim OptParams As InvokeMethodOpt ions
Dim OutParams As ManagementBaseO bject()
Dim enableprivilege s As Boolean
BWManagementPat h.Server = "DESKTOP"
BWManagementPat h.NamespacePath = "root\CIMV2 "
BWManagementPat h.RelativePath =
"Win32_Operati ngSystem.Name=" "Microsoft Windows XP
Professional|C :\\WINDOWS|\\De vice\\Harddisk0 \\Partition1"""
o = New ManagementObjec t(BWManagementP ath)
EnablePrivilege s = o.Scope.Options .EnablePrivileg es
o.Scope.Options .EnablePrivileg es = True
OutParams = o.InvokeMethod( "Shutdown", inParams)
<============= =============
o.Scope.Options .EnablePrivileg es = enableprivilege s ' restore privs(optional)
End Sub

When I tried to convert the outParams=o.Inv okeMethod line, I couldn't find a

way of specifying "Null" without the compiler objecting with the

followingmessage:

"\Shutdown Test\Form1.vb(7 3): Overload resolution failed because no
accessible 'InvokeMethod' can be called with these arguments:
'Public Overloads Function InvokeMethod(me thodName As String,
inParameters As System.Manageme nt.ManagementBa seObject, options As
System.Managem ent.InvokeMetho dOptions) As
System.Managem ent.ManagementB aseObject': Value of type '1-dimensional arrayof System.Manageme nt.ManagementBa seObject' cannot be converted to
'System.Manage ment.Management BaseObject'.
'Public Overloads Function InvokeMethod(me thodName As String,
inParameters As System.Manageme nt.ManagementBa seObject, options As
System.Managem ent.InvokeMetho dOptions) As
System.Managem ent.ManagementB aseObject': Value of type 'String' cannot be
converted to 'System.Managem ent.InvokeMetho dOptions'.
'Public Overloads Sub InvokeMethod(wa tcher As
System.Managem ent.ManagementO perationObserve r, methodName As String, args()As Object)': Value of type 'String' cannot be converted to
'System.Manage ment.Management OperationObserv er'.
'Public Overloads Sub InvokeMethod(wa tcher As
System.Managem ent.ManagementO perationObserve r, methodName As String, args()As Object)': Value of type '1-dimensional array of
System.Managem ent.ManagementB aseObject' cannot be converted to 'String'.
'Public Overloads Sub InvokeMethod(wa tcher As
System.Managem ent.ManagementO perationObserve r, methodName As String, args()As Object)': Value of type 'String' cannot be converted to '1-dimensional
array of System.Object'. "

So I left the "null" bit off and ran the program.
When I do this, the outparams=o.Inv okeMethod line fails with
"Privilege Not Held"

Any help would be greatefully received.

[Brian Worth]

Hi. I tried the amended code but I still get System Management Exception:
Privilege Not Held from the o.InvokeMethod line.

I ran it under my Administrator signon as well and still got the same. I
tried from both the Visual Studio environment and also running the .EXE.

The code I used was:

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim o As ManagementObjec t
Dim BWManagementPat h As New ManagementPath( )
Dim inParams As System.Manageme nt.ManagementBa seObject
Dim OptParams As InvokeMethodOpt ions
Dim OutParams As ManagementBaseO bject
Dim enableprivilege s As Boolean
BWManagementPat h.Server = "PRECISION340TS T"
BWManagementPat h.NamespacePath = "root\CIMV2 "
BWManagementPat h.RelativePath =
"Win32_Operatin gSystem.Name="" Microsoft Windows XP
Professional|C: \\WINDOWS|\\Dev ice\\Harddisk0\ \Partition1"""
o = New ManagementObjec t(BWManagementP ath)
enableprivilege s = o.Scope.Options .EnablePrivileg es
o.Scope.Options .EnablePrivileg es = True
OutParams = o.InvokeMethod( "Shutdown", inParams, Nothing)
o.Scope.Options .EnablePrivileg es = enableprivilege s ' restore privs
(optional)
End Sub

I just built a simple form with a button called Button1 which I click to
invoke the code above.

Any ideas what may be wrong? - I replaced my code with yours totally -
except I altered BWManagementPat h.Server to reflect the system name I was
trying to close down. I am trying to shut down the machine the program is
running on.

Thanks and regards,

Brian.
"Brian Worth" <Noname@Nowhere > wrote in message
news:em******** ******@TK2MSFTN GP09.phx.gbl...

Thanks very much for your help. Where could I find information about the
InvokeMethod("S hutdown") as I assume I could pass different parameters and
get it to do a restart instead??

Thanks and regards,

Brian.
"Michal Sampson [MSFT]" <mi******@onlin e.microsoft.com > wrote in message
news:h0******** ******@cpmsftng xa06.phx.gbl...

Hi Brian,
I made a couple tweaks to your code and ran a test and sure enough, I
shutdown one of my desktops from another computer. Here's the code that I

ran:

Dim o As ManagementObjec t
Dim BWManagementPat h As New ManagementPath
Dim inParams As System.Manageme nt.ManagementBa seObject
Dim OptParams As InvokeMethodOpt ions
Dim OutParams As ManagementBaseO bject
Dim enableprivilege s As Boolean
BWManagementPat h.Server = "MY COMPUTER NAME"
BWManagementPat h.NamespacePath = "root\CIMV2 "
BWManagementPat h.RelativePath =
"Win32_Operatin gSystem.Name="" Microsoft Windows XP
Professional|C: \\WINDOWS|\\Dev ice\\Harddisk0\ \Partition1"""
o = New ManagementObjec t(BWManagementP ath)
enableprivilege s = o.Scope.Options .EnablePrivileg es
o.Scope.Options .EnablePrivileg es = True
OutParams = o.InvokeMethod( "Shutdown", inParams, Nothing)
o.Scope.Options .EnablePrivileg es = enableprivilege s ' restore privs

(optional)

Here are the differences:
- The null keyword in C# is the equivalent of Nothing in VB .Net so on the InvokeMethod call I passed Nothing where the null parameter was.
- You had some of the types above marked with an empty pair of

parentheses:

Dim BWManagementPat h As New ManagementPath( )
Dim inParams As System.Manageme nt.ManagementBa seObject()
This creates those variables as arrays and I could not compile until I removed those parens.
- You may not have security permissions to shutdown the remote machine.
Make sure you have administrator rights on the machine that you wish to
shutdown.

Good luck!

--
Mike Sampson, VB .Net Developer in Deployment
This posting is provided "AS IS" with no warranties, and confers no

rights.

Use of included script samples are subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm

Note: For the benefit of the community-at-large, all responses to this
message are best directed to the newsgroup/thread from which they
originated.
--------------------

From: "Brian Worth" <Noname@Nowhere >
Subject: Shutdown/Restart Windows XP Pro using VB .NET program
Date: Mon, 6 Oct 2003 18:48:50 +0100
Lines: 97
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <uc************ **@TK2MSFTNGP10 .phx.gbl>
Newsgroups: microsoft.publi c.dotnet.langua ges.vb
NNTP-Posting-Host: ppp-0-16.milt-a-2.access.uk.tis cali.com 80.40.51.16
Path: cpmsftngxa06.ph x.gbl!TK2MSFTNG P08.phx.gbl!TK2 MSFTNGP10.phx.g bl
Xref: cpmsftngxa06.ph x.gbl microsoft.publi c.dotnet.langua ges.vb:144270
X-Tomcat-NG: microsoft.publi c.dotnet.langua ges.vb

I have just upgraded from VB 4.0 to VB .NET 2002. One program under VB

4.0was able to shut down or restart the (windows XP) machine using a series of

API calls. (Getlasterror, GetCurrentProce ss, OpenProcessToke n,
LookupPrivileg eValue, AdjustTokenPriv ilegese, ExitWindowsEx.

I am trying to avoid using any API calls if possible and to use managed

code

instead. I couldn't find any easy way of doing this but searching the
Internet with Google I found the following code for C:

using System;
using System.Manageme nt;
using System.Runtime. InteropServices ;
// Shutdown a system using WMI (management classes)
public class Wmis {
public static void Main() {
ManagementObje ct o;
ManagementPa th path = new ManagementPath( );
path.Server = "xxxxxx"; // your server name here
path.Namespace Path = @"root\CIMV2 ";
// check your boot.ini file for the correct operating system entry &

bootpartition
path.RelativeP ath = @"Win32_Operati ngSystem.Name=" "Microsoft Windows XP
Professional|C :\\WINNT|\\Devi ce\\Harddisk0\\ Partition1""";
o = new ManagementObjec t(path);
ManagementBase Object inParams = null;
bool EnablePrivilege s = o.Scope.Options .EnablePrivileg es; // set requiredprivileges
o.Scope.Option s.EnablePrivile ges = true;
// Invoke method (shutdown or reboot)
ManagementBase Object outParams = o.InvokeMethod( "Shutdown", inParams,

null);

<============= =======
o.Scope.Option s.EnablePrivile ges = EnablePrivilege s; // restore privs
(optional)

I don't know C at all but I tried nevertheless to convert it to VB .NET

2002

as follows:

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventAr gs) Handles Button1.Click
Dim o As New ManagementObjec t()
Dim BWManagementPat h As New ManagementPath( )
Dim inParams As System.Manageme nt.ManagementBa seObject()
Dim OptParams As InvokeMethodOpt ions
Dim OutParams As ManagementBaseO bject()
Dim enableprivilege s As Boolean
BWManagementPat h.Server = "DESKTOP"
BWManagementPat h.NamespacePath = "root\CIMV2 "
BWManagementPat h.RelativePath =
"Win32_Operati ngSystem.Name=" "Microsoft Windows XP
Professional|C :\\WINDOWS|\\De vice\\Harddisk0 \\Partition1"""
o = New ManagementObjec t(BWManagementP ath)
EnablePrivilege s = o.Scope.Options .EnablePrivileg es
o.Scope.Options .EnablePrivileg es = True
OutParams = o.InvokeMethod( "Shutdown", inParams)
<============= =============
o.Scope.Options .EnablePrivileg es = enableprivilege s ' restore

privs(optional)
End Sub

When I tried to convert the outParams=o.Inv okeMethod line, I couldn't find

a

way of specifying "Null" without the compiler objecting with the

followingmessage:

"\Shutdown Test\Form1.vb(7 3): Overload resolution failed because no
accessible 'InvokeMethod' can be called with these arguments:
'Public Overloads Function InvokeMethod(me thodName As String,
inParameters As System.Manageme nt.ManagementBa seObject, options As
System.Managem ent.InvokeMetho dOptions) As
System.Managem ent.ManagementB aseObject': Value of type '1-dimensional arrayof System.Manageme nt.ManagementBa seObject' cannot be converted to
'System.Manage ment.Management BaseObject'.
'Public Overloads Function InvokeMethod(me thodName As String,
inParameters As System.Manageme nt.ManagementBa seObject, options As
System.Managem ent.InvokeMetho dOptions) As
System.Managem ent.ManagementB aseObject': Value of type 'String' cannot beconverted to 'System.Managem ent.InvokeMetho dOptions'.
'Public Overloads Sub InvokeMethod(wa tcher As
System.Managem ent.ManagementO perationObserve r, methodName As String, args()As Object)': Value of type 'String' cannot be converted to
'System.Manage ment.Management OperationObserv er'.
'Public Overloads Sub InvokeMethod(wa tcher As
System.Managem ent.ManagementO perationObserve r, methodName As String, args()As Object)': Value of type '1-dimensional array of
System.Managem ent.ManagementB aseObject' cannot be converted to 'String'. 'Public Overloads Sub InvokeMethod(wa tcher As
System.Managem ent.ManagementO perationObserve r, methodName As String, args()As Object)': Value of type 'String' cannot be converted to '1-dimensionalarray of System.Object'. "

So I left the "null" bit off and ran the program.
When I do this, the outparams=o.Inv okeMethod line fails with
"Privilege Not Held"

Any help would be greatefully received.