VB script:

wscript.echo "AEName old value is"
wscript.echo rs.Fields( "AEName" ).value
wscript.echo "ADAS_ID old value is"
wscript.echo rs.Fields( "ADAS_ID" ).value
rs.Fields( "AEName" ) = psProxyName
rs.Fields( "ADAS_ID" ) = pnDeviceID
wscript.echo "AEName new value is"
wscript.echo rs.Fields( "AEName" ).value
wscript.echo "ADAS_ID new value is"
wscript.echo rs.Fields( "ADAS_ID" ).value

wscript.echo rs.Fields( "AEName" ).value
wscript.echo rs.Fields( "ADAS_ID" ).value

__OUTPUT__
C:\>cscript cmp.vbs
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

AEName old value is
Mp_Default
ADAS_ID old value is
null
AEName new value is
MyTestMeterProxy06
ADAS_ID new value is
1415
Meter proxy created having the ID: 673132
Script Finished 

##</code><code>##

perl script 

	print "ADAS_ID old value is", $rs->Fields('ADAS_ID')->value."\n";
	print "AEName old value is", $rs->Fields('AEName')->value."\n";
	print "\$psProxyName value is $psProxyName\n";
	print "\$pnDeviceID value is $pnDeviceID\n";
        $rs->Fields('AEName')->value($psProxyName);
        $rs->Fields('ADAS_ID')->value($pnDeviceID);
	print "ADAS_ID new value is", $rs->Fields('ADAS_ID')->value."\n";
	print "AEName new value is", $rs->Fields('AEName')->value."\n";
        $nCheckoutID = $ctMgr->Checkout($pnContainerID, $aSec);

__OUTPUT__

C:\>perl cmp2.pl
ADAS_ID old value is
AEName old value isMp_Default
$psProxyName value is MyTestMeterProxy010
$pnDeviceID value is Win32::OLE=HASH(0x1987448)
ADAS_ID new value is
AEName new value isMp_Default
Meter proxy created having the ID:
Script Finished