retrieving Dell Service Tags using Perl

[Fu Dong]

I was wondering if there was an easy way to retrieve a Dell service tag
using Perl. I know it can be done using VBscript using WMI (windows
management instrumentation) and here's the code for VBscript just in
case someone was interested.

set WMI = GetObject("WinMgmts:")


'Show description of all services
set objs = WMI.InstancesOf("Win32_SystemEnclosure")
for each obj in objs


msgbox "Service Tag: " + obj.SerialNumber

 

[John Bokma]

I was wondering if there was an easy way to retrieve a Dell service tag
using Perl. I know it can be done using VBscript using WMI (windows
management instrumentation) and here's the code for VBscript just in
case someone was interested.

set WMI = GetObject("WinMgmts:")


'Show description of all services
set objs = WMI.InstancesOf("Win32_SystemEnclosure")
for each obj in objs


msgbox "Service Tag: " + obj.SerialNumber

http://search.cpan.org/~wyant/Win32-Process-Info-1.005/Info/WMI.pm