VSʵÏÖϵͳµÄÖØÐÂÆô¶¯

'ÖØÆðµÄº¯ÊýÈ·¶¨
Public Sub Rest()
System.Threading.Thread.Sleep(5000) 'ÑÓ³Ù5Ãë
Dim mc As New System.Management.ManagementClass("Win32_OperatingSystem")
mc.Scope.Options.EnablePrivileges = True
For Each mo As System.Management.ManagementObject In mc.GetInstances()
mo.InvokeMethod("Win32Shutdown", New Object() {6})
Next
mc.Dispose()
End
End Sub