Set oShell = CreateObject("WScript.Shell")

Set colMonitoredEvents = GetObject("winmgmts:")._
        ExecNotificationQuery("Select * from Win32_PowerManagementEvent")

Do
   Set objLatestEvent = colMonitoredEvents.NextEvent

   Select Case objLatestEvent.EventType

     Case 7
         oShell.Run "C:\fixspeed\CG-NVNF4.exe -file=C:\fixspeed\2900mhz.ini", 1, False
     Case 11
         MsgBox "OEM Event happened, OEMEventCode = " _
                & strLatestEvent.OEMEventCode

   End Select
Loop