Option Explicit

' arnelgp

Public Enum PowerOffOptions

    poweroffShutdown = 1

    powerOffRestart = 2

    powerOffLogOff = 3

    poweroffHybernate = 4

End Enum



Public Function VBA_PowerOff(PowerOffOption As PowerOffOptions)

    Dim strCommand As String

    Dim strFile As String

    strFile = Environ("temp") & "\zzCmd.bat"

    strCommand = "@shutdown.exe "

    Select Case PowerOffOption

    Case Is = PowerOffOptions.poweroffShutdown

        strCommand = strCommand & "/s /f /t 0"

    Case Is = PowerOffOptions.powerOffRestart

        strCommand = strCommand & "/r /f"

    Case Is = PowerOffOptions.powerOffLogOff

        strCommand = strCommand & "/l /f"

    Case Is = PowerOffOptions.poweroffHybernate

        strCommand = strCommand & "/h /f"

    End Select

    subSaveStream strFile, strCommand

    Call Shell(strFile)

End Function







Public Sub subSaveStream(ByVal sFileName As String, ByVal sText As String)



    Dim fso As Object

    Dim txtStream As Object

    

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set txtStream = fso.CreateTextFile(sFileName, True)

    

    With txtStream

        .Write sText

        .Close

    End With

    

    Set txtStream = Nothing

    Set fso = Nothing

    sFileName = ""

    sText = ""

End Sub