Heap Modification

# Use: wsadmin.sh -f HeapSizeModification.jacl
# This takes two arguements the string for initialHeapSize and MaxHeapSize to be updated (For E.g. if i have 10 JVMs (have a common) pattern of (s01) in the name

ih=sys.argv[0]
mh=sys.argv[1]

set allServers [$AdminConfig list Server ]
foreach vm $allServers {
        if { [regexp s01 [$AdminConfig showAttribute $vm name] ]==1
        } then {
        #puts "Found [$AdminConfig showAttribute $vm name]" ;
        lappend server_ids $vm ; }
        }
foreach server $server_ids {
        set jvm_id [$AdminConfig list JavaVirtualMachine $server] ;
        puts [$AdminConfig showAttribute $server name] ;
        set oldargs [$AdminConfig showAttribute $jvm_id initialHeapSize] ;
    set newargs [$AdminConfig showAttribute $jvm_id maximumHeapSize] ;
        puts "OLD: $oldargs" ;
        puts "NEW: $newargs" ;
        set args {}
        lappend args [list initialHeapSize $ih] ;
                lappend args [list maximumHeapSize $mh] ;
    #puts "Setting: $args" ;
        $AdminConfig modify $jvm_id $args ;
        }
        $AdminConfig save





server = AdminConfig.getid('/Server:server1/')
jvm = AdminConfig.list('JavaVirtualMachine', server)
AdminConfig.showAttribute(jvm, 'initialHeapSize')

AdminConfig.showAttribute(jvm, 'maximumHeapSize')
AdminConfig.modify(jvm,'[[maximumHeapSize 2048]]')
AdminConfig.modify(jvm,'[[initialHeapSize 512]]')
AdminConfig.save()