Dell Battery Recall Check

[DJ VenGenCe]

First real useful program. I have been a lurker, but many of you IT People may find this useful.

Example Uses:

xxxC2451xxxxxxxxxxxxx - Known not on Recall

xxxC5446xxxxxxxxxxxxx - Should be on Recall

You can enter your whole code, I subbed the real barcode with x's (obviously)

Requires v3.2.0.1 (May work in older versions, not tested though)

expandcollapse popup

#include <Array.au3>
Dim $avArray[38]

; Dell Batter Recall Check - Uses Array of Known Dell Part Numbers that know on Recall.
; Enter the Serial Number WITHOUT the Hyphen's or the program may encounter Error.  

; This is a beta release of the program.  Suggestions/Additions are welcome!
;Set arrays
 $avArray[0] = "1K055"
 $avArray[1] = "C5446"
 $avArray[2] = "F2100"
 $avArray[3] = "KD494"
 $avArray[4] = "W5915"
 $avArray[5] = "Y1333"
 $avArray[6] = "3K590"
 $avArray[7] = "C6269"
 $avArray[8] = "F5132"
 $avArray[9] = "OR331"
$avArray[10] = "X5308"
$avArray[11] = "Y4500"
$avArray[12] = "5P474"
$avArray[13] = "C6270"
$avArray[14] = "GD785"
$avArray[15] = "M3006"
$avArray[16] = "X5329"
$avArray[17] = "Y5466"
$avArray[18] = "6P922"
$avArray[19] = "D2961"
$avArray[20] = "H3191"
$avArray[21] = "RD857"
$avArray[22] = "X5332"
$avArray[23] = "D5555"
$avArray[24] = "C2603"
$avArray[25] = "J1524"
$avArray[26] = "TD349"
$avArray[27] = "X5333"
$avArray[28] = "C5339"
$avArray[29] = "D6024"
$avArray[30] = "JD616"
$avArray[31] = "U5867"
$avArray[32] = "X5875"
$avArray[33] = "C5340"
$avArray[34] = "D6025"
$avArray[35] = "JD617"
$avArray[36] = "U5882"
$avArray[37] = "X5877"

$string = "Please Scan or Input Serial Number: " & @CRLF  & "For Example: KR0C2451712705250334" & @CRLF & "Do not Enter Hyphens";
$input = InputBox("Enter Battery Serial Number", $string,"")

$dellPN = StringMid($input, 4,5); 4th Character, 5 total chars.

;Sort Array
_ArraySort( $avArray)

;Look up the Entry
$iKeyIndex = _ArrayBinarySearch ( $avArray, $dellPN)
;If it was ok, display "Recall" Notice"
If Not @error Then
   Msgbox(0,'Battery Eligible',' Your Battery is on Recall, Contact Dell!')
Else
   Msgbox(0,'Battery Not Eligible',' Battery is not set for Recall')
EndIf

Comments and Suggestions welcomed!

DJ

Edited August 25, 2006 by DJ VenGenCe

[Valik]

Requires 2.0 (May work in older versions, not tested though)

Version 2.0 of what?

[Orks236]

Version 2.0 of what?

He probably ment 3.2.0

Edited August 24, 2006 by Orks236

[Valik]

He probably ment 3.2.0

Sigh. That's no more a valid version of AutoIt than "2.0" is.

[vim]

Maybe he means AutoIt version 2.0 [16/08/99 - v2.0], then again maybe not since he's not replying.

Edited August 24, 2006 by vim

[Jos]

@Valik ... make sure you breath at least 5 time before replying to the last one ...

[vim]

@Valik ... make sure you breath at least 5 time before replying to the last one ...

http://www.autoitscript.com/AutoIt/history.php

[Jos]

http://www.autoitscript.com/AutoIt/history.php

sure... ever looked at the v2 syntax?

[vim]

sure... ever looked at the v2 syntax?

Years ago.

After re-reading the orignal post again and spotting this:

============

Requires 2.0 (May work in older versions, not tested though)

..

..

#include <Array.au3> <---***

Dim $avArray[38]

..

..

=============

I realize he has to mean AutoIt v3.something

[Valik]

@Valik ... make sure you breath at least 5 time before replying to the last one ...

Actually, that is the exact reason I'm being a prick about stating the correct version of AutoIt. The syntax is clearly v3 syntax but there is no "2.0" version of AutoIt with that syntax, ergo, confusion can ensue. And vim proved my point perfectly.

[big_daddy]

I'm sure he meant v3.2.0.1, end of discussion.

Lol...just kidding.

[vim]

I'm sure he meant v3.2.0.1, end of discussion.

Lol...just kidding.

Was he baiting us or maybe his battery caught fire and he has no way to the internet now...

[jefhal]

What do I win if I only match 4 out of the 5 numbers? I have more than 50 with Y1338!

$avArray[5]= "Y1333"

[dabus]

I think it's easy enough to go to https://www.dellbatteryprogram.com/Identify.aspx and put some numbers into the boxes and press a button.

But if you like, set up a gui that does that via _IECreate, _IEFormSubmit and so on. I think that would be more convenient.

[DJ VenGenCe]

Sorry Guys, not always in front of my PC. But yes, Big daddy was right.. v3.2.0.1 is what it was tested on. I am going to update that in my first post.

thanks for the suggestions, I am going to try something different.

You win a warm palm rest on the D-series of Laptops (Latitudes) if you match 4-out-of-5.

[Valuater]

Just heard Apple is recalling 1.8 million ( mostly laptops) for overheating.

These and the Dell computers have a Sony battery problem

8)