Hi,

Now that Dell is doing a recall of batteries for some laptop modells
(https://www.dellbatteryprogram.com/) and we do have about 60 of them
in different locations i was wondering if anyone have some info on how
to get the battery PPID (Dell Part Piece Identification) via script.

I have this so far but the only use i have is that the manufacturer is
Sony, which sure helps a lot.
---------------------------------------------------------------------
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer &
"\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from
Win32_PortableBattery")

For Each objItem in colItems
Wscript.Echo "SystemName : " & objItem.SystemName
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Device ID: " & objItem.DeviceID
Wscript.Echo "Location: " & objItem.Location
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "Name : " & objItem.Name
Wscript.Echo "Status : " & objItem.Status


Wscript.Echo
Next
-----------------------------------------------------------
I have tried with all items in the class Win32_PortableBattery:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_portablebattery.asp

Re: Dell Battery Recall by Babu

Babu
Wed Aug 16 07:54:43 CDT 2006

its likely that the ppid is only on a sticker


<fredriklarsso@gmail.com> wrote in message
news:1155710891.072339.267750@75g2000cwc.googlegroups.com...
> Hi,
>
> Now that Dell is doing a recall of batteries for some laptop modells
> (https://www.dellbatteryprogram.com/) and we do have about 60 of them
> in different locations i was wondering if anyone have some info on how
> to get the battery PPID (Dell Part Piece Identification) via script.
>
> I have this so far but the only use i have is that the manufacturer is
> Sony, which sure helps a lot.
> ---------------------------------------------------------------------
> On Error Resume Next
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer &
> "\root\cimv2")
>
> Set colItems = objWMIService.ExecQuery("Select * from
> Win32_PortableBattery")
>
> For Each objItem in colItems
> Wscript.Echo "SystemName : " & objItem.SystemName
> Wscript.Echo "Description: " & objItem.Description
> Wscript.Echo "Device ID: " & objItem.DeviceID
> Wscript.Echo "Location: " & objItem.Location
> Wscript.Echo "Manufacturer: " & objItem.Manufacturer
> Wscript.Echo "Name : " & objItem.Name
> Wscript.Echo "Status : " & objItem.Status
>
>
> Wscript.Echo
> Next
> -----------------------------------------------------------
> I have tried with all items in the class Win32_PortableBattery:
> http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_portablebattery.asp
>