Again...I have no idea how to do this in PERL either. The best way I know how to do it, is to write a registry .inf and apply the changes with secedit.
-_-aaron -----Original Message----- From: Veeraraju_Mareddi [mailto:[EMAIL PROTECTED]] Sent: Friday, November 16, 2001 2:45 AM To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Subject: Win32::Perms Dear All Can you find out any mistake here, I am not able to change permissions on Registry keys.Please help if any body knows this. Code is given here. ############################################################### use Win32::Perms; unless($obj = Win32::Perms::New("registry:HKEY_LOCAL_MACHINE\\Software",PERM_TYPE_REGI STRY )){print "Created Object\n"; print "success"; $obj->Allow("hot\vm8797",FULL) or print "Error:$!"; $obj->Set() or print "Error: $!"; print "$result"; } print "Cannot Create Object:$!"; ################################################################ With Regards Rajuveera -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
