Dell Battery Recall

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Dell Battery Recall

Logged in as: Guest

arrSession:exec spGetSession 2,2,38364

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Dell Battery Recall
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Dell Battery Recall - 10/4/2006 8:23:41 PM

gdewrance

Posts: 587
Score: 3
Joined: 3/16/2006
Status: offline

Can anyone see why this script does not log.
I would also like to modify this so it does not echo the results but logs them to a network share.
I have tried different things but just keep going in circles.

bBatch = False
bFound = False
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
dim quote, strArgs, i
quote=chr(34)
iButtons = 64 'vbinformation + vbOKOnly
BadList = Array("3K590","59474","6P922",_
"C2603","C5339","C5340",  "C5446","C6269", _
"C6270",  "D2961","D5555","D6024","D6025", _ 
"F2100","F5132","GD785","H3191","JD616", _ 
"JD617","KD494","M3006","RD857","TD349", _ 
"U5867","U5882","W5915","X5308","X5329", _ 
"X5332","X5333","X5875","X5877","Y1333", _ 
"Y4500","Y5466")
'On Error Resume Next

If WScript.Arguments.Count = 1 Then
strComputer = WScript.Arguments(0)
bBatch = True

If (Not IsCScript()) Then   'If not CScript, re-run with cscript...
For i  = WScript.Arguments.Count -1 to  0 Step -1
strArgs = WScript.Arguments(i) & Space(1) &  strArgs
Next

WshShell.Run "CScript.exe " & quote & WScript.ScriptFullName & quote & space(1) & strArgs, 1, true
 WScript.Quit             '...and stop running as WScript
End If

Else
strComputer = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
Message = "This script will check the battery of a local or remote Dell Laptop " & _
"against the exploding battery list."& VbCrLf & VbCrLf & "It can be run as a batch with the PC name as " & _
"the only argument.  If run from a list, then it will create a log on your desktop." & _
" Make sure you change the host to cscript if your run as a batch."& VbCrLf & VbCrLf & _
"Check battery on what Dell laptop?"
strComputer = InputBox(message,"Laptop Name",strComputer)
End If 
If strcomputer = "" Then WScript.Quit
strComputer = UCase(strComputer)
If bBatch Then 'If you got computername from command line, log results
Dim bHeader,logfile,appendout
logfile = wshShell.ExpandEnvironmentStrings("%userprofile%") & "\desktop\DellBatteries.csv" 
'setup Log
Const ForAppend = 8
Set fso = GetObject("Scripting.FileSystemObject")
If Not fso.FileExists(logfile) then bHeader = True
Set appendout = fso.OpenTextFile(logfile, ForAppend, True)
If bHeader Then appendout.WriteLine "System,Man.,Model,BIOS,SN,Bat. DevID,Bat. Name,Message" 'Header only if new file
End If 
Set oWMI = GetObject("winmgmts://"& strComputer)
If Err <> 0 Then
iButtons = 16
echoandlog ",,,,,,Failed:" & Err.Description 
WScript.Quit
End If
'HWInfo
Set HW = oWMI.ExecQuery("select Manufacturer,Model from Win32_ComputerSystem")
For each instance in HW
strManufacturer = trim(Instance.Manufacturer)
strModel = trim(Instance.Model)
strComputer = instance.name
Next
Set HW2 = oWMI.ExecQuery("select name,Version,SerialNumber from Win32_BIOS")
For each item in HW2 'not all manufacturers make this info available
if item.name = "Default System BIOS" then 
Bversion = trim(item.Version)
else
Bversion = item.name & " " & trim(item.Version)
End If

strBios = bversion
strSerial = trim(Item.SerialNumber)
Next

message = strManufacturer & ","  & strModel & "," & _
strBios & ","  & strserial 
Set colBatteries = oWMI.ExecQuery("SELECT deviceid, Name FROM Win32_Battery", ,48)

For Each oBattery In colBatteries
check oBattery.Name, oBattery.DeviceID
Next
If Not bFound Then strMessage =  ",,No battery found"
If iButtons = 64 and bFound Then strMessage = strMessage & "Battery okay"
message = message & "," & strMessage 
echoandlog message
Set oWMI = Nothing
Set fso = Nothing
Set WshShell = Nothing
' Functions and subs 
Sub Check(strName, strID)
Dim i
bFound = True
strMessage =  strID & "," & strName & ","

