sub AUTOLOAD {
    my $self = shift;
    (my $meth = $AUTOLOAD) =~ s/.*::/;

    # Now call the method on the WMI object
    $self->{wmi}->$meth(@_);
}