Digipass Plug-In for SBR Administrator Reference - Vasco

Digipass Plug-In for SBR Administrator Reference Digipass TCL Command-Line Administration
14.2.9 Sample Scripts
Below are some sample scripts which perform basic tasks. They range in complexity to provide
an example of what can be done, and the techniques required.
Check if a Component Record exists
This script checks for the existence of a RADIUS Client Component record with a specific IP
address. If a Component record of that type and location does not exist, a message will be
displayed onscreen.
# Check if a specified RADIUS Client Component exists
if [catch {component get {comp_type "RADIUS Client" location
192.168.122.213 }} result] {
puts "Component does not exist: $result"
}
Create a Record if it doesn't exist
This script builds on the previous sample to check for the existence of a RADIUS Client
Component record and, if one does not currently exist, to create one. It requires a location
parameter to be passed to the script when it is run from DPADMINCMD.
# Get IP-address location from command-line argument
set loc [lindex $argv 0]
# Create the component if it does not exist
if [catch "component get {comp_type {RADIUS Client} location $loc}" result]
{
if [catch "component create {comp_type {RADIUS Client} \
location $loc \
policy_id {VM3 Local Authentication} \
shared_secret default \
protocol RADIUS}" result] {
puts "Error creating component: $result"
} else {
puts "Created component"
}
} else {
puts "Component already exists"
}
To run this script from DPADMINCMD, you would need to use the following syntax:
dpadmincmd -i scriptname loc
Bulk User Administration
This script collects all Digipass User records belonging to the domain named Domain1 and
unlocks any which were locked.
# Get all the users of the domain Domain1
if [catch {user query {domain Domain1}} users] {
puts "Unable to retrieve users: $users"
} else {
# Loop for each user
foreach user $users {
# Get the user information into an array for easier access
© 2006 VASCO Data Security Inc. 155