For i = 0 To UBound(Badlist)
If instr(ucase(strName),badlist(i)) > 0  Then 
iButtons = 16
strMessage = strMessage & "This battery needs to be replaced!"  
End If 
Next
End Sub

Sub EchoAndLog (message)
Dim tArray
If bBatch = true Then
'Echo output and write to Log
message = strComputer & "," & message 
Wscript.Echo message
AppendOut.WriteLine message
Else
tArray = Split(message,",")
message = "Man.:" & vbTab & tArray(0) & VbCrLf & _
"Model:" & vbTab & tArray(1) & VbCrLf & _
"BIOS:" & vbTab & tArray(2) & VbCrLf & _
"SN:" & vbTab & tArray(3) & VbCrLf

If UBound(tarray) >= 4 Then  
message = message & "DevID:" & vbTab & tArray(4) & VbCrLf
End If

If UBound(tarray) >= 5 Then  
message = message & "Name:" & vbTab & tArray(5) & VbCrLf 
End If

If UBound(tarray) >= 6 Then    
message = message & "Message:" & vbTab & tArray(6)
End If

MsgBox message, iButtons,strcomputer
End If 
End Sub

< Message edited by Snipah -- 10/4/2006 9:36:54 PM >

Post #: 1

RE: Dell Battery Recall - 10/4/2006 10:01:40 PM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

change the following:

Line 16: bBatch = True
Line 67: Set fso = CreateObject("Scripting.FileSystemObject")

comment the next line out:

Line 57: If bBatch Then
Line 66: End If

_____________________________

For more information, please see the "Read me First" topic.

http://www.visualbasicscript.com

(in reply to gdewrance)

Post #: 2

RE: Dell Battery Recall - 10/4/2006 10:35:08 PM

gdewrance

Posts: 587
Score: 3
Joined: 3/16/2006
Status: offline

Thanks.
I get an error
Line67, Char1
Error: ActiveX component can't create object: 'winmgmts://MACHINEnAME'
CODE 800A01AD

(in reply to Snipah)

Post #: 3

RE: Dell Battery Recall - 10/4/2006 10:37:22 PM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

quote:

MACHINEnAME

strComputer = MACHINEnAME in your case....if that is not your PCname, you must alter it...

_____________________________

For more information, please see the "Read me First" topic.

http://www.visualbasicscript.com

(in reply to gdewrance)

Post #: 4

RE: Dell Battery Recall - 10/4/2006 10:54:12 PM

gdewrance

Posts: 587
Score: 3
Joined: 3/16/2006
Status: offline

oops I'm the ****
changed the wrong line
I changed GetObject("winmgmts://"& strComputer) to Create

Thanks
Works now

< Message edited by gdewrance -- 10/4/2006 11:00:20 PM >

(in reply to Snipah)

Post #: 5

RE: Dell Battery Recall - 10/4/2006 11:49:42 PM

gdewrance

Posts: 587
Score: 3
Joined: 3/16/2006
Status: offline

Final Script for whoever needs it
This will run through a logon script

' NAME: DellBatteryCheck.vbs
'
' Alan Kaplan, alan dot akaplan at VA dot gov 8/31/2006
' COMMENT: Gets Model, Bios, and battery Info from remote PC
' some cut and paste from prior script
Option Explicit 
dim oWMI, fso
Dim HW, HW2, instance, item, bversion
Dim  strComputer,strManufacturer,strModel,strBios,strserial
Dim BadList
Dim colBatteries, oBattery
Dim bFound, strMessage, iButtons, message
Dim bBatch
'****************************************************************************
'Run this script once to record all computers
Dim varToday, Verify, DellBattery, LastRun
Set WshShell = CreateObject("Wscript.Shell")

varToday = DellBattery

Verify = "HKLM\SOFTWARE\MyInstallsAndFixes\"

'Check if scan has run today and if so exit
On Error Resume Next
LastRun = WshShell.RegRead(Verify & "DellBattery")
If Err.Number = 0 Then
   WScript.Quit
Else
  WshShell.RegWrite Verify & "DellBattery", 0,"REG_DWORD"
End If
On Error GoTo 0 'This turns on error handling
'******************************************************************************
bBatch = True
bFound = False
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
dim quote, strArgs, i
quote=chr(34)
iButtons = 64 'vbinformation + vbOKOnly
BadList = Array("3K590","59474","6P922","C2603","C5339","C5340","C5446","C6269", _
"C6270",  "D2961","D5555","D6024","D6025","F2100","F5132","GD785","H3191","JD616", _ 
"JD617","KD494","M3006","RD857","TD349","U5867","U5882","W5915","X5308","X5329", _ 
"X5332","X5333","X5875","X5877","Y1333","Y4500","Y5466")
'On Error Resume Next

