#!/usr/bin/perl

use strict;
use warnings;

package Win32::LSA;
use base qw/Win32::API::Interface/;

__PACKAGE__->generate( "Advapi32.dll", "LogonUserA", "PPPIIP", "I", "logon_user" );
__PACKAGE__->generate( "Advapi32.dll", "ImpersonateLoggedOnUser", "I", "I", "impersonate_as" );
__PACKAGE__->generate( "Advapi32.dll", "RevertToSelf", "", "I", "revert" );

1;

use Win32 ();

my $token = "\0" x 4;
my $lsa = Win32::LSA->new;
my $rc = $lsa->logon_user( $ENV{USER}, $ENV{DOMAIN}, $ENV{PASS}, 2, 0, $token);
die Win32::FormatMessage( Win32::GetLastError ) unless $rc;

print "Logon success\n";
$rc = $lsa->impersonate_as( unpack 'L', $token );
die Win32::FormatMessage( Win32::GetLastError ) unless $rc;
print "Impersonate success.\n";

# hier dein code 

$rc = $lsa->revert;
die Win32::FormatMessage( Win32::GetLastError ) unless $rc;