0x1,"Setup","CmdLine","Explorer.exe"

  00000405=cz      00000414=no      0000080C=be
  00000406=dk      00000415=pl      00000813=be
  00000407=gr      00000416=br      00000816=po
  00000409=us      00000419=ru      00000C0C=cf
  0000040A=sp      0000041A=yu      00001009=us
  0000040B=su      0000041B=sl      0000100C=sf
  0000040C=fr      0000041D=sv      00010409=dv
  0000040E=hu      00000807=sg      0001040A=sp
  0000040F=us      00000809=uk      00010C0C=cf
  00000410=it      0000080A=la      00020409=us

@ECHO OFF
%ramdrive%
peshuteject /eject:%systemdrive%
sleep 15
peshuteject /shutdown
:END

'**************************************
'Windows API/Global Declarations for :
'Turbo Computer Shutdown - Fastest
'**************************************
'Add the following declerations to a module
'.BAS file
'


Public Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)


Public Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)
   Public Const SE_SHUTDOWN_PRIVILEGE& = 19
   Public Const Shutdown& = 0
   Public Const RESTART& = 1
   Public Const POWEROFF& = 2

'**************************************
' Name: Turbo Computer Shutdown - Fastest
' Description:This is the fastest shutdown
' around, be carefully once you issue
' this command your computer shutdown
' instantly.
'


Sub TurboShutdown()
   RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
   NtShutdownSystem Shutdown 'shutdown
   'NtShutdownSystem restart 'restart
   'NtShutdownSystem poweroff 'poweroff
End Sub

'***Here are things you need to first declare***
  ' // Constants for DeviceSetMedia
   Public Const IOCTL_STORAGE_EJECT_MEDIA As Long = &H2D4808
   Public Const INVALID_HANDLE_VALUE As Long = -1&
   Public Const GENERIC_READ As Long = &H80000000
   Public Const FILE_SHARE_READ As Long = &H1
   Public Const FILE_SHARE_WRITE As Long = &H2
   Public Const OPEN_EXISTING As Long = 3

  ' // Public Functions for DeviceSetMedia
  Public Declare Function CreateFile Lib "kernel32" _
  Alias "CreateFileA" _
 (ByVal lpFileName As String, _
  ByVal dwDesiredAccess As Long, _
  ByVal dwShareMode As Long, _
  lpSecurityAttributes As Any, _
  ByVal dwCreationDisposition As Long, _
  ByVal dwFlagsAndAttributes As Long, _
  ByVal hTemplateFile As Long) As Long
 
  Public Declare Function DeviceIoControl Lib "kernel32" _
 (ByVal hDevice As Long, _
  ByVal dwIoControlCode As Long, _
  lpInBuffer As Any, _
  ByVal nInBufferSize As Long, _
  lpOutBuffer As Any, _
  ByVal nOutBufferSize As Long, _
  lpBytesReturned As Long, _
  lpOverlapped As Any) As Long
 
  Public Declare Function CloseHandle Lib "kernel32" _
  (ByVal hObject As Long) As Long

'***Here's the function to eject the CD***
Public Function DeviceSetMedia(sDrive As String, ctrlCode As Long) As Boolean
' // Function used to open CD tray
  Dim hDevice As Long
  Dim bytesReturned As Long
  Dim success As Long
 
 'obtain a handle to the device
  hDevice = CreateFile("\\.\" & sDrive, _
                       GENERIC_READ, _
                       FILE_SHARE_READ Or FILE_SHARE_WRITE, _
                       ByVal 0&, _
                       OPEN_EXISTING, _
                       0&, 0&)
  If hDevice <> INVALID_HANDLE_VALUE Then
    'If the operation succeeds,
    'DeviceIoControl returns zero
     success = DeviceIoControl(hDevice, _
                               ctrlCode, _
                               0&, _
                               0&, _
                               ByVal 0&, _
                               0&, _
                               bytesReturned, _
                               ByVal 0&)

  End If
 
  Call CloseHandle(hDevice)
End Function

'***Here's how to call the function***
sDrive = "D:"
Call DeviceSetMedia(sDrive, IOCTL_STORAGE_EJECT_MEDIA)
'I attempt to open both D and E drive
sDrive = "E:"
Call DeviceSetMedia(sDrive, IOCTL_STORAGE_EJECT_MEDIA)

RUN-TIME ERROR '50003':
UNEXPECTED ERROR