What does the error say?
$obj->Allow("hot\vm8797",FULL) or print "Error:$!"; should read
"hot\\vm8797"
---
use Win32::Perms;
unless($obj =
Win32::Perms::New("registry:HKEY_LOCAL_MACHINE\\Software",PERM_TYPE_REGISTRY
)){print "Created Object\n";
print "success";
$obj->Allow("hot\vm8797",FULL) or print "Error:$!";
$obj->Set() or print "Error: $!";
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
