IT Management >
IT management Forums
>
IT Management Planning and Technology
>
How to get the service tag from dell computers
How to get the service tag from dell computers
I am trying to get the Service Tag from dell computers without having to go to the BIOS, it could be a DOS interface or a graphical one, I just looking for a little program that would allow me to get this information. Something like “msinfo32”.
Thanks.
All Replies
- On a Dell machine, you can either pull it from the bottom, or go to the Dell Support site from the machine which can scan the computer, which leads me to believe it is within the registry or query-able.
Eric Irvin, MCP, MCSA, MCSE, MCITP:Enterprise Admin, CISSP http://www.diggingup.com - Try this vbscript. Just open a notepad, copy it in, and save it as whatever.vbs
Set objWMIservice = GetObject("winmgmts:\\.\root\cimv2")
set colitems = objWMIservice.ExecQuery("Select * from Win32_BIOS",,48)
For each objitem in colitems
Wscript.echo "Dell Service Tag: " & objitem.serialnumber
Next
Or you could get crazy and do this:
- On Error Resume Next
- do while strcomputer = "" and a < 2
- strcomputer = Inputbox ("Please enter IP address or Computer name","Remote Computer Information Display","IP is preferred search method")
- strcomputer = trim(strcomputer)
- a = a + 1
- loop
- if not strComputer <> "" then
- wscript.echo "No computer name entered, ending script"
- wscript.quit
- end if
- On Error Resume Next
- Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
- wscript.echo "You do not have sufficient access rights to this computer"
- wscript.quit
- else
- wscript.echo "Could not locate computer" &vbcrlf& "Please check IP Address/Computer Name and try again"
- wscript.quit
- end if
- end if
- Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS")
- Set colItems1 = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
- Set colItems2 = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True")
- Set colitems3 = objWMIService.ExecQuery("SELECT * FROM Win32_computersystem")
- Set colitems4 = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkLoginProfile")
- Set colitems5 = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk Where DriveType = 3")
- Set objExplorer = CreateObject("InternetExplorer.Application")
- objExplorer.Navigate "about:blank"
- objExplorer.ToolBar = 0
- objExplorer.StatusBar = 0
- objExplorer.Width = 800
- objExplorer.Height = 600
- objExplorer.Left = 100
- objExplorer.Top = 100
- objExplorer.Visible = 1
- Do While (objExplorer.Busy)
- Loop
- Set objDocument = objExplorer.Document
- objDocument.Open
- objDocument.Writeln "<html><head><title>Computer Information</title></head>"
- objDocument.Writeln "<body bgcolor='white'>"
- ' Computer Detals
- For Each objItem In colItems
- serial = objitem.serialnumber
- next
- For Each objItem In colItems1
- hostname = objitem.caption
- make = objitem.manufacturer
- model = objitem.model
- next
- objDocument.Writeln "<FONT color='red' size=4>Computer Information For: " & Ucase(hostname) & "</FONT><BR><BR>"
- objDocument.Writeln "<FONT face='Courier' color='black'>Serial : " & Serial & "</FONT><BR>"
- objDocument.Writeln "<FONT face='Courier' color='black'>Make : " & make & "</FONT><BR>"
- objDocument.Writeln "<FONT face='Courier' color='black'>Model : " & Model & "</FONT><BR>"
- For Each objItem In colItems5
- driveletter = objitem.name
- capacity = ((objitem.size / 1024) / 1024) / 1024
- free = ((objitem.FreeSpace / 1024) / 1024) / 1024
- free = FormatNumber (free,2)
- capacity = FormatNumber (capacity,2)
- objDocument.Writeln "<FONT face='Courier' color='black'>Capacity of " &driveletter& " - " & capacity & "GB</FONT><BR>"
- objDocument.Writeln "<FONT face='Courier' color='black'>Free Space on " &driveletter& " - " & Free & "GB</FONT><BR>"
- next
- objDocument.Writeln "<BR><FONT color='Blue' size=4>Please Wait, gathering more information...</FONT><BR><BR>"
- ' User Details
- For Each objItem In colItems3
- loggedon = objitem.username
- next
- For Each objItem In colItems4
- cachedlog = objitem.name
- username = objitem.FullName
- passwordexpire = objitem.passwordexpires
- badpassword = objitem.badpasswordcount
- if loggedon = cachedlog then
- objDocument.Writeln "<FONT color='red' size=4>User Information For...</FONT><BR>"
- objDocument.Writeln "<FONT color='red' size=4>" & username & "</FONT><BR><BR>"
- objDocument.Writeln "<FONT face='Courier' color='black'> User Name :" & loggedon &"</FONT><BR>"
- objDocument.Writeln "<FONT face='courier' color='black'> Incorrect Password Attempts : " & badpassword &"</FONT><BR>"
- on error resume next
- Set objaccount = GetObject("WinNT://**********/" &objitem.caption & ",user")
- objDocument.Writeln "<FONT face='courier' color='black'>unable to retrieve password expiration information</FONT><BR>"
- Else
- If objAccount.PasswordExpired = 1 Then
- objDocument.Writeln "<FONT face='courier' color='red'>Password has Expired!</FONT><BR>"
- Else
- objDocument.Writeln "<FONT face='courier' color='black'>Password Expires " & objAccount.PasswordExpirationDate & " </FONT><BR><BR>"
- end if
- end if
- end if
- next
- ' Network Adapter Details
- For Each objItem In colItems2
- ipaddress = objitem.ipaddress(0)
- description = objitem.description
- DHCP = objitem.DHCPserver
- Domain = objitem.DNSdomain
- mac = objitem.MACaddress
- DNS = objitem.dnsserversearchorder(0)
- DNS1 = objitem.dnsserversearchorder(1)
- DNS2 = objitem.dnsserversearchorder(2)
- wins1 = objitem.winsprimaryserver
- wins2 = objitem.winssecondaryserver
- if not ipaddress = "0.0.0.0" then
- objDocument.Writeln "<FONT color='red' size=4>Network Adapter Details For...</FONT><BR>"
- objDocument.Writeln "<FONT color='red' size=4>" & description & "</FONT><BR><BR>"
- objDocument.Writeln "<FONT face='Courier' color='black'> IP Address :" & ipaddress &"</FONT><BR>"
- objDocument.Writeln "<FONT face='courier' color='black'> DHCP Server : " & DHCP &"</FONT><BR>"
- objDocument.Writeln "<FONT face='courier' color='black'> Domain Name : " & domain &"</FONT><BR>"
- objDocument.Writeln "<FONT face='courier' color='black'> MAC Address : " & mac &"</FONT><BR>"
- objDocument.Writeln "<FONT face='courier' color='black'> Primary DNS : " & DNS &"</FONT><BR>"
- objDocument.Writeln "<FONT face='courier' color='black'> Secondary DNS : " & DNS1 &"</FONT><BR>"
- objDocument.Writeln "<FONT face='courier' color='black'> Tertiary DNS : " & DNS2 &"</FONT><BR>"
- objDocument.Writeln "<FONT face='courier' color='black'> Primary WINS : " & wins1 &"</FONT><BR>"
- objDocument.Writeln "<FONT face='courier' color='black'> Secondary WINS : " & WINS2 &"</FONT><BR><BR>"
- end if
- next
- objDocument.Writeln "<FONT color='Blue' size=4>Script Finished</FONT><BR><BR>"
Check out this page for more details: http://www.vbforums.com/showthread.php?t=326425
Kyle Bubp- Proposed As Answer bykbubp Thursday, May 21, 2009 3:12 PM
- Cool.
Okay.. you PowerShell experts.. let's see your version. I bet this could be done in PowerShell in about 1/4 the code. :)
-Kevin
Kevin Remde US IT Evangelism - Microsoft Corporation http://blogs.technet.com/kevinremde Dell provides management of certain Dell workstations via their Open Manage Utilities...
http://www.dell.com/content/topics/global.aspx/sitelets/solutions/management/client_overview?c=us&cs=555&l=en&s=biz
Has management console and the such!Cool.
Heh, it was only 5 lines...
Okay.. you PowerShell experts.. let's see your version. I bet this could be done in PowerShell in about 1/4 the code. :)
-Kevin
Kevin Remde US IT Evangelism - Microsoft Corporation http://blogs.technet.com/kevinremde
Although I would be interested in the PS version.- hey I'm a powershell newbie, but I think its like this
Get-WmiObject win32_bios | format-list SerialNumber
