SHTDN_REASON_MAJOR_OTHER = &H0
SHTDN_REASON_MAJOR_NONE = &H0
SHTDN_REASON_MAJOR_HARDWARE = &H10000
SHTDN_REASON_MAJOR_OPERATINGSYSTEM = &H20000
SHTDN_REASON_MAJOR_SOFTWARE = &H30000
SHTDN_REASON_MAJOR_APPLICATION = &H40000
SHTDN_REASON_MAJOR_SYSTEM = &H50000
SHTDN_REASON_MAJOR_POWER = &H60000
End Enum
Public Enum ReasonMinor
SHTDN_REASON_MINOR_OTHER = &H0
SHTDN_REASON_MINOR_NONE = &HFF
SHTDN_REASON_MINOR_MAINTENANCE = &H1
SHTDN_REASON_MINOR_INSTALLATION = &H2
SHTDN_REASON_MINOR_UPGRADE = &H3
SHTDN_REASON_MINOR_RECONFIG = &H4
SHTDN_REASON_MINOR_HUNG = &H5
SHTDN_REASON_MINOR_UNSTABLE = &H6
SHTDN_REASON_MINOR_DISK = &H7
SHTDN_REASON_MINOR_PROCESSOR = &H8
SHTDN_REASON_MINOR_NETWORKCARD = &H9
SHTDN_REASON_MINOR_POWER_SUPPLY = &HA
SHTDN_REASON_MINOR_CORDUNPLUGGED = &HB
SHTDN_REASON_MINOR_ENVIRONMENT = &HC
SHTDN_REASON_MINOR_HARDWARE_DRIVER = &HD
SHTDN_REASON_MINOR_OTHERDRIVER = &HE
SHTDN_REASON_MINOR_BLUESCREEN = &HF
SHTDN_REASON_UNKNOWN = SHTDN_REASON_MINOR_NONE
End Enum
Public Enum ReasonFlag
SHTDN_REASON_FLAG_USER_DEFINED = &H40000000
SHTDN_REASON_FLAG_PLANNED = &H80000000
End Enum
'This function performs the remote shutdown.
<DllImport("AdvAPI32.DLL")> _
Public Shared Function InitiateSystemShutdownEx( _
ByVal lpMachineName As String, _
ByVal lpMessage As String, _
ByVal dwTimeout As Int32, _
ByVal bForceAppsClosed As Boolean, _
ByVal bRebootAfterShutdown As Boolean, _
ByVal dwReason As UInt32) As Boolean
End Function
Private Sub btnShutdown_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnShutdown.Click
'Shut the remote system down.
If (InitiateSystemShutdownEx( _
txtMachine.Text, _
txtMessage.Text, _
Int32.Parse(txtTimeout.Text), _
ckAppClose.Checked, _
ckReboot.Checked, _
Convert.ToUInt32(ReasonMajor.SHTDN_REASON_MAJOR_OTHER Or _
ReasonMinor.SHTDN_REASON_MINOR_MAINTENANCE)) <> True) Then
End If
End Sub
