'AutoBluetoothOff
'For laptops with one battery.
'For Windows XP and Vista only.
'Automatically disables and enables hardware when the laptop runs on battery.
'Can be used for more than just enabling/disabling Bluetooth.
'Tweak to your heart's content.
'Utilizes NirCmd from
http://www.nirsoft.net/utils/nircmd.html
'IMPORTANT - To Use:
'[1] The script is currently set to enable/disable your CD Drive with a
' hardware ID of GenCDRom.
'[2] You need to replace GenCDRom (4 instances in the code below) with the hardware ID of your Bluetooth device.
' You can find this from the Windows Device Manager.
'[3] Place a shortcut to this script file in your Start Up folder so it will
' automatically run on boot up.
'[4] For the first use, doubleclick on the shortcut you created.
'Created by Bart Simpson
Dim BatteryIsOn
Dim BatteryIsOff
Dim currentbatterystatus
Dim previousbatterystatus
Dim Shell
BatteryIsOn = 1
BatteryIsOff = 2
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select BatteryStatus from Win32_Battery")
For Each objItem in colItems
currentbatterystatus = objItem.BatteryStatus
previousbatterystatus = currentbatterystatus
IF currentbatterystatus = BatteryIsOn then
'Wscript.Echo "Initialized: Disabling Hardware"
Set previousbatterystatus = currentbatterystatus
set shell = CreateObject("WScript.Shell")
shell.Run ("devcon.exe disable *GenCdRom*"), 0, true
set shell = Nothing
ELSEIF currentbatterystatus = BatteryIsOff then
'Wscript.Echo "Initialized: Enabling Hardware"
Set previousbatterystatus = currentbatterystatus
set shell = CreateObject("WScript.Shell")
shell.Run ("devcon.exe enable *GenCdRom*"), 0, true
set shell = Nothing
END IF
Next
While 1
Set colItems = objWMIService.ExecQuery("Select BatteryStatus from Win32_Battery")
For Each objItem in colItems
currentbatterystatus = objItem.BatteryStatus
IF currentbatterystatus <> previousbatterystatus then
IF currentbatterystatus = BatteryIsOn then
'Wscript.Echo "Disabling Hardware"
previousbatterystatus = currentbatterystatus
set shell = CreateObject("WScript.Shell")
shell.Run ("devcon.exe disable *GenCdRom*"), 0, true
set shell = Nothing
ELSEIF currentbatterystatus = BatteryIsOff then
'Wscript.Echo "Enabling Hardware"
previousbatterystatus = currentbatterystatus
set shell = CreateObject("WScript.Shell")
shell.Run ("devcon.exe enable *GenCdRom*"), 0, true
set shell = Nothing
END IF
END IF
Next
Wend
Problems? See this thread at archive.org.
