I am writing a perl code to access DCERPC interface, using DCE::RPC
module and i am ending up in error "Usage: DCE::RPC::new (new
DCE::RPC, $auth) at dcerpc.pl"
Kindly help me to resolve the error
Code:
use DCE::RPC;
use Authen::Perl::NTLM qw(lm_hash nt_hash);
use constant DCOM_IREMOTEACTIVATION => pack("H32",
"B84A9F4D1C7DCF11861E0020AF6E7C57");
use constant DCOM_IF_VERSION => 0x00;
use constant DCOM_XFER_SYNTAX => pack("H32",
"045D888AEB1CC9119FE808002B104860");
use constant DCOM_XFER_SYNTAX_VERSION => 0x02;
$passwd = "bluelane";
$lm_hpw = lm_hash($passwd);
$nt_hpw = nt_hash($passwd);
$ntlm = new_client Authen::Perl::NTLM($lm_hpw, $nt_hpw);
$rpc_host = "win2k3srv.b2k3.com";
$rpc_port = 135;
# This is the line (below) where i am getting the error
$rpc = new DCE::RPC($rpc_host, $rpc_port, $ntlm);
$bind_msg = $rpc->rpc_bind_ack_resp(1, DCOM_IREMOTEACTIVATION,
DCOM_IF_VERSION,({'interface' => DCOM_XFER_SYNTAX, 'version' =>
DCOM_XFER_SYNTAX_VERSION}));
$request_msg = $rpc->rpc_co_request("Hi, there! This is Stub!", 1,
0x0e, DCOM_IREMOTEACTIVATION, "Authentication Credentials");
$response_msg = $rpc->rpc_request_response($request_msg);
$alt_ctx_msg = $rpc->rpc_alt_ctx(1, DCOM_IREMOTEACTIVATION .
DCOM_IF_VERSION,({'interface' => DCOM_XFER_SYNTAX, 'version' =>
DCOM_XFER_SYNTAX_VERSION}));
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
