Burak Gürsoy > Sys-Info-Driver-Windows-0.78 > Sys::Info::Driver::Windows

Download:
Sys-Info-Driver-Windows-0.78.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Module Version: 0.78   Source  

NAME ^

Sys::Info::Driver::Windows - Windows driver for Sys::Info

SYNOPSIS ^

    use Sys::Info::Driver::Windows qw(:metrics);
    if ( GetSystemMetrics(SM_SERVERR2) ) {
        # do something ...
    }

DESCRIPTION ^

This document describes version 0.78 of Sys::Info::Driver::Windows released on 17 April 2011.

This is the main module in the Windows driver collection.

METHODS ^

None.

FUNCTIONS ^

The following functions will be automatically exported when the module is used.

CPUFeatures

TODO

registry

Returns a Win32::TieRegistry hashref.

WMI

Returns the WMI object.

WMI_FOR CLASS

Returns the WMI object for the supplied WMI Class name.

decode_serial_key KEY

Decodes the base24 encoded KEY.

GetSystemMetrics

Interface to GetSystemMetrics Windows function. Accepts an integer as the parameter. The interface is incomplete (as Sys::Info does not need the rest) and only these constants are defined:

    SM_TABLETPC
    SM_MEDIACENTER
    SM_SERVERR2
    SM_STARTER

All these constants and the function itself can be imported by the :metrics key.

GetSystemInfo

An interface to the Win32 API function GetSystemInfo:

    my %si = GetSystemInfo();
    printf("CPU: %s Family %s Model %s Stepping %s\n",
        @si{qw/
            wProcessorArchitecture2
            wProcessorLevel
            wProcessorModel
            wProcessorStepping
        /}
    );

SEE ALSO ^

Sys::Info, http://www.perlmonks.org/?node_id=497616, http://msdn.microsoft.com/en-us/library/ms724385(VS.85).aspx, http://msdn.microsoft.com/en-us/library/ms724429(VS.85).aspx.

AUTHOR ^

Burak Gursoy <burak@cpan.org>.

COPYRIGHT ^

Copyright 2006 - 2011 Burak Gursoy. All rights reserved.

LICENSE ^

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.12.2 or, at your option, any later version of Perl 5 you may have available.

syntax highlighting: