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
I'm confused with output above. It seems to me '->value($psProxyName)' doesn't work?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
In reply to Re^4: problem with script transfered from VBS
by xiaoyafeng
in thread problem with script transfered from VBS
by xiaoyafeng
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |