The list was originally omitted from the email.
[Bullock, Howard A.]
I have tried all sorts of interations. Perl 5.8.7.815 blows up every
time I execute memcpy->Call. At this point I am not sure where to go.
Can anyone confirm that this approach actually works?
Also, I checked the Win32::API docs and the MSDN web and could not find
any information about memcpy that would lead me to:
Win32::API('ntdll.dll', 'memcpy', 'PNN', 'V', '_cdecl'); where can I get
more information about why this was constructed in this manner?
Willem wrote:
if you read the msdn docs, you will see that this is a pointer to the
timeofday struct.
you can obtain the contents of it using the same 'memcpy(P,N,N)' trick i
posted before.
.........................
use Win32::API;
use Encode qw(encode);
$GetTOD = new Win32::API('Netapi32','NetRemoteTOD','PP','N');
$native_string = "server"; #Windows 2003
$Unicode_String = encode("UCS-2LE", uc($native_string));
$todptr= "\x00" x 4;
$rc = $GetTOD->Call($Unicode_String, $todptr);
print "Returncode = " . $rc . "\n";
$todptr= unpack("V", $todptr);
my $toddata= "\x00" x 48;
my $memcpy= new Win32::API('ntdll.dll', 'memcpy', 'PNN', 'V', '_cdecl');
$memcpy->Call($toddata, $todptr, length($toddata));
.... now you can unpack $toddata
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
