Prev: string compare
Next: Perl Threads Tutorial
From: Fu Dong on 16 Sep 2005 15:36
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

From: John Bokma on 16 Sep 2005 16:23
"Fu Dong" <fudaviddong(a)gmail.com> wrote:

> 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


--
John Small Perl scripts: http://johnbokma.com/perl/
Perl programmer available: http://castleamber.com/
Happy Customers: http://castleamber.com/testimonials.html

 | 
Pages: 1
Prev: string compare
Next: Perl Threads Tutorial