If WScript.Arguments.Count = 1 Then
strComputer = WScript.Arguments(0)
bBatch = True

If (Not IsCScript()) Then   'If not CScript, re-run with cscript...
For i  = WScript.Arguments.Count -1 to  0 Step -1
strArgs = WScript.Arguments(i) & Space(1) &  strArgs
Next

WshShell.Run "CScript.exe " & quote & WScript.ScriptFullName & quote & space(1) & strArgs, 1, true
  WScript.Quit             '...and stop running as WScript
End If

Else
strComputer = "."

End If 
If strcomputer = "" Then WScript.Quit
strComputer = UCase(strComputer)
'If bBatch Then 'If you got computername from command line, log results
Dim bHeader,logfile,appendout
'logfile = wshShell.ExpandEnvironmentStrings("%userprofile%") & "\desktop\DellBatteries.csv" 
'CHANGE THIS TO WHERE YOU WANT YOUR LOG FILE CREATED
logfile = "\\server\share\DellBatteries.csv"

Const ForAppend = 8
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(logfile) then bHeader = True
Set appendout = fso.OpenTextFile(logfile, ForAppend, True)
If bHeader Then appendout.WriteLine "System,Man.,Model,BIOS,SN,Bat. DevID,Bat. Name,Message" 'Header only if new file
'End If 
Set oWMI = GetObject("winmgmts://"& strComputer)
If Err <> 0 Then
iButtons = 16
echoandlog ",,,,,,Failed:" & Err.Description 
WScript.Quit
End If
'HWInfo
Set HW = oWMI.ExecQuery("select Manufacturer,Model from Win32_ComputerSystem")
For each instance in HW
strManufacturer = trim(Instance.Manufacturer)
strModel = trim(Instance.Model)
strComputer = instance.name
Next
Set HW2 = oWMI.ExecQuery("select name,Version,SerialNumber from Win32_BIOS")
For each item in HW2 'not all manufacturers make this info available
if item.name = "Default System BIOS" then 
Bversion = trim(item.Version)
else
Bversion = item.name & " " & trim(item.Version)
End If

strBios = bversion
strSerial = trim(Item.SerialNumber)
Next

message = strManufacturer & ","  & strModel & "," & _
strBios & ","  & strserial 
Set colBatteries = oWMI.ExecQuery("SELECT deviceid, Name FROM Win32_Battery", ,48)

For Each oBattery In colBatteries
 check oBattery.Name, oBattery.DeviceID
Next
If Not bFound Then strMessage =  ",,No battery found"
If iButtons = 64 and bFound Then strMessage = strMessage & "Battery okay"
message = message & "," & strMessage 
echoandlog message
Set oWMI = Nothing
Set fso = Nothing
Set WshShell = Nothing
' Functions and subs 
Sub Check(strName, strID)
Dim i
bFound = True
strMessage =  strID & "," & strName & ","

For i = 0 To UBound(Badlist)
If instr(ucase(strName),badlist(i)) > 0  Then 
iButtons = 16
strMessage = strMessage & "This battery needs to be replaced!"  
End If 
Next
End Sub

Sub EchoAndLog (message)
Dim tArray
If bBatch = true Then
'Echo output and write to Log
message = strComputer & "," & message 
'Wscript.Echo message
AppendOut.WriteLine message
Else
tArray = Split(message,",")
message = "Man.:" & vbTab & tArray(0) & VbCrLf & _
"Model:" & vbTab & tArray(1) & VbCrLf & _
"BIOS:" & vbTab & tArray(2) & VbCrLf & _
"SN:" & vbTab & tArray(3) & VbCrLf

If UBound(tarray) >= 4 Then  
message = message & "DevID:" & vbTab & tArray(4) & VbCrLf
End If

If UBound(tarray) >= 5 Then  
message = message & "Name:" & vbTab & tArray(5) & VbCrLf 
End If

If UBound(tarray) >= 6 Then    
message = message & "Message:" & vbTab & tArray(6)
End If

MsgBox message, iButtons,strcomputer
End If 
End Sub

//EDIT: added code TAGS

< Message edited by Snipah -- 10/5/2006 12:37:26 AM >

(in reply to gdewrance)

Post #: 6

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Dell Battery Recall

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts