Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
my $setwall;
my $res = $coci->Call(CLSID_ACTIVEDESKTOP, undef, 0, 0, \$setwall);
print "Got: $res\n";
  2. or download this
    Argument "{75048700-EF1F-11D0-9888-006097DEACF9}" isn't numeric in sub
+routine entry at noname.pl line 11.
Use of uninitialized value in subroutine entry at noname.pl line 11.