Here's an example from some code I have:
my $power_key = $Registry->{"LMachine/SYSTEM/CurrentControlSet/Control/Session
Manager/Power/"};
$power_key->{"/Heuristics"} = [ pack("C*", 5,0,0,0, 0,0,0,0, 103,85,0,0,
24,0,0,0, 148,3,0,0 ), "REG_BINARY" ];
Hope it helps,
Mark
------------------------------------------------------------------
Mark Leighton
Information Commons, University of Toronto
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Behalf Of
> Allen, Matthew
> Sent: Friday, April 04, 2003 10:21
> To: 'Bullock, Howard A.'; Allen, Matthew; '[EMAIL PROTECTED]'
> Cc: [EMAIL PROTECTED]
> Subject: RE: TieRegistry
>
>
> Before I decided to post on this I tried pack, unpack and so on. I can get
> it the GetValues ok, it is just the set values never convert properly.
>
> Anyone else?
>
> Thanks!
>
>
> -----Original Message-----
> From: Bullock, Howard A. [mailto:[EMAIL PROTECTED]
> Sent: Thursday, April 03, 2003 6:22 PM
> To: 'Allen, Matthew'; '[EMAIL PROTECTED]'
> Cc: [EMAIL PROTECTED]
> Subject: RE: TieRegistry
>
> If you search the TieRegistry documentation for REG_BINARY you find
> examples. Each one uses the "pack" command.
>
> Howard A. Bullock
> Global IT Infrastructure
> 717-810-3584
>
>
> -----Original Message-----
> From: Allen, Matthew [mailto:[EMAIL PROTECTED]
> Sent: Thursday, April 03, 2003 12:08 PM
> To: '[EMAIL PROTECTED]'
> Cc: [EMAIL PROTECTED]
> Subject: TieRegistry
>
> Hi all--
>
> I am trying to write to a binary key in a remote registry as a hex value:
>
> IE:
>
> --
> if ($key =
> $Registry->Open("//den06106/LMachine/SOFTWARE/ORL/WinVNC3/default/",
> {Access=>KEY_ALL_ACCESS}))
> {
> {
> $okay = $key->SetValue("Password", "hex:81,47,4a,f2,7d,e3,ff,01",
> REG_BINARY);
> }
> }
> --
> Running the above sets "hex:81,47,4a,f2,7d,e3,ff,01" as the value and
> converts it to hex.
>
> A .REG file lists the info like:
> "Value"=hex:81,47,4a,f2,7d,e3,ff,01
>
> I cannot seem to find anywhere to specify what kind of binary data to write.
> Anyone else ever try this that could give me some insight?
>
> Thanks!!
>
> Matthew Allen
> Systems Engineer
> Enterprise Systems Management
> _______________________________________________
> Perl-Win32-Admin mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> _______________________________________________
> Perl-Win32-Admin mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
