Create an iTMSA Measurement

The following VB Script example shows how to create an iTMSA measurement with Power Sweep. Click each link to see a detailed description of each command.

This VBScript (*.vbs) program can be run as a macro in the PNA. To do this, copy the following code into a text editor file such as Notepad and save on the PNA hard drive as Testset.vbs. Learn how to setup and run the macro.


dim app   'PNA App

dim meas  'Measurement

dim balancemeas

dim balstimulus

dim chan


set app = createobject("agilentpna835x.application")

set chan = app.activechannel

chan.SweepType = 2 ' Set the sweep type to power sweep


set meas = app.ActiveMeasurement

set balancemeas = meas.BalancedMeasurement

balancemeas.BalancedTopology.DUTTopology = 2 ' Bal-Bal topology

balancemeas.BalancedStimulus.Mode = 1 ' Turn on true mode

'The PNA-X balanced port numbers are always (0)=Bal 1; (-1)=Bal2

chan.StartPowerEx(0) = -5 ' Set the balanced port 1 start power to -5 dbm

chan.StopPowerEx(0) = 5 ' Set the balanced port 1 stop power to 5 dbm

chan.StartPowerEx(-1) = -10 ' Set the balanced port 2 start power to -5 dbm

chan.StopPowerEx(-1) = 0 ' Set the balanced port 2 stop power to 5 dbm