The following is an example of a PERL script that can be used to populate the value of the SM_SerialNumber attribute in the Router class. The VMware Smart Assurance Perl Reference Guide provides additional information.

use InCharge::session;
#Establish a connection to the VMware Smart Assurance Server
$session=InCharge::session->new( server=>"TEST_SERVER_EX2",
            broker =>"localhost:426",

# Create a handle to the object
# Retrieve value of current Serial Number
print "Current Serial Number: $currentSerial \n";
#Assign a value to the attribute SM_SerialNumber of device
# Print the new value
print "New Serial is: $deviceHandle->{SM_SerialNumber}";