#15485 - 2001-12-26 01:54 PM
Re: Com Object for Finding Serial number
|
Will Hetrick
Hey THIS is FUN
Registered: 2001-10-02
Posts: 320
Loc: Harrisburg, PA USA
|
Thanks Shawn, I will look up those references and happy Boxing Day! BTW, I am using Windows 2000 with a hint of Windows 4.0 still around [ 26 December 2001: Message edited by: Will Hetrick ][ 28 December 2001: Message edited by: Will Hetrick ]
_________________________
You have at least 2 choices. Each choice changes your destiny. Choose wisely!
|
|
Top
|
|
|
|
#15488 - 2001-12-27 02:35 PM
Re: Com Object for Finding Serial number
|
Radimus
Moderator
   
Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
|
I never had that problem... it worked for everyone... as long as the machine's BIOS supported it. Serial Numbers and such sometimes are located in different places
code:
:Hardware $Biosv="" $Biosd="" $Make="" $Model="" $SerNo="" $Case="" $CPUfm="" $CPUsp="" $dimm1="" $dimm2="" $dimm3="" $memory="" if @ras=0 If exist("c:\smbios.exe")=0 ? " Installing SMBIOS inspector" copy "$logon\smbios.exe" "c:\" endif endif go c: cd "c:\" del "c:\hardware.lst" shell "%comspec% /c c:\smbios.exe >nul" sleep 1 $Biosv=readprofilestring("c:\hardware.lst","Bios","Version") $biosd=readprofilestring("c:\hardware.lst","Bios","Date") $Make =readprofilestring("c:\hardware.lst","System","Make") $Model=readprofilestring("c:\hardware.lst","System","Model") $SerNo=readprofilestring("c:\hardware.lst","System","Serial#") $Case =readprofilestring("c:\hardware.lst","Case","Type") $CPUfm=readprofilestring("c:\hardware.lst","Processor-4","Family") $CPUsp=readprofilestring("c:\hardware.lst","Processor-4","CurSpeed") if $CPUfm="" $CPUfm=readprofilestring("c:\hardware.lst","Processor-400","Family") $CPUsp=readprofilestring("c:\hardware.lst","Processor-400","CurSpeed") endif select case $make="Dell Computer Corporation" $dimm1=readprofilestring("c:\hardware.lst","MemDev4352","Size") $dimm2=readprofilestring("c:\hardware.lst","MemDev4353","Size") $memory=val("$dimm1")+val("$dimm2") case $make="Compaq" $dimm1=readprofilestring("c:\hardware.lst","MemDev35","Size") $dimm2=readprofilestring("c:\hardware.lst","MemDev36","Size") $dimm3=readprofilestring("c:\hardware.lst","MemDev37","Size") $memory=val("$dimm1")+val("$dimm2")+val("$dimm3") endselect $freespace=getdiskspace("C:\") ? " Computer "color c+/n "Manufacturer " color w/n "is " color w+/n $Make color w/n ? " Computer "color c+/n "Model " color w/n "is " color w+/n $Model color w/n ? " Computer "color c+/n "Bios " color w/n "is " color w+/n $Biosv color w/n " dated " color w+/n $Biosd color w/n ? " Computer "color c+/n "Serial Number " color w/n "is " color w+/n $SerNo color w/n ? " Computer "color c+/n "Processor " color w/n "is a " color w+/n $CPUfm color w/n " running at " color w+/n $CPUsp color w/n ? " Computer "color c+/n "Memory " color w/n "is " color w+/n $memory " MB" color w/n return ;********************************************* end of Hardware ***********************************************************
|
|
Top
|
|
|
|
#15491 - 2001-12-28 09:13 PM
Re: Com Object for Finding Serial number
|
Ashpoint
Starting to like KiXtart
Registered: 1999-08-27
Posts: 192
Loc: Sydney, NSW, Australia
|
Hello All...This thread looks very interesting. I also get the same result as Will Hetrick (on my Pentium II/330). It doesn't seem as if the HARDWARE.LST file is being created (anywhere). However, if I execute from the DOS prompt... SMBIOS /G >c:hardware.lst I can see heaps of (valuable) information within the C:\hardware.lst file. The file however, won't be interrogated by Radimus' Kix script. Radimus.... Can you perhaps elaborate on your comment "I've subsequently replaced this with the WMIQuery functions" Best regards, Michael [ 28 December 2001: Message edited by: Ashpoint ]
|
|
Top
|
|
|
|
#15492 - 2001-12-28 09:46 PM
Re: Com Object for Finding Serial number
|
Will Hetrick
Hey THIS is FUN
Registered: 2001-10-02
Posts: 320
Loc: Harrisburg, PA USA
|
Hello again, I was just playing around with Windows WMI Object viewer and was looking at machines that do not have the information included in the WMIQuery. I noticed that the fields in the WMIQuery.XXX was actually blank, thus returning blank. The funny thing is all of our computers are exactally the same make/model/speed so why would one have the info and another not have it?Wilbur
_________________________
You have at least 2 choices. Each choice changes your destiny. Choose wisely!
|
|
Top
|
|
|
|
#15498 - 2001-12-31 03:49 PM
Re: Com Object for Finding Serial number
|
Will Hetrick
Hey THIS is FUN
Registered: 2001-10-02
Posts: 320
Loc: Harrisburg, PA USA
|
We have a mix of about 5 type of machines. All are running the same version of Windows 2000 with service pack 2. The computer are Compaq EP/SB, Dell Optiplex 110, Dell Optiplex GX1, Gateway Solo laptops, and Compaq EN. WE use Deployment Center 5.0 from Powerquest to image all the machines. So the images on these machines are the same.BTW, all the machines are picking up the Memory size and speed of processor. Here is an example of the login data. Find duplicates for CINFO Computer, Date, IP Address, Mac Address, Make, Model, Serial Num RVBIT4-20, 12/31/2001 9:06:36 AM, 10.101.4.20, 00B0D04BB848, , , RVBIT4-20, 12/27/2001 8:00:27 AM, 10.101.4.20, 00B0D04BB848, Dell Computer Corporation, OptiPlex GX110, HBIT4 [ 31 December 2001: Message edited by: Will Hetrick ]
_________________________
You have at least 2 choices. Each choice changes your destiny. Choose wisely!
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
1 registered
(Allen)
and 1198 anonymous users online.
|
|
|