http://www.roth.net/forums/ Windows Perl Scripting Forums » Topic: Win32::Perms::ResolveSid en Wed, 22 May 2013 14:54:26 +0000 http://www.roth.net/forums/topic.php?id=278#post-590 Wed, 01 Jul 2009 00:14:09 +0000 Anonymous 590@http://www.roth.net/forums/ <p>Always fails with error code 0x000003e5 (Overlapped I/O operation is in progress). </p> http://www.roth.net/forums/topic.php?id=278#post-589 Tue, 30 Jun 2009 11:45:05 +0000 Anonymous 589@http://www.roth.net/forums/ <p>I have script form Chapter 11 of Win32 Perl Programming, by David Roth. There is always error in line 09 .<br /> I change var $Account so:<br /> $Account ='\\\\$machine\\$user';<br /> $Account ='$domain\\$user';<br /> $Account ='$user';<br /> No effect. There is always error in line 09 .<br /> Where is my mistake?</p> <p>01. use Win32::Perms;<br /> 02. my $Domain = Win32::DomainName();<br /> 03. my $User = Win32::LoginName();<br /> 04. my $Account = sprintf( "%s%s", ( "" ne $Domain )?<br /> "$Domain\\":"", $User );<br /> 05. my %Sid = (<br /> 06. text =&gt; "",<br /> 07. binary =&gt; ""<br /> 08. );<br /> 09. if( $Sid{text} = Win32::Perms::ResolveSid( $Account, $Sid{binary} ) )<br /> 10. {<br /> 11. print "You are logged in as $Account.\n";<br /> 12. print "Your SID is: $Sid{text}\n";<br /> 13. print "Your binary SID is: '$Sid{binary}'\n";<br /> 14. }<br /> 15. else<br /> 16. {<br /> 17. print "\tCouldn't lookup the SID for $Domain\\$User: $^E\n";<br /> 18. } </p>