################################################ # # # SYSGEM Enterprise Manager 2.3 build 5665 # # Copyright (C) 2009 SYSGEM AG # # # # Contents : Custom Displays # # # # Created by : SAcM # # Timestamp : 2013-08-27 11:51:35 # # # ################################################ # 101 Process Requests 106 {4}Supervisor\Web Access Request 113 Custom Code Display = WAR Process Requests 129 1 112 User=[System] Access=[Edit + Execute] 112 Token=[SAcM Full :: Supervisor Options] Access=[Execute] 102 102

Web Access Request DB

102

The "SAcM Web Access DB" is a database holding requests for changes 102 (Creations / Modifications / Deletions / Reset Passwords / etc.) to user 102 accounts on multi-platform target systems. SAcM can be configured to take 102 automatic action on user account management requests placed in this database.

102

The name "Web Access DB" has been chosen because the intention is 102 for customer 'Web-based applications' to use this database as a means of 102 implementing automatic changes to 'Enterprise-wide' user accounts.

102

Customers who do not have such applications should contact their distributor 102 or Sysgem to enquire of the availability of a Web-based User Account 102 Administration application from Sysgem.

102

There are two SAcM Display windows that take action on the SAcM Web Access 102 DB:

102

102
102
Web Access Request: "Process Requests"
102
Web Access Request: "View Results"
102
102

102

Process Requests

102

This display is used to process SAcM commands for multi-platform user account 102 administration.

102

Commands given to this SAcM display window are read from records held in an 102 external database. It thereby gives access to SAcM features using a 102 non-interactive (batch) interface from outside Sysgem Enterprise Manager.

102

It would normally run in SEM 'Unattended' mode of operation as an NT Service, servicing 102 requests for user account administration that have been placed in the SAcM 102 "Web Access Request" Database. For security reasons access to 102 this database must be strictly controlled.

102

The display should initially be run interactively in the SEM 'System' account. 102 (It can only be run from the SEM System account). Once it has been shown to work 102 correctly, by running it interactively, then it should be saved as a SEM session and started in 102 Unattended 102 mode of operation. (See main SEM menu option 'Tools' > 'Unattended 102 Operation').

102

This SAcM feature is useful, for example, for bulk account creation or 102 modification. SAcM commands are inserted into the Web Access Request database and then 102 invoked automatically by this 102 display window to carry out the requests on the target systems for the designated 102 user accounts. No further intervention is required, and the results of processing 102 the commands are placed back into the Web Access Request database.

102

Parameters to the commands give details of the user accounts to be managed, 102 the machine on which they are located and indicate what administrative changes 102 to the accounts are required.

102

A typical command entered in the database looks like:

102

CreateNTAccount

102

102
102
TargetSystem:    Frodo
102
Username:          Smith_JJ
102
Password:          ChangeMe
102
GlobalGroup:       102 Domain Users, Group Policy Creator Owners
102
102

102

The display window refreshes (by default) every 10 minutes, but this 102 frequency may be changed if required.

102

There are two modes of working with this display window:

102

102
102
Automatic
102
Semi-automatic
102
102

102

'Automatic' causes each command to be read from the Web Access Request database one at a 102 time. The command is processed and the results placed back into the database 102 when the transactions is complete. SAcM marks the command status field as being 102 either 'Finished' or 'Failed' depending on whether the transaction 102 completed normally or with errors.

102

Only commands marked with a status code of "Submitted" are 102 read from the database and actioned.

102

'Semi-automatic' reads "Submitted" commands from the Web 102 Access Request database and displays all of them in the display window, where they can be 102 individually selected and a menu option invoked.

102

The Web Access Request Database:

102

There are 3 tables defined in the database:

102

102
102
SAcM_WAR_Command
102
SAcM_WAR_Param
102
SAcM_WAR_Results
102
102

102

The SAcM_WAR_Command table is used to request a user administrative task such 102 as 'CreateNTAccount'. There is one entry in this table for each administrative 102 transaction requested. The entry contains a RequestID key field that uniquely 102 identifies each transaction.

102

The SAcM_WAR_Params table gives the parameters associated with each command. 102 Each entry in the SAcM_WAR_Params table holds just one parameter, and so a 102 single command may have multiple parameter entries that constitute the total 102 transaction. Each of the parameter entries is linked to the command entry by use of 102 the unique RequestID key field. There are just three fields in a parameter 102 entry:

102

102
102
The RequestID key field
102
A description field that defines the type of the parameter (e.g. 102 "Username")
102
A 'Value' field that holds the textual content for the parameter (e.g. 102 "Smith_JJ")
102
102

102

The SAcM_WAR_Results table is used to record the results of the transaction.

102

Details of the three tables in the SAcM_WAR database follow:

102

102 102

102 SAcM_WAR_Command Table: 102

102

102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102

102 Field 102 Name 102 102 102	102 Data 102 type 102 102 102	102 Length 102 102 102	102 Allow 102 Nulls 102 102 102
102 RequestID 102 102 102	102 Varchar 102	102 102 32 102 102	102 No 102 102 102
102 Command 102	102 Varchar 102	102 102 32 102 102	102 No 102 102 102
102 Source 102 102 102	102 Varchar 102	102 32 102	102 No 102 102 102
102 CreationDate 102 102 102	102 Varchar 102	102 102 23 102 102	102 No 102 102 102
102 Status 102 102 102	102 Varchar 102	102 32 102 102 102	102 No 102 102 102

102

102 102

102 RequestID: can be any unique 102 reference generated by Novo that can be held in a 32 character field. There 102 are no special restrictions imposed by sysgem except that it is the key by 102 which all the parameter records and results records will be indexed. 102

102

102 102

102

102 Command: Gives the name of 102 the procedure that is to be called. We will define the full list as part of 102 this project, but it could for instance have a value of 102 "CreateNTAccount". 102

102

102 102

102

102 Source: This field is used 102 to identify the originator of the request. The name of the application and the 102 name of the user submitting the request should be entered into this field. 102

102

102 102

102

102 RequestDate: A date in the 102 format: yyyy-mm-dd hh:mm:ss.fff 102

102

102 102

102

102 RequestStatus: Giving the 102 stage of the transaction, for example: "Submitted", 102 "Started", "Finished", "Failed". 102

102

102 102

102

102 102

102

102 (notice that there is no 102 "Processing" field. This is not required by SEM and so is not 102 included in the above table description. However, if Novo require this field 102 to be present, then it can be added back into this specification and ignored 102 by SEM.) 102

102

102 102

102

102 102

102

102 102

102

102 SAcM_WAR_Param Table: 102

102

102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102

102 Field 102 Name 102 102 102	102 Data 102 type 102 102 102	102 Length 102 102 102	102 Allow 102 Nulls 102
102 RequestID 102 102 102	102 Varchar 102	102 102 32 102 102	102 No 102 102 102
102 ParamName 102 102 102	102 Varchar 102 102 102	102 32 102	102 No 102 102 102
102 ParamValue 102 102 102	102 Varchar 102 102 102	102 250 102 102 102	102 Yes 102

102

102 102

102

102 102

102

102 RequestID: This is the 102 primary key that links the Parameter record(s) to the input command. 102

102

102 102

102

102 ParamName: Identifies the 102 type of the parameter for which the 'Value' refers. This could have a entry 102 such as "Surname". 102

102

102 102

102

102 ParamValue: Gives the 102 content of this parameter, so, for example, if the ParamName were 102 "Surname" then the ParamValue field may have a content of SMITH. The 102 content of this field may be set to Null, for example when a user account 102 field is being modified and has been changed from containing a value to a 102 field no longer containing a value. 102

102

102 102

102

102 (There can be any number of parameter records 102 relating to a single transaction identified by the same RequestID value) 102

102

102 102

102

102 102

102

102 102

102

102 Results Table: 102

102

102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102 102

102 Field 102 Name 102 102 102	102 Data 102 type 102 102 102	102 Length 102 102 102	102 Allow 102 Nulls 102 102 102
102 RequestID 102 102 102	102 Varchar 102	102 102 32 102 102	102 No 102 102 102
102 ResultFieldName 102 102 102	102 Varchar 102 102 102	102 32 102	102 No 102 102 102
102 ResultValue 102 102 102	102 Varchar 102 102 102	102 250 102 102 102	102 No 102 102 102

102 102

102

102 102

102

102 (As for the Parameter Table) 102

102

102 102

102

Database Format

102

The database format is assumed by default to be based on Microsoft Access, 102 but it can be used with SQL Server or other ODBC compliant architectures. For 102 details of how to change the format to be SQL Server, see the chapter on 102 Configuration at the beginning of this guide.

102

WAR Command Reference

102

The following sections describe the available WAR commands.

102 102 102 #include WAR_Command_Description_Table 102

Parameter	Format	Description

102 107 @{{CUSTOM_CODE_START(Main-Script-Post-421E-F14C-034D) 107 @}}CUSTOM_CODE_START(Main-Script-Post-421E-F14C-034D) 107 #++++++++++++++++++++++++++++++++++ 107 # | 107 # Windows NT script (PERL). | 107 # | 107 #++++++++++++++++++++++++++++++++++ 107 # 107 # 107 # This script runs on the client after the 107 # scripts have run on the agent. 107 # 107 # 107 107 LoadInputArray(); 107 107 my $command = ""; 107 107 foreach my $item (@input_array) 107 { 107 if (substr($item, 0, 5) eq "QB : ") 107 { 107 ($junk, $command) = split("QB : ", $item); 107 chomp $command; 107 last; 107 } 107 } 107 107 # 107 # Select an entry then run a menu entry. 107 # 107 if ($INPUT_AA eq "Automatic" && $command ne "") 107 { 107 print "Starting Automatic processing of $command\n"; 107 107 my $print_ap = "print \"\\\@{{AUTOAPPLY\\n\";"; 107 107 print "\@{{MENU_OPT_TITLE $command\n"; 107 print "\@{{MENU_OPT_FIELDS_END $print_ap\n"; 107 print "\@{{MENU_OPT_FIELDS_SELECT QB $command\n"; 107 print "\@{{MENU_OPT_RUN_SELECT\n"; 107 } 107 print "Finished\n"; 107 @{{CUSTOM_CODE_FINISH(Main-Script-Post-421E-F14C-034D) 107 @}}CUSTOM_CODE_FINISH(Main-Script-Post-421E-F14C-034D) 108 @{{CUSTOM_CODE_START(Main-Script-Pre-421E-F14C-034D) 108 @}}CUSTOM_CODE_START(Main-Script-Pre-421E-F14C-034D) 108 #++++++++++++++++++++++++++++++++++ 108 # | 108 # Windows NT script (PERL). | 108 # | 108 #++++++++++++++++++++++++++++++++++ 108 # 108 # 108 # This script runs on the client before any 108 # scripts run on the agent. 108 # 108 # 108 @{{CUSTOM_CODE_FINISH(Main-Script-Pre-421E-F14C-034D) 108 @}}CUSTOM_CODE_FINISH(Main-Script-Pre-421E-F14C-034D) 167 1 121 600 151 0 0 0 0 0 0 0 0 0 0 0 0 0 152 16777215 154 0 153 0 159 1 157 0 150 1 156 1 158 0 260 2 109 @{{CUSTOM_CODE_START(Common-NT-421E-F14C-034D) 109 @}}CUSTOM_CODE_START(Common-NT-421E-F14C-034D) 109 # 109 # Routines common to all NT pre-processing, post-processing, 109 # menu and agent scripts. 109 # 109 # 109 use Carp; 109 use Sysgem; 109 109 use constant WAR_DSN => "Sysgem Web Access Request DB"; 109 use constant SAcM_WAR_Command => "SAcM_WAR_Command"; 109 use constant SAcM_WAR_Param => "SAcM_WAR_Param"; 109 use constant SAcM_WAR_Results => "SAcM_WAR_Results"; 109 109 #include SAcM_Tokens 109 109 # 109 # following used in menu option post processing 109 # (see UpdateVMSAccountComment post processingas an example - and include file SAcM_WarUpdateResults) 109 # 109 my %PostProcDetectedError = (); 109 109 # 109 # Return the current DBMS defined for the DSN. 109 # 109 # If the DSN information cannot be found an empty string is returned. 109 # 109 sub GetCurrentDBMS 109 { 109 my @fields = (); 109 my @values = (); 109 my $error = ""; 109 my $status = Sysgem::ODBCGetDSNInfo(WAR_DSN, 109 \@fields, 109 \@values, 109 $error); 109 109 for (my $idx = 0; $idx < @fields; $idx++) 109 { 109 if ($fields[$idx] =~ "DBMS product name") 109 { 109 return $values[$idx]; 109 } 109 } 109 109 return ""; 109 } 109 109 109 #++ 109 # 109 # Check whether the Active Directory is enabled or not 109 # Return 1 = Active Directory 109 # Return 0 = Not Active Directory 109 # Return -1 = Version of SEM Agent too old 109 # 109 #-- 109 sub ActiveDirectoryEnabled 109 { 109 my $rtn = 0; 109 109 # 109 # (First make sure we have the right version of 109 # the SEM agent to handle the new version check) 109 # 109 eval { Sysgem::LDAPCanConnect() }; 109 my $test = "$@"; 109 chomp $test; 109 109 if ($test !~ m/\@INC/) 109 { 109 # 109 # We have the right version of the SEM Agent 109 # 109 my $error = ""; 109 109 if (Sysgem::LDAPCanConnect($error)) 109 { 109 print "#Active Directory enabled\n"; 109 return 1; # True - it is an Active Directory 109 } 109 else 109 { 109 print "#Not an Active Directory\n"; 109 return 0; # False - not an Active Directory 109 } 109 } 109 109 # 109 # Otherwise, check if the version is new enough 109 # to handle the older version check 109 # 109 eval { Sysgem::LDAPGetEntries() }; 109 my $test = "$@"; 109 chomp $test; 109 109 if ($test !~ m/\@INC/) 109 { 109 # 109 # We have the right version of the SEM Agent 109 # 109 my $ou_filter = "(objectClass=organizationalUnit)"; 109 @fields = (); 109 @values = (); 109 $error = ""; 109 109 my $field_list = ""; 109 109 $status = Sysgem::LDAPGetEntriesEx($ou_filter, 109 $field_list, 109 \@fields, 109 \@values, 109 $error); 109 109 if ($status || uc($error) eq "SUCCESS") 109 { 109 print "#Active Directory enabled\n"; 109 $rtn = 1; # True - it is an Active Directory 109 } 109 else 109 { 109 print "#Not an Active Directory\n"; 109 $rtn = 0; # False - not an Active Directory 109 } 109 } 109 else 109 { 109 109 print "#SEM Agent too old for Active Directory support\n"; 109 $rtn = -1; 109 } 109 109 return $rtn; 109 } 109 109 #++ 109 # 109 # Build the logon string for a single host. 109 # 109 # Input 0: Host. 109 # 109 #-- 109 sub BuildLogonString 109 { 109 my $host = $_[0]; 109 109 # 109 # Just one host - get the Connex information. 109 # 109 my @hosts = ($host); 109 my $connex = ConnexGetSAPData(\@hosts, ConnexPassword()); 109 109 my $connex_cl = $connex->{$host}{"CL"}; 109 my $connex_un = $connex->{$host}{"UN"}; 109 my $connex_pw = $connex->{$host}{"PW"}; 109 my $connex_ho = $connex->{$host}{"HO"}; 109 my $connex_sn = $connex->{$host}{"SN"}; 109 109 my $logon = "client=$connex_cl user=$connex_un passwd=$connex_pw ashost=$connex_ho sysnr=$connex_sn"; 109 109 # 109 # Display. 109 # 109 print "#\n"; 109 print "# Connection Fields\n"; 109 print "#\n"; 109 print "# Host ............: $host\n"; 109 print "# Connex Pwd ......: $STARTUP_PW\n"; 109 print "#\n"; 109 print "# Client ..........: $connex_cl\n"; 109 print "# Username ........: $connex_un\n"; 109 print "# Password ........: ########\n"; 109 print "# AS host .........: $connex_ho\n"; 109 print "# System number ...: $connex_un\n"; 109 print "#\n"; 109 109 return $logon; 109 } 109 @{{CUSTOM_CODE_FINISH(Common-NT-421E-F14C-034D) 109 @}}CUSTOM_CODE_FINISH(Common-NT-421E-F14C-034D) 110 @{{CUSTOM_CODE_START(Common-UNIX-421E-F14C-034D) 110 @}}CUSTOM_CODE_START(Common-UNIX-421E-F14C-034D) 110 # 110 # Routines common to all UNIX menu and agent scripts. 110 # 110 110 #include SAcM_EA_Common_UNIX 110 #include SAcM_NIS 110 NIS_Init 110 @{{CUSTOM_CODE_FINISH(Common-UNIX-421E-F14C-034D) 110 @}}CUSTOM_CODE_FINISH(Common-UNIX-421E-F14C-034D) 111 @{{CUSTOM_CODE_START(Common-VMS-421E-F14C-034D) 111 @}}CUSTOM_CODE_START(Common-VMS-421E-F14C-034D) 111 $! 111 $! Routines common to all VMS menu and server scripts. 111 $! 111 $ set noon 111 $! 111 $ write sys$output "User ....: ''f$user()'" 111 $ write sys$output "System ..: ''f$getsyi("NODENAME")'" 111 $ write sys$output "" 111 $! 111 $ SS_NORMAL == 1 111 $ SS_ABORT == 44 111 $! 111 #include SAcM_GenericVMS_Subroutines 111 #include SAcM_GetVMS_UIC_Group 111 $! 111 $!++ 111 $! 111 $! Check whether an account exists. 111 $! 111 $! Input: Username 111 $! 111 $! Return: gl_account_exists = 1 (true) or 0 (false) 111 $! 111 $ check_account_exists: 111 $ subroutine 111 $! 111 $ set noon 111 $! 111 $ write sys$output "Username ...: ''P1'" 111 $ write sys$output "" 111 $! 111 $! 111 $! Show the account, send output to the null device. 111 $! 111 $ define /nolog /user sys$output nl: 111 $ mcr authorize show 'P1 111 $! 111 $! Status 111 $! 111 $ if $status .eq. 1 111 $ then 111 $ gl_account_exists == 1 111 $ else 111 $ gl_account_exists == 0 111 $ endif 111 $! 111 $ endsubroutine 111 $! 111 $!-- 111 $! 111 $!++ 111 $! 111 $! See if NETPROXY & SYSUAF logicals are set. 111 $! (& set them if not) 111 $! 111 $! Input: Filename 111 $! 111 $ define_sysuaf: 111 $ subroutine 111 $! 111 $ sysuaf_ln = f$trnlnm("SYSUAF") 111 $ if sysuaf_ln .eqs. "" then define /nolog sysuaf SYS$SYSTEM:SYSUAF.DAT 111 $! 111 $ netproxy_ln = f$trnlnm("NETPROXY") 111 $ if netproxy_ln .eqs. "" then define /nolog netproxy SYS$SYSTEM:NETPROXY.DAT 111 $! 111 $ endsubroutine 111 $! 111 $!-- 111 @{{CUSTOM_CODE_FINISH(Common-VMS-421E-F14C-034D) 111 @}}CUSTOM_CODE_FINISH(Common-VMS-421E-F14C-034D) 126 /***********************************************************/ 126 /* */ 126 /* Routines common to all AS/400 menu and agent scripts. */ 126 /* */ 126 /***********************************************************/ 127 /* 127 ** Routines common to all MVS menu and agent scripts. 127 */ 128 # 128 # Routines common to all Tandem menu and agent scripts. 128 # 103 @{{CUSTOM_CODE_START(Main-Script-NT-421E-F14C-034D) 103 @}}CUSTOM_CODE_START(Main-Script-NT-421E-F14C-034D) 103 #++++++++++++++++++++++++++++++++++ 103 # | 103 # Windows NT script (PERL). | 103 # | 103 #++++++++++++++++++++++++++++++++++ 103 # 103 # 103 # This script runs on the agent. It returns 103 # the values shown in the display window. 103 # 103 103 #include SAcM_WAR_DB 103 103 DefineWarDatabase($INPUT_DW, $INPUT_BM); 103 103 # 103 # Data Structures 103 # 103 my %tasks = (); # to store the WAR 'command' table (gives names of tasks to be carried out) 103 my %params = (); # to store the WAR 'params' table (gives the parameters to each task) 103 my %record = (); # to merge tasks with their parameters before displaying 103 103 my $error = ""; 103 my $status = 0; 103 103 # 103 # Get all 'Submitted' Command records. 103 # 103 my $filter = "[RequestStatus] = 'Submitted'"; 103 103 $status = Sysgem::ODBCAllRecords(WAR_DSN, 103 "", 103 SAcM_WAR_Command, 103 $filter, 103 "[RequestID]", 103 \%tasks, 103 $error); 103 103 if ($status != 1) 103 { 103 ReportError(WAR_DSN, "Unable to read " . SAcM_WAR_Command, $error); 103 die; 103 } 103 103 # 103 # put the RequestID's (and task key) in a hash so that they can be sorted 103 # 103 my %SortHash = (); 103 103 foreach $key (keys %tasks) 103 { 103 my $id = $tasks{$key}{"[RequestID]"}; 103 103 $SortHash{$id}{"Key"} = $key; 103 103 } 103 103 # 103 # exit if nothing to do 103 # 103 if (%tasks == 0) 103 { 103 exit; 103 } 103 103 # 103 # Get parameters. 103 # 103 my $ParamFilter = ""; 103 103 if ( $INPUT_AA eq "Automatic" ) 103 { 103 # 103 # If it is automatic - just get one parameter record 103 # 103 foreach my $id (sort keys %SortHash) 103 { 103 $ParamFilter = "[RequestID] = '$id'"; 103 last; 103 } 103 } 103 103 $status = Sysgem::ODBCAllRecords(WAR_DSN, 103 "", 103 SAcM_WAR_Param, 103 $ParamFilter, 103 "", 103 \%params, 103 $error); 103 103 if ($status != 1) 103 { 103 ReportError(WAR_DSN, "Unable to read " . SAcM_WAR_Param, $error); 103 die; 103 } 103 103 # 103 # Merge the Tasks and parameters. 103 # 103 foreach my $id (sort keys %SortHash) 103 { 103 my $key = $SortHash{$id}{"Key"}; 103 $record{$id}{"Date"} = $tasks{$key}{"[RequestDate]"}; 103 $record{$id}{"Task"} = $tasks{$key}{"[Command]"}; 103 $record{$id}{"Status"} = $tasks{$key}{"[RequestStatus]"}; 103 103 if ( $INPUT_AA eq "Automatic" ) 103 { 103 last; 103 } 103 } 103 103 foreach $key (keys %params) 103 { 103 my $id = $params{$key}{"[RequestID]"}; 103 103 # 103 # Only use those from the tasks already obtained 103 # 103 if (!exists($record{$id})) 103 { 103 next; 103 } 103 103 my $index = 0; 103 103 while ( exists($record{$id}{$index}) ) 103 { 103 $index++; 103 } 103 103 $record{$id}{$index}{"Param"} = $params{$key}{"[ParamName]"}; 103 $record{$id}{$index}{"Value"} = $params{$key}{"[ParamValue]"}; 103 } 103 103 # 103 # Print the output 103 # 103 foreach my $rec (sort keys %record) 103 { 103 if ($INPUT_AE ne "") 103 { 103 # 103 # 'start date' requested - see if we are interested in this one 103 # 103 my $date = substr($record{$rec}{"Date"}, 0, 10); 103 $date =~ s/-//g; 103 my $start = substr($INPUT_AE, 0, 10); 103 $start =~ s/-//g; 103 103 if ($date < $start) 103 { 103 next; 103 } 103 } 103 103 print "QA : $rec\n"; 103 print "QB : $record{$rec}{\"Task\"}\n"; 103 print "QD : $record{$rec}{\"Status\"}\n"; 103 print "QE : $record{$rec}{\"Date\"}\n"; 103 103 my @pairs = qw(QF:QG 103 QH:QI 103 QJ:QK 103 QL:QM 103 QN:QO 103 QP:QQ 103 QR:QS 103 QT:QU 103 QV:QW 103 QX:QY 103 HC:IC 103 HE:IE 103 HF:IF 103 HG:IG 103 HH:IH 103 HI:II 103 HJ:IJ 103 HK:IK 103 HL:IL 103 HM:IM 103 HN:IN 103 HP:IP 103 HU:IU 103 HW:IW 103 HX:IX 103 HY:IY 103 HZ:IZ ); 103 my $idx = 0; 103 103 # 103 # Print each pair of parameters (name and value), and identify 103 # the target system and put that also in it's own column (QC) 103 # 103 foreach my $pair (@pairs) 103 { 103 (my $first, my $second) = split(":", $pair); 103 103 if ($record{$rec}{$idx}{"Param"} eq "TargetSystem") 103 { 103 print "QC : $record{$rec}{$idx}{\"Value\"}\n"; 103 } 103 elsif ($record{$rec}{$idx}{"Param"} eq "Username") 103 { 103 print "QZ : $record{$rec}{$idx}{\"Value\"}\n"; 103 } 103 print "$first : $record{$rec}{$idx}{\"Param\"}\n"; 103 print "$second : $record{$rec}{$idx}{\"Value\"}\n"; 103 103 $idx++; 103 } 103 103 # 103 # print ParamNames in black on pale lilac 103 # 103 @Cols = qw(QB QD QF QH QJ QL QN QP QR QT QV QX HC HE HF HG HH HI HJ HK HL HM HN HP HU HW HX HY HZ); 103 103 foreach my $col (@Cols) 103 { 103 print "$col : &T : 0 0 0\n"; 103 print "$col : &B : 245 240 255\n"; 103 } 103 103 print "@\n"; 103 103 if ( $INPUT_AA eq "Automatic" ) 103 { 103 last; 103 } 103 } 103 103 #____________________ 103 # 103 # Subroutines 103 #____________________ 103 103 103 # 103 # Report errors here. 103 # 103 sub ReportError 103 { 103 $title = $_[0]; 103 $line1 = $_[1]; 103 $line2 = $_[2]; 103 103 chomp $title; 103 chomp $line1; 103 chomp $line2; 103 103 print "\@{{B $title\n"; 103 print "\@{{T $line1\n"; 103 print "\@{{T $line2\n"; 103 print "\@{{DE\n"; 103 103 } 103 @{{CUSTOM_CODE_FINISH(Main-Script-NT-421E-F14C-034D) 103 @}}CUSTOM_CODE_FINISH(Main-Script-NT-421E-F14C-034D) 104 #!/bin/ksh -ph 104 @{{CUSTOM_CODE_START(Main-Script-UNIX-421E-F14C-034D) 104 @}}CUSTOM_CODE_START(Main-Script-UNIX-421E-F14C-034D) 104 # 104 #{{SHELL_LINUX #!/bin/sh 104 # 104 #++++++++++++++++++++++++++++++++++ 104 # | 104 # (Main) UNIX Shell script. | 104 # | 104 #++++++++++++++++++++++++++++++++++ 104 # 104 # 104 # This script runs on the agent. It returns 104 # the values shown in the display window. 104 # 104 # 104 @{{CUSTOM_CODE_FINISH(Main-Script-UNIX-421E-F14C-034D) 104 @}}CUSTOM_CODE_FINISH(Main-Script-UNIX-421E-F14C-034D) 105 @{{CUSTOM_CODE_START(Main-Script-VMS-421E-F14C-034D) 105 @}}CUSTOM_CODE_START(Main-Script-VMS-421E-F14C-034D) 105 $!+++++++++++++++++++++++++++++ 105 $! | 105 $! VMS command file (DCL). | 105 $! | 105 $!+++++++++++++++++++++++++++++ 105 $! 105 $! 105 $! This script runs on the agent. It returns 105 $! the values shown in the display window. 105 $! 105 $! 105 @{{CUSTOM_CODE_FINISH(Main-Script-VMS-421E-F14C-034D) 105 @}}CUSTOM_CODE_FINISH(Main-Script-VMS-421E-F14C-034D) 123 /**************************************************/ 123 /* */ 123 /* (Main) AS/400 Agent script */ 123 /* */ 123 /* This script runs on the Sysgem AS/400 agent. */ 123 /* It returns the values shown in the display. */ 123 /* */ 123 /**************************************************/ 123 124 /***************************** 124 ** ** 124 ** (Main) MVS Agent script ** 124 ** ** 124 ****************************** 124 ** 124 ** 124 ** This script runs on the agent. It returns 124 ** the values shown in the display window. 124 */ 125 #++++++++++++++++++++++++++++++++++ 125 # | 125 # (Main) Tandem Agent script. | 125 # | 125 #++++++++++++++++++++++++++++++++++ 125 # 125 # 125 # This script runs on the agent. It returns 125 # the values shown in the display window. 125 # 125 # 140 0 141 10 142 130 0 131 0 161 162 163 164 165 166 168 1 170 0 171 0 # 201 Request ID 205 QA 208 TAG_REQ_ID 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Command 205 QB 208 TAG_TASK 202 0 203 1 207 1 204 0 206 4 209 0 @C@ # 201 Target System 205 QC 208 TAG_TARGET 202 0 203 1 207 1 204 0 206 0 209 0 @C@ # 201 Account 205 QZ 208 TAG_USER 202 0 203 1 207 0 204 0 206 0 209 0 @C@ # 201 Status 205 QD 208 TAG_STATUS 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Date 205 QE 208 TAG_DATE 202 0 203 1 207 0 204 0 206 3 209 0 @C@ # 201 Param01 205 QF 208 TAG_TYPE01 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value01 205 QG 208 TAG_VAL01 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param02 205 QH 208 TAG_TYPE02 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value02 205 QI 208 TAG_VAL02 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param03 205 QJ 208 TAG_TYPE03 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value03 205 QK 208 TAG_VAL03 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param04 205 QL 208 TAG_TYPE04 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value04 205 QM 208 TAG_VAL04 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param05 205 QN 208 TAG_TYPE05 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value05 205 QO 208 TAG_VAL05 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param06 205 QP 208 TAG_TYPE06 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value06 205 QQ 208 TAG_VAL06 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param07 205 QR 208 TAG_TYPE07 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value07 205 QS 208 TAG_VAL07 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param08 205 QT 208 TAG_TYPE08 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value08 205 QU 208 TAG_VAL08 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param09 205 QV 208 TAG_TYPE09 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value09 205 QW 208 TAG_VAL09 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param10 205 QX 208 TAG_TYPE10 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Value10 205 QY 208 TAG_VAL10 202 0 203 0 207 0 204 0 206 4 209 0 @C@ # 201 Param11 205 HC 208 TAG_TYPE11 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value11 205 IC 208 TAG_VAL11 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param12 205 HE 208 TAG_TYPE12 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value12 205 IE 208 TAG_VAL12 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param13 205 HF 208 TAG_TYPE13 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value13 205 IF 208 TAG_VAL13 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param14 205 HG 208 TAG_TYPE14 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value14 205 IG 208 TAG_VAL14 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param15 205 HH 208 TAG_TYPE15 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value15 205 IH 208 TAG_VAL15 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param16 205 HI 208 TAG_TYPE16 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value16 205 II 208 TAG_VAL16 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param17 205 HJ 208 TAG_TYPE17 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value17 205 IJ 208 TAG_VAL17 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param18 205 HK 208 TAG_TYPE18 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value18 205 IK 208 TAG_VAL18 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param19 205 HL 208 TAG_TYPE19 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value19 205 IL 208 TAG_VAL19 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param20 205 HM 208 TAG_TYPE20 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value20 205 IM 208 TAG_VAL20 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param21 205 HN 208 TAG_TYPE21 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value21 205 IN 208 TAG_VAL21 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param22 205 HP 208 TAG_TYPE22 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value22 205 IP 208 TAG_VAL22 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param23 205 HU 208 TAG_TYPE23 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value23 205 IU 208 TAG_VAL23 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param24 205 HW 208 TAG_TYPE24 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value24 205 IW 208 TAG_VAL24 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param25 205 HX 208 TAG_TYPE25 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value25 205 IX 208 TAG_VAL25 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param26 205 HY 208 TAG_TYPE26 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value26 205 IY 208 TAG_VAL26 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Param27 205 HZ 208 TAG_TYPE27 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 201 Value27 205 IZ 208 TAG_VAL27 202 0 203 0 207 0 204 0 206 0 209 0 @C@ # 301 0 Windows 301 1 UNIX 301 2 OpenVMS 301 3 OS400 301 4 Notes 301 5 RSA 301 6 SAP 301 7 MSExchange 301 8 ORACLE 301 9 # 311 CreateNTAccount 313 0 336 325 0 345 0 346 0 358 # 321 1 322 1 # 312 312

An automated method of calling SAcM User administrative commands externally 312 from SEM via entries 312 in a Database.

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

The command: CreateNTAccount has the following parameters:

312

312
312
TargetSystem
312
Username
312
Password
312
PasswordPreExpire
312
PasswordPreExpire
312
GlobalGroups
312
LocalGroups
312
AD_OrgUnit
312
HomeDirectory (e.g. "\\NEWFS01\H$\Users\S\Mike001\Home")
312
CreateHomeDirectory ("0" or "1")
312
HomeDirAccessRights (e.g. "C"), the default is "F"
312
UserProfilePath (e.g. "\\NEWFS01\H$\Users\S\Mike001\Profile")
312
LogonScript
312
NetworkShareDrive
312
GivenName
312
Initials
312
sn (Last name)
312
Office
312
Description
312
WarRdn (used to define the common name field in the Relative 312 Distinguished Name)
312
DisplayName
312
AccountExpires
312
ExpirationDate
312
AddSubscriberPointer
312
SubscriberBadgeNo
312
ExtAttrName1 (defines the variable "$ExtAttrName1", that may be 312 used by customised scripts to set customer specific fields in the Active 312 Directory)
312
ExtAttrValue1 (ditto - Name1 gives the name of the attribute, 312 Value1 gives the value to be set in that field)
312
312

312

(See the main help on "Web Access Request" for the format of the 312 database).

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-Fields-421E-F14C-034D) 330 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-Fields-421E-F14C-034D) 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 330 # 330 # check that the requested Agent is a recognised agent 330 # 330 330 use Time::localtime; 330 330 print "\@{{PAGE_HIDE Hidden \n"; 330 330 #include SAcM_WarGetParams 330 #include SAcM_WarValidAgent 330 #include SAcM_WarUpdateResults 330 330 WARValidateAgent(); 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 # 330 # Enter the selected agent into the input field 330 # 330 print "SV : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; # target system 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 330 330 330 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Fields-421E-F14C-034D) 330 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Fields-421E-F14C-034D) 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-NT-421E-F14C-034D) 314 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-NT-421E-F14C-034D) 314 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 use Sysgem; 314 314 #include SAcM_NT_Account_Status 314 #include SAcM_MPC_Create_NT_Account 314 314 # 314 # Multi-Platform Create: 314 # Create an NT Account, add group membership, 314 # and create home directory 314 # 314 MPC_Create_NT_Account(); 314 314 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-NT-421E-F14C-034D) 314 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-NT-421E-F14C-034D) 326 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-Post-421E-F14C-034D) 326 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-Post-421E-F14C-034D) 326 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarGetParams 326 #include SAcM_Options_Cache 326 #include SAcM_Tokens 326 326 # 326 # Read the parameters 326 # 326 %Params = (); 326 $count = GetWarParams(\%Params); 326 326 $INPUT_UN = $Params{"Username"}; 326 $INPUT_PW = $Params{"Password"}; 326 $INPUT_ON = $Params{"Owner"}; 326 $INPUT_PX = $Params{"PasswordPreExpire"}; 326 $INPUT_GG = $Params{"GlobalGroups"}; 326 $INPUT_LG = $Params{"LocalGroups"}; 326 $INPUT_ON = $Params{"Owner"}; 326 326 $AddSubscPtr = $Params{"AddSubscriberPointer"}; 326 $SubscBadge = $Params{"SubscriberBadgeNo"}; 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # (*** Note if an error occured in the agent script, then SAcM_WarUpdateResults 326 # will exit, so that no further post processing takes place ***) 326 # 326 WarUpdateResults(); 326 326 326 # 326 # Now update the Audit Trail (in the include file SAcM_MPC_Post_Process_2) 326 # 326 326 #include SAcM_Logfile 326 #include SAcM_Common_Date_Routines 326 326 326 # 326 # Construct an Audit Sequence Number 326 # 326 my $AudSeq = AuditSeqNumber() . " (WAR)"; 326 326 #include SAcM_MPC_Post_Process_2 326 326 # 326 # Add the pointer to the Subscriber DB 326 # 326 use Sysgem; 326 use Time::localtime; 326 use constant Subsc_DSN => "Sysgem Subscriber DB"; 326 use constant DB_TABLE_ACCOUNT => "TABLE_ACCOUNT"; 326 use constant DB_TABLE_APPLICATION => "TABLE_APPLICATION"; 326 use constant DB_TABLE_PERSON => "TABLE_PEOPLE"; 326 326 if ($AddSubscPtr) 326 { 326 my @fields = (); 326 my @values = (); 326 326 # 326 # Add record. 326 # 326 my $tm = localtime; 326 my $created = sprintf("%04d-%02d-%02d %02d:%02d:%02d", 326 ($tm->year)+1900, 326 ($tm->mon)+1, 326 ($tm->mday), 326 $tm->hour, 326 $tm->min, 326 $tm->sec); 326 326 push(@fields, "FLD_CREATED"); push(@values, $created); 326 push(@fields, "FLD_OWNER"); push(@values, $SubscBadge); 326 push(@fields, "FLD_COMPUTER"); push(@values, $SERVER_NAME); 326 push(@fields, "FLD_ACCOUNT"); push(@values, $INPUT_UN); 326 push(@fields, "FLD_COMMENT"); push(@values, "Added by WAR Process Requests"); 326 push(@fields, ""); push(@values, ""); 326 326 my $error = ""; 326 my $status = 0; 326 326 $status = Sysgem::ODBCAddRecord(Subsc_DSN, 326 "", 326 DB_TABLE_ACCOUNT, 326 \@fields, 326 \@values, 326 $error); 326 326 # 326 # If there was an error then add an entry to the logfile. Prefix all 326 # text with a # so that it doesn't interfere with anything sent to the 326 # output display. 326 # 326 if ($status != 1) 326 { 326 my @WarnMsg = ("Error adding Subscriber Pointer",$error,); 326 326 WriteWarResults(\@WarnMsg, "Warning"); 326 } 326 } 326 326 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Post-421E-F14C-034D) 326 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Post-421E-F14C-034D) 327 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-Pre-421E-F14C-034D) 327 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-Pre-421E-F14C-034D) 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Should we abort the transaction as a result of output from the fields script? 327 # 327 if ($INPUT_ZZ eq "ABORT") 327 { 327 print "\@{{ABORT\n"; 327 exit; 327 } 327 327 # 327 # Read the parameters 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Create a hash defining all the parameter types that 327 # exist with this command 327 # 327 # (Indicate the INPUT variable names used by the target script). 327 # 327 my %ParamDefs = ( Username => { Input => "\$INPUT_UN" }, 327 Password => { Input => "\$INPUT_PW" }, 327 PasswordPreExpire => { Input => "\$INPUT_PX" }, 327 GlobalGroups => { Input => "\$INPUT_GG" }, 327 LocalGroups => { Input => "\$INPUT_LG" }, 327 AD_OrgUnit => { Input => "\$INPUT_OU" }, 327 HomeDirectory => { Input => "\$INPUT_HD" }, # the dir spec (e.g. C:Users\schofield or \\NEWFS01\H$\Users\S\Smithj\Home) 327 CreateHomeDirectory => { Input => "\$INPUT_YD" }, # 1/0 (create the directory or not ) 327 HomeDirAccessRights => { Input => "\$UserDirAccessRights" }, # ACLs applied to folder, e.g. "C" (Change) .... default = "F" if no value provided 327 UserProfilePath => { Input => "\$INPUT_PP" }, # (inherits ACLs) e.g. \\NEWFS01\H$\Users\S\Smithj\Profile" 327 LogonScript => { Input => "\$INPUT_SP" }, 327 NetworkShareDrive => { Input => "\$INPUT_HV" }, 327 GivenName => { Input => "\$INPUT_FI" }, 327 Initials => { Input => "\$INPUT_IN" }, 327 sn => { Input => "\$INPUT_LA" }, 327 Office => { Input => "\$INPUT_XO" }, 327 Description => { Input => "\$INPUT_CT" }, 327 WarRdn => { Input => "\$WAR_RDN" }, # used to define the common name field in the Relative Distinguished Name 327 DisplayName => { Input => "\$INPUT_ON" }, 327 AccountExpires => { Input => "\$INPUT_ES" }, 327 ExpirationDate => { Input => "\$INPUT_EX" }, 327 AddSubscriberPointer => { Input => "\$AddSubscPtr" }, # Boolean - whether to add the subscriber pointer to the account 327 SubscriberBadgeNo => { Input => "\$SubscBadge" }, # Badge number of the subscriber (for adding the pointer) 327 ExtAttrName1 => { Input => "\$ExtAttrName1" }, 327 ExtAttrValue1 => { Input => "\$ExtAttrValue1" } 327 ); 327 327 # 327 # Update the target script with 327 # the input field values 327 # 327 UpdateTargetScript(\%ParamDefs, \%Params, "NT", "NoChanges"); 327 327 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Pre-421E-F14C-034D) 327 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Pre-421E-F14C-034D) 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-UNIX-421E-F14C-034D) 315 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-UNIX-421E-F14C-034D) 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-UNIX-421E-F14C-034D) 315 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-UNIX-421E-F14C-034D) 316 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-VMS-421E-F14C-034D) 316 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-VMS-421E-F14C-034D) 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-VMS-421E-F14C-034D) 316 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-VMS-421E-F14C-034D) 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-Init-NT-421E-F14C-034D) 337 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-Init-NT-421E-F14C-034D) 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 337 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Init-NT-421E-F14C-034D) 337 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Init-NT-421E-F14C-034D) 338 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-Init-Post-421E-F14C-034D) 338 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-Init-Post-421E-F14C-034D) 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 338 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Init-Post-421E-F14C-034D) 338 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Init-Post-421E-F14C-034D) 339 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-Init-Pre-421E-F14C-034D) 339 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Init-Pre-421E-F14C-034D) 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-Init-UNIX-421E-F14C-034D) 340 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-Init-UNIX-421E-F14C-034D) 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Init-UNIX-421E-F14C-034D) 340 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Init-UNIX-421E-F14C-034D) 341 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-Init-VMS-421E-F14C-034D) 341 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-Init-VMS-421E-F14C-034D) 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 341 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Init-VMS-421E-F14C-034D) 341 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Init-VMS-421E-F14C-034D) 350 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-Controls-421E-F14C-034D) 350 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-Controls-421E-F14C-034D) 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 350 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Controls-421E-F14C-034D) 350 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Controls-421E-F14C-034D) 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SV 343 15794175 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # 317 ZZ 343 16777215 323 344 332 347 000 333 334 0 324 0 329 Hidden 335 0 348 1 349 1 357 318 320 0 319 @F@ # @M@ # 311 ModifyNTAccount 313 0 336 325 0 345 0 346 0 358 # 321 1 322 2 # 312 312

An automated method of calling SAcM User administrative commands externally 312 from SEM via entries in a Database.

312

The command: ModifyNTAccount has the following parameters: 312 (note... many of these fields are held in the Active Directory and will only be 312 actioned if the "TargetSystem" parameter points to a Domain Controller 312 with Active Directory enabled)

312

312
312
TargetSystem
312
Username (needed to identify the user)
312
Password
312
Owner
312
DistingName (needed to identify the user in the Active Directory)
312
City
312
FacsimileTelephoneNumber
312
PostalCode
312
Description
312
TelephoneNumber
312
StreetAddress
312
Company
312
Department
312
PostOfficeBox
312
Title
312
Mobile
312
GivenName
312
Initials
312
sn (i.e. lastname)
312
Office
312
DisplayName
312
co (i.e. full country name in uppercase)
312
Manager (distinguished name of the user's 312 manager)
312
Mail
312
AccountExpires
312
ExpirationDate
312
312

312

(See the main help topic on "Web Access Request: Process Requests" for 312 the format of the database).

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 @{{CUSTOM_CODE_START(ModifyNTAccount-01-Script-Fields-421E-F14C-034D) 330 @}}CUSTOM_CODE_START(ModifyNTAccount-01-Script-Fields-421E-F14C-034D) 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # check that the requested Agent is a recognised agent 330 # 330 330 use Time::localtime; 330 330 print "\@{{PAGE_HIDE Hidden \n"; 330 330 #include SAcM_WarGetParams 330 #include SAcM_WarValidAgent 330 #include SAcM_WarUpdateResults 330 330 WARValidateAgent(); 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SV : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 330 330 330 @{{CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Fields-421E-F14C-034D) 330 @}}CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Fields-421E-F14C-034D) 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 @{{CUSTOM_CODE_START(ModifyNTAccount-01-Script-NT-421E-F14C-034D) 314 @}}CUSTOM_CODE_START(ModifyNTAccount-01-Script-NT-421E-F14C-034D) 314 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 use Sysgem; 314 314 #include SAcM_InternationalCountryCodes 314 #include SAcM_NT_Account_Status 314 #include SAcM_Modify_NT_Account 314 314 314 Modify_NT_Account(); 314 314 @{{CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-NT-421E-F14C-034D) 314 @}}CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-NT-421E-F14C-034D) 326 @{{CUSTOM_CODE_START(ModifyNTAccount-01-Script-Post-421E-F14C-034D) 326 @}}CUSTOM_CODE_START(ModifyNTAccount-01-Script-Post-421E-F14C-034D) 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarGetParams 326 326 # 326 # Read the command parameters extracted from the WAR DB 326 # 326 %Params = (); 326 $count = GetWarParams(\%Params); 326 326 #include SAcM_Options_Cache 326 #include SAcM_Tokens 326 326 #include SAcM_Logfile 326 #include SAcM_Common_Date_Routines 326 326 UMLogAddAccountModify($Params{"Username"}, \@script_output); 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 326 326 @{{CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Post-421E-F14C-034D) 326 @}}CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Post-421E-F14C-034D) 327 @{{CUSTOM_CODE_START(ModifyNTAccount-01-Script-Pre-421E-F14C-034D) 327 @}}CUSTOM_CODE_START(ModifyNTAccount-01-Script-Pre-421E-F14C-034D) 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Should we abort the transaction as a result of output from the fields script? 327 # 327 if ($INPUT_ZZ eq "ABORT") 327 { 327 print "\@{{ABORT\n"; 327 exit; 327 } 327 327 # 327 # Read the command parameters extracted from the WAR DB 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Simulate a 'Selected' user account 327 # 327 print "\@{{ADD_SVR \$ENTRY_UN = \"$ENTRY_QZ\";\n"; 327 print "\@{{ADD_SVR \$INPUT_UN = \"$ENTRY_QZ\";\n"; 327 327 327 # 327 # Indicate that this came from a WAR transaction, and therefore 327 # the Distinguished name needs to be re-read from the account 327 # 327 print "\@{{ADD_SVR \$RefreshDN = 1;\n"; 327 327 # 327 # Create a hash defining all the parameter types that 327 # exist with this command 327 # 327 # (Indicate the INPUT variable names used by the target script, 327 # and the variable names that show which fields have changed.) 327 # 327 my %ParamDefs = ( Password => { Input => "\$INPUT_PW", Changed => "\$changed_PW", Before => "\$before_PW" }, 327 City => { Input => "\$INPUT_XC", Changed => "\$changed_XC", Before => "\$before_XC" }, 327 FacsimileTelephoneNumber => { Input => "\$INPUT_FA", Changed => "\$changed_FA", Before => "\$before_FA" }, 327 PostalCode => { Input => "\$INPUT_XZ", Changed => "\$changed_XZ", Before => "\$before_XZ" }, 327 Description => { Input => "\$INPUT_CT", Changed => "\$changed_CT", Before => "\$before_CT" }, 327 TelephoneNumber => { Input => "\$INPUT_BP", Changed => "\$changed_BP", Before => "\$before_BP" }, 327 StreetAddress => { Input => "\$INPUT_XA", Changed => "\$changed_XA", Before => "\$before_XA" }, 327 Company => { Input => "\$INPUT_CO", Changed => "\$changed_CO", Before => "\$before_CO" }, 327 Department => { Input => "\$INPUT_XP", Changed => "\$changed_XP", Before => "\$before_XP" }, 327 PostOfficeBox => { Input => "\$INPUT_GC", Changed => "\$changed_GC", Before => "\$before_GC" }, 327 title => { Input => "\$INPUT_XT", Changed => "\$changed_XT", Before => "\$before_XT" }, 327 personalTitle => { Input => "\$INPUT_PT", Changed => "\$changed_PT", Before => "\$before_PT" }, 327 Mobile => { Input => "\$INPUT_MO", Changed => "\$changed_MO", Before => "\$before_MO" }, 327 GivenName => { Input => "\$INPUT_FI", Changed => "\$changed_FI", Before => "\$before_FI" }, 327 Initials => { Input => "\$INPUT_IN", Changed => "\$changed_IN", Before => "\$before_IN" }, 327 sn => { Input => "\$INPUT_LA", Changed => "\$changed_LA", Before => "\$before_LA" }, 327 Office => { Input => "\$INPUT_XO", Changed => "\$changed_XO", Before => "\$before_XO" }, 327 DisplayName => { Input => "\$INPUT_ON", Changed => "\$changed_ON", Before => "\$before_ON" }, 327 ipPhone => { Input => "\$INPUT_GI", Changed => "\$changed_GI", Before => "\$before_GI" }, 327 Mail => { Input => "\$INPUT_MM", Changed => "\$changed_MM", Before => "\$before_MM" }, 327 co => { Input => "\$INPUT_XR", Changed => "\$changed_XR", Before => "\$before_XR" }, 327 AccountExpires => { Input => "\$INPUT_ES", Changed => "\$changed_ES", Before => "\$before_ES" }, 327 ExpirationDate => { Input => "\$INPUT_EX", Changed => "\$changed_EX", Before => "\$before_EX" }, 327 Manager => { Input => "\$INPUT_MQ", Changed => "\$changed_MQ", Before => "\$before_MQ" } 327 ); 327 327 327 # 327 # Update the target script with the input 327 # field values and show which fields changed 327 # 327 UpdateTargetScript(\%ParamDefs, \%Params, "NT", "ShowChanges"); 327 327 @{{CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Pre-421E-F14C-034D) 327 @}}CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Pre-421E-F14C-034D) 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 @{{CUSTOM_CODE_START(ModifyNTAccount-01-Script-UNIX-421E-F14C-034D) 315 @}}CUSTOM_CODE_START(ModifyNTAccount-01-Script-UNIX-421E-F14C-034D) 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 @{{CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-UNIX-421E-F14C-034D) 315 @}}CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-UNIX-421E-F14C-034D) 316 @{{CUSTOM_CODE_START(ModifyNTAccount-01-Script-VMS-421E-F14C-034D) 316 @}}CUSTOM_CODE_START(ModifyNTAccount-01-Script-VMS-421E-F14C-034D) 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 @{{CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-VMS-421E-F14C-034D) 316 @}}CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-VMS-421E-F14C-034D) 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 @{{CUSTOM_CODE_START(ModifyNTAccount-01-Script-Init-NT-421E-F14C-034D) 337 @}}CUSTOM_CODE_START(ModifyNTAccount-01-Script-Init-NT-421E-F14C-034D) 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 337 @{{CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Init-NT-421E-F14C-034D) 337 @}}CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Init-NT-421E-F14C-034D) 338 @{{CUSTOM_CODE_START(ModifyNTAccount-01-Script-Init-Post-421E-F14C-034D) 338 @}}CUSTOM_CODE_START(ModifyNTAccount-01-Script-Init-Post-421E-F14C-034D) 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 338 @{{CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Init-Post-421E-F14C-034D) 338 @}}CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Init-Post-421E-F14C-034D) 339 @{{CUSTOM_CODE_START(ModifyNTAccount-01-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_START(ModifyNTAccount-01-Script-Init-Pre-421E-F14C-034D) 339 @{{CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Init-Pre-421E-F14C-034D) 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 @{{CUSTOM_CODE_START(ModifyNTAccount-01-Script-Init-UNIX-421E-F14C-034D) 340 @}}CUSTOM_CODE_START(ModifyNTAccount-01-Script-Init-UNIX-421E-F14C-034D) 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 @{{CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Init-UNIX-421E-F14C-034D) 340 @}}CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Init-UNIX-421E-F14C-034D) 341 @{{CUSTOM_CODE_START(ModifyNTAccount-01-Script-Init-VMS-421E-F14C-034D) 341 @}}CUSTOM_CODE_START(ModifyNTAccount-01-Script-Init-VMS-421E-F14C-034D) 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 341 @{{CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Init-VMS-421E-F14C-034D) 341 @}}CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Init-VMS-421E-F14C-034D) 350 @{{CUSTOM_CODE_START(ModifyNTAccount-01-Script-Controls-421E-F14C-034D) 350 @}}CUSTOM_CODE_START(ModifyNTAccount-01-Script-Controls-421E-F14C-034D) 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 350 @{{CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Controls-421E-F14C-034D) 350 @}}CUSTOM_CODE_FINISH(ModifyNTAccount-01-Script-Controls-421E-F14C-034D) 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SV 343 15794175 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # 317 ZZ 343 16777215 323 344 332 347 000 333 334 0 324 0 329 Hidden 335 0 348 1 349 1 357 318 320 0 319 @F@ # @M@ # 311 DeleteNTAccount 313 0 336 325 0 345 0 346 0 358 # 321 1 322 3 # 312 312

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312 312

The command: DeleteNTAccount has the following parameters:

312

312
312
TargetSystem
312
Username
312
RemoveSubscriberPointer
312
SubscriberBadgeNo
312
312

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # @M@ # 311 EnableNTAccount 313 0 336 325 0 345 0 346 0 358 # 321 1 322 5 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # @M@ # 311 ClearNTLockout 313 0 336 325 0 345 0 346 0 358 # 321 1 322 8 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # @M@ # 311 SetNTAccountPassword 313 0 336 325 0 345 0 346 0 358 # 321 1 322 10 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # @M@ # 311 SetOrgUnit 313 0 336 325 0 345 0 346 0 358 # 321 1 322 12 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # @M@ # 311 DeleteNTHomeDir 313 0 336 325 0 345 0 346 0 358 # 321 1 322 14 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 @{{CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Fields-424A-B968-001F) 330 @}}CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Fields-424A-B968-001F) 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # check that the requested Agent is a recognised agent 330 # 330 330 use Time::localtime; 330 330 print "\@{{PAGE_HIDE Hidden \n"; 330 330 #include SAcM_WarGetParams 330 #include SAcM_WarValidAgent 330 #include SAcM_WarUpdateResults 330 330 WARValidateAgent(); 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SV : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 330 330 330 @{{CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Fields-424A-B968-001F) 330 @}}CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Fields-424A-B968-001F) 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 @{{CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-NT-424A-B968-001F) 314 @}}CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-NT-424A-B968-001F) 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 use Sysgem; 314 314 #include SAcM_Options_Cache 314 #include SAcM_Tokens 314 #include SAcM_Windows_Groups_Modify 314 #include SAcM_AD_Groups_Modify_Membership_Windows 314 314 314 # 314 # Active Directory? 314 # 314 if (ActiveDirectoryEnabled() == 1 && $forceSAM != 1) 314 { 314 # 314 # It is Active Directory, are we adding or removing? 314 # 314 if ($Action eq "Add") 314 { 314 # 314 # find users distinguished name 314 # 314 my @fields = (); 314 my @values = (); 314 my $error = ""; 314 314 my $filter = "(objectClass=user)(objectCategory=person)(cn=$ENTRY_MB)"; 314 my $field_list = "distinguishedName"; 314 314 $status = Sysgem::LDAPGetEntriesEx($filter, 314 $field_list, 314 \@fields, 314 \@values, 314 $error); 314 314 my $User_dn = ""; 314 $User_dn = $values[0]; 314 314 if ($status != 0 || $User_dn eq "") 314 { 314 print "\@{{SE Error fetching distinguished name for '$ENTRY_MB': $error\n"; 314 print "\@{{SE status: '$ENTRY_MB', Distinguished Name: '$User_dn'\n"; 314 exit; 314 } 314 314 my @groups = ($ENTRY_GR); 314 my $message = ""; 314 314 my $success = UpdateGroupMembership( $ENTRY_MB, # username 314 $User_dn, # distinguished name of user's account 314 "append", # action to take: 314 \@groups, # array of group names to action 314 \$message ); # address of a variable to store any status messages 314 if ($success) 314 { 314 print "\@{{SI User: '$ENTRY_MB' added to AD group: '$ENTRY_GR'\n"; 314 } 314 else 314 { 314 print "\@{{SE Error adding '$ENTRY_MB' to AD group '$ENTRY_GR': $message\n"; 314 exit; 314 } 314 } 314 elsif ($Action eq "Remove") 314 { 314 Remove_AD_Group_Member($ENTRY_MB, $ENTRY_GR); 314 } 314 else 314 { 314 print "\@{{SE Unrecognised Modify Group action: [$Action] on group: [$ENTRY_GR] member: [$ENTRY_MB]\n"; 314 } 314 } 314 else 314 { 314 # 314 # It is NOT Active Directory 314 # 314 my %info = (); 314 314 if (Sysgem::GetLocalGroup($ENTRY_GR, 0, \%info)) 314 { 314 # 314 # it is a local group, find the existing groups 314 # 314 my @local = (); 314 my $error = ""; 314 my $foundGp = 0; 314 314 my $status = Sysgem::GetAccountLocalGroups($ENTRY_MB, \@local, $error); 314 314 if ($status != 1) 314 { 314 print "\@{{SE Errors fetching local groups for $ENTRY_MB\n"; 314 314 foreach $error (@errors) {print "\@{{SE $error\n"; } 314 314 exit; 314 } 314 314 if ($Action eq "Add") 314 { 314 # 314 # add the new group to the list 314 # 314 push(@local, $ENTRY_GR); 314 } 314 elsif ($Action eq "Remove") 314 { 314 # 314 # remove the group from the list 314 # 314 my @local_2 = (); 314 foreach my $item (@local) 314 { 314 if (lc($item) ne lc($ENTRY_GR) ) 314 { 314 push(@local_2, $item); 314 } 314 else 314 { 314 $foundGp = 1; 314 } 314 } 314 314 if ($foundGp == 0) 314 { 314 print "\@{{SE $ENTRY_MB is not a member of $ENTRY_GR\n"; 314 314 exit; 314 } 314 314 @local = (); 314 314 foreach $item (@local_2) 314 { 314 push(@local, $item); 314 } 314 } 314 else 314 { 314 print "\@{{SE Unrecognised Modify Group action: [$Action] on group: [$ENTRY_GR] member: [$ENTRY_MB]\n"; 314 exit; 314 } 314 314 # 314 # update 314 # 314 my @errors = (); 314 my $status = Sysgem::SetAccountLocalGroups($ENTRY_MB, 314 \@local, 314 \@errors); 314 # 314 # Report any errors here. 314 # 314 if ($status == 1) 314 { 314 print "\@{{SI Account $ENTRY_MB updated ($Action) in local group $ENTRY_GR.\n"; 314 } 314 else 314 { 314 print "\@{{SE Errors updating ($Action) $ENTRY_MB with local group $ENTRY_GR\n"; 314 314 foreach $error (@errors) {print "\@{{SE $error\n"; } 314 314 exit; 314 } 314 } 314 elsif (Sysgem::GetGlobalGroup($ENTRY_GR, 0, \%info)) 314 { 314 # 314 # it is a global group 314 # 314 my @global = (); 314 my $error = ""; 314 my $foundGp = 0; 314 314 $status = Sysgem::GetAccountGlobalGroups($ENTRY_MB, \@global, $error); 314 314 if ($status != 1) 314 { 314 print "\@{{SE Errors fetching local groups for $ENTRY_MB\n"; 314 314 foreach $error (@errors) {print "\@{{SE $error\n"; } 314 314 exit; 314 } 314 314 if ($Action eq "Add") 314 { 314 # 314 # add the new group to the list 314 # 314 push(@global, $ENTRY_GR); 314 } 314 elsif ($Action eq "Remove") 314 { 314 # 314 # remove the group from the list 314 # 314 my @global_2 = (); 314 foreach my $item (@global) 314 { 314 if (lc($item) ne lc($ENTRY_GR) ) 314 { 314 push(@global_2, $item); 314 } 314 else 314 { 314 $foundGp = 1; 314 } 314 } 314 314 if ($foundGp == 0) 314 { 314 print "\@{{SE $ENTRY_MB is not a member of $ENTRY_GR\n"; 314 314 exit; 314 } 314 314 @global = (); 314 314 foreach $item (@global_2) 314 { 314 push(@global, $item); 314 } 314 } 314 else 314 { 314 print "\@{{SE Unrecognised Modify Group action: [$Action] on group: [$ENTRY_GR] member: [$ENTRY_MB]\n"; 314 exit; 314 } 314 314 # 314 # add the new group 314 # 314 my @errors = (); 314 my $status = Sysgem::SetAccountGlobalGroups($ENTRY_MB, 314 \@global, 314 \@errors); 314 # 314 # Report any errors here. 314 # 314 if ($status == 1) 314 { 314 print "\@{{SI Account $ENTRY_MB updated ($Action) in global group $ENTRY_GR.\n"; 314 } 314 else 314 { 314 print "\@{{SE Errors updating ($Action) $ENTRY_MB with global group $ENTRY_GR\n"; 314 314 foreach $error (@errors) {print "\@{{SE $error\n"; } 314 314 exit; 314 } 314 } 314 else 314 { 314 314 print "\@{{SE Error: Unrecognised group: '$ENTRY_GR'\n"; 314 314 exit; 314 } 314 } 314 314 @{{CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-NT-424A-B968-001F) 314 @}}CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-NT-424A-B968-001F) 326 @{{CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Post-424A-B968-001F) 326 @}}CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Post-424A-B968-001F) 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarGetParams 326 326 # 326 # Read the command parameters extracted from the WAR DB 326 # 326 %Params = (); 326 $count = GetWarParams(\%Params); 326 326 print "number of parameters found = [$count]\n"; 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 326 326 326 #include SAcM_Options_Cache 326 #include SAcM_Tokens 326 #include SAcM_Logfile 326 #include SAcM_Common_Date_Routines 326 326 # 326 # Construct an Audit Sequence Number 326 # 326 my $AudSeq = AuditSeqNumber() . " (WAR)"; 326 326 # 326 # Add logfile entry. 326 # 326 my $LogAction = "Membership to Windows Group: " . $Params{"Group"} . " " . $Params{"Action"}; 326 326 if ($Params{"Action"} eq "Add") 326 { 326 $LogAction = $LogAction . "ed"; 326 } 326 elsif ($Params{"Action"} eq "Remove") 326 { 326 $LogAction = $LogAction . "d"; 326 } 326 326 UMLogAddAccount($SysgemComputer, 326 $SysgemUsername, 326 $Params{"Username"}, 326 $LogAction, 326 $SERVER_TYPE, 326 $SERVER_NAME, 326 "Audit Seq. No..: $AudSeq"); 326 326 @{{CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Post-424A-B968-001F) 326 @}}CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Post-424A-B968-001F) 327 @{{CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Pre-424A-B968-001F) 327 @}}CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Pre-424A-B968-001F) 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Should we abort the transaction as a result of output from the fields script? 327 # 327 if ($INPUT_ZZ eq "ABORT") 327 { 327 print "\@{{ABORT\n"; 327 exit; 327 } 327 327 # 327 # Read the command parameters extracted from the WAR DB 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Simulate a 'Selected' user account 327 # 327 print "\@{{ADD_SVR \$ENTRY_MB = \"" . $Params{"Username"} . "\";\n"; 327 327 # 327 # How to modify - i.e. "Add" or "Remove" (one group at a time!) 327 # 327 print "\@{{ADD_SVR \$Action = \"" . $Params{"Action"} . "\";\n"; 327 327 # 327 # The group (one group at a time!) 327 # 327 print "\@{{ADD_SVR \$ENTRY_GR = \"" . $Params{"Group"} . "\";\n"; 327 327 @{{CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Pre-424A-B968-001F) 327 @}}CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Pre-424A-B968-001F) 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 @{{CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-UNIX-424A-B968-001F) 315 @}}CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-UNIX-424A-B968-001F) 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 @{{CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-UNIX-424A-B968-001F) 315 @}}CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-UNIX-424A-B968-001F) 316 @{{CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-VMS-424A-B968-001F) 316 @}}CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-VMS-424A-B968-001F) 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 @{{CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-VMS-424A-B968-001F) 316 @}}CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-VMS-424A-B968-001F) 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 @{{CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Init-NT-424A-B968-001F) 337 @}}CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Init-NT-424A-B968-001F) 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 337 @{{CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Init-NT-424A-B968-001F) 337 @}}CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Init-NT-424A-B968-001F) 338 @{{CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Init-Post-424A-B968-001F) 338 @}}CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Init-Post-424A-B968-001F) 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 338 @{{CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Init-Post-424A-B968-001F) 338 @}}CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Init-Post-424A-B968-001F) 339 @{{CUSTOM_CODE_START(DeleteNTHomeDir-13-Script-Init-Pre-421F-09BA-033C) 339 @}}CUSTOM_CODE_START(DeleteNTHomeDir-13-Script-Init-Pre-421F-09BA-033C) 339 @{{CUSTOM_CODE_FINISH(DeleteNTHomeDir-13-Script-Init-Pre-421F-09BA-033C) 339 @}}CUSTOM_CODE_FINISH(DeleteNTHomeDir-13-Script-Init-Pre-421F-09BA-033C) 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 @{{CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Init-UNIX-424A-B968-001F) 340 @}}CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Init-UNIX-424A-B968-001F) 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 @{{CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Init-UNIX-424A-B968-001F) 340 @}}CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Init-UNIX-424A-B968-001F) 341 @{{CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Init-VMS-424A-B968-001F) 341 @}}CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Init-VMS-424A-B968-001F) 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 341 @{{CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Init-VMS-424A-B968-001F) 341 @}}CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Init-VMS-424A-B968-001F) 350 @{{CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Controls-424A-B968-001F) 350 @}}CUSTOM_CODE_START(ModifyNTUserGroups-14-Script-Controls-424A-B968-001F) 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 350 @{{CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Controls-424A-B968-001F) 350 @}}CUSTOM_CODE_FINISH(ModifyNTUserGroups-14-Script-Controls-424A-B968-001F) 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SV 343 15794175 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # 317 ZZ 343 16777215 323 344 332 347 000 333 334 0 324 0 329 Hidden 335 0 348 1 349 1 357 318 320 0 319 @F@ # @M@ # 311 RemoveNTUserGroups 313 0 336 325 0 345 0 346 0 358 # 321 1 322 16 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 @{{CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Fields-424A-B968-001F) 330 @}}CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Fields-424A-B968-001F) 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # check that the requested Agent is a recognised agent 330 # 330 330 use Time::localtime; 330 330 print "\@{{PAGE_HIDE Hidden \n"; 330 330 #include SAcM_WarGetParams 330 #include SAcM_WarValidAgent 330 #include SAcM_WarUpdateResults 330 330 WARValidateAgent(); 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SV : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 330 330 330 @{{CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Fields-424A-B968-001F) 330 @}}CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Fields-424A-B968-001F) 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 @{{CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-NT-424A-B968-001F) 314 @}}CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-NT-424A-B968-001F) 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 use Sysgem; 314 314 # 314 # Remove user from *ALL* groups (except primary group) 314 # 314 314 if (ActiveDirectoryEnabled() == 1 && $forceSAM != 1) 314 { 314 my @fields = (); 314 my @values = (); 314 my $error = ""; 314 my $status = ""; 314 my $filter = "(objectClass=user)(objectCategory=person)(sAMAccountName=$ENTRY_UN)"; 314 my $field_list = "distinguishedName"; 314 314 $status = Sysgem::LDAPGetEntriesEx($filter, 314 $field_list, 314 \@fields, 314 \@values, 314 $error); 314 314 314 my $dn = $values[0]; 314 314 print "# Fetching Distinguished Name:\n"; 314 print "# Status ...: $status\n"; 314 print "# Error ....: $error\n"; 314 print "# DN .......: $dn\n"; 314 314 if ($status != 0) 314 { 314 print "\@{{SE Error fetching user's distinguished name: $error\n"; 314 exit; 314 } 314 314 if ($dn eq "") 314 { 314 print "\@{{SE Error fetching user's distinguished name: user '$ENTRY_UN' not found\n"; 314 exit; 314 } 314 314 $filter = "(objectClass=group)(member=$dn)"; 314 @values = (); 314 @fields = (); 314 314 $status = Sysgem::LDAPGetEntriesEx($filter, 314 $field_list, 314 \@fields, 314 \@values, 314 $error); 314 314 print "# Fetching group list:\n"; 314 print "# Status ...: $status\n"; 314 print "# Error ....: $error\n"; 314 314 my @none = (), @user = ($ENTRY_UN); 314 314 for (my $idx = 0; $idx < @fields; $idx++) 314 { 314 next unless $fields[$idx] eq "distinguishedName"; 314 314 my $grp_dn = $values[$idx]; 314 314 $status = Sysgem::LDAPSetGroupMembers($grp_dn, \@none, \@user, $error); 314 printf("# Status ...: %d\n", $status); 314 printf("# Error ....: %s\n", $error); 314 314 if ($status != 1) 314 { 314 print "\@{{SE Error removing user from group $grp_dn: $error\n"; 314 } 314 } 314 } 314 else 314 { 314 my @globalGroups = (); 314 my @localGroups = (); 314 my @errors = (); 314 314 Sysgem::SetAccountGlobalGroups($ENTRY_UN, \@globalGroups, \@errors); 314 Sysgem::SetAccountLocalGroups($ENTRY_UN, \@localGroups, \@errors); 314 314 for (@errors) { print "\@{{SE $_\n"; } 314 } 314 @{{CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-NT-424A-B968-001F) 314 @}}CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-NT-424A-B968-001F) 326 @{{CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Post-424A-B968-001F) 326 @}}CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Post-424A-B968-001F) 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarGetParams 326 326 # 326 # Read the command parameters extracted from the WAR DB 326 # 326 %Params = (); 326 $count = GetWarParams(\%Params); 326 326 print "number of parameters found = [$count]\n"; 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 326 326 #include SAcM_Options_Cache 326 #include SAcM_Tokens 326 326 #include SAcM_Logfile 326 #include SAcM_Common_Date_Routines 326 326 326 # 326 # Construct an Audit Sequence Number 326 # 326 my $AudSeq = AuditSeqNumber() . " (WAR)"; 326 326 # 326 # Add logfile entry. 326 # 326 UMLogAddAccount($SysgemComputer, 326 $SysgemUsername, 326 $Params{"Username"}, 326 "All group memberships removed", 326 $SERVER_TYPE, 326 $SERVER_NAME, 326 "Audit Seq. No..: $AudSeq"); 326 326 @{{CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Post-424A-B968-001F) 326 @}}CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Post-424A-B968-001F) 327 @{{CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Pre-424A-B968-001F) 327 @}}CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Pre-424A-B968-001F) 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Should we abort the transaction as a result of output from the fields script? 327 # 327 if ($INPUT_ZZ eq "ABORT") 327 { 327 print "\@{{ABORT\n"; 327 exit; 327 } 327 327 # 327 # Read the command parameters extracted from the WAR DB 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Simulate a 'Selected' user account 327 # 327 print "\@{{ADD_SVR \$ENTRY_UN = \"" . $Params{"Username"} . "\";\n"; 327 @{{CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Pre-424A-B968-001F) 327 @}}CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Pre-424A-B968-001F) 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 @{{CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-UNIX-424A-B968-001F) 315 @}}CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-UNIX-424A-B968-001F) 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 @{{CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-UNIX-424A-B968-001F) 315 @}}CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-UNIX-424A-B968-001F) 316 @{{CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-VMS-424A-B968-001F) 316 @}}CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-VMS-424A-B968-001F) 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 @{{CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-VMS-424A-B968-001F) 316 @}}CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-VMS-424A-B968-001F) 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 @{{CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Init-NT-424A-B968-001F) 337 @}}CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Init-NT-424A-B968-001F) 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 337 @{{CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Init-NT-424A-B968-001F) 337 @}}CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Init-NT-424A-B968-001F) 338 @{{CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Init-Post-424A-B968-001F) 338 @}}CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Init-Post-424A-B968-001F) 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 338 @{{CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Init-Post-424A-B968-001F) 338 @}}CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Init-Post-424A-B968-001F) 339 @{{CUSTOM_CODE_START(DeleteNTHomeDir-13-Script-Init-Pre-421F-09BA-033C) 339 @}}CUSTOM_CODE_START(DeleteNTHomeDir-13-Script-Init-Pre-421F-09BA-033C) 339 @{{CUSTOM_CODE_FINISH(DeleteNTHomeDir-13-Script-Init-Pre-421F-09BA-033C) 339 @}}CUSTOM_CODE_FINISH(DeleteNTHomeDir-13-Script-Init-Pre-421F-09BA-033C) 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 @{{CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Init-UNIX-424A-B968-001F) 340 @}}CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Init-UNIX-424A-B968-001F) 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 @{{CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Init-UNIX-424A-B968-001F) 340 @}}CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Init-UNIX-424A-B968-001F) 341 @{{CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Init-VMS-424A-B968-001F) 341 @}}CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Init-VMS-424A-B968-001F) 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 341 @{{CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Init-VMS-424A-B968-001F) 341 @}}CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Init-VMS-424A-B968-001F) 350 @{{CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Controls-424A-B968-001F) 350 @}}CUSTOM_CODE_START(RemoveNTUserGroups-14-Script-Controls-424A-B968-001F) 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 350 @{{CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Controls-424A-B968-001F) 350 @}}CUSTOM_CODE_FINISH(RemoveNTUserGroups-14-Script-Controls-424A-B968-001F) 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SV 343 15794175 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # 317 ZZ 343 16777215 323 344 332 347 000 333 334 0 324 0 329 Hidden 335 0 348 1 349 1 357 318 320 0 319 @F@ # @M@ # 311 - 313 0 336 325 0 345 0 346 0 358 # 321 1 322 17 # 312 312

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # @M@ # 311 RevokeAllShareAccess 313 0 336 325 0 345 0 346 0 358 # 321 1 322 18 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 @{{CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Fields-424A-B968-001F) 330 @}}CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Fields-424A-B968-001F) 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 #include SAcM_WarGetParams 330 330 # 330 # check that the requested Agent is a recognised agent 330 # 330 330 use Time::localtime; 330 330 print "\@{{PAGE_HIDE Hidden \n"; 330 330 #include SAcM_WarGetParams 330 #include SAcM_WarValidAgent 330 #include SAcM_WarUpdateResults 330 330 WARValidateAgent(); 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SV : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 330 330 330 @{{CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Fields-424A-B968-001F) 330 @}}CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Fields-424A-B968-001F) 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 @{{CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-NT-424A-B968-001F) 314 @}}CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-NT-424A-B968-001F) 314 # 314 # Customisation for Organon 314 # 314 314 my $ExcludeRootDir = 1; # phase 1 of Organon does not use the RootDirectory field in the ShareInfo table 314 314 # 314 # End of customisation for Organon 314 # 314 314 #++++++++++++++++++++++++++++++++++ 314 # | 314 # Windows NT script (PERL). | 314 # | 314 #++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the server. It returns 314 # the values shown in the display window. 314 # 314 # 314 use Carp; 314 use Sysgem; 314 use Time::localtime; 314 314 #include SAcM_ShareMgmt_Common 314 314 # 314 # Logfile routines. 314 # 314 #include SAcM_Logfile 314 314 if ($AGENT_DEF_CNTX eq "") 314 { 314 # 314 # Make sure the database exists. 314 # 314 if ($INPUT_DS ne "") 314 { 314 DefineDatabase($INPUT_DS); 314 } 314 314 # 314 # specify the match string. 314 # 314 my $search = ""; 314 314 if (length($INPUT_TX)) 314 { 314 # 314 # Fix input text string. 314 # 314 my $text = ""; 314 314 # 314 # Exact match on username. 314 # 314 $text = ShareFixSQLWhere(0, $INPUT_TX); 314 $search = "[UserName] = '$text'"; # Exact. 314 } 314 314 $INPUT_TX = Sysgem::TrimLeftRight($INPUT_TX); 314 314 #++ 314 # 314 # Get the LANGrants entries. 314 # 314 #-- 314 my $error = ""; 314 my $status = 0; 314 my %va_langrants = (); 314 my %shareinfo = (); 314 314 $status = Sysgem::ODBCAllRecords(SHR_DB_DSN, 314 "", 314 DB_TABLE_LANGRANTS, 314 $search, 314 "", 314 \%va_langrants, 314 $error); 314 314 if ($status != 1) 314 { 314 ReportError(SHR_DB_DSN, "Unable to read " . DB_TABLE_LANGRANTS, $error); 314 die; 314 } 314 314 314 #++ 314 # 314 # Find the server name (and other ShareInfo data) for 314 # each LANGrants entry found 314 # 314 #-- 314 foreach my $key (keys %va_langrants) 314 { 314 my $ShareName = $va_langrants{$key}{"[ShareName]"}; 314 my $search = "[ShareName] = '$ShareName'"; 314 314 # 314 # Get shareinfo for this LANGrants entry. 314 # 314 my %va_shareinfo = (); 314 $status = Sysgem::ODBCAllRecords(SHR_DB_DSN, 314 "", 314 DB_TABLE_SHAREINFO, 314 $search, 314 "", 314 \%va_shareinfo, 314 $error); 314 314 if ($status != 1) 314 { 314 ReportError(SHR_DB_DSN, "Unable to read " . DB_TABLE_SHAREINFO, $error); 314 die; 314 } 314 314 # 314 # There should only be one entry for each sharename 314 # 314 if (exists($va_shareinfo{"0"}{"[ShareName]"})) 314 { 314 $shareinfo{$ShareName}{"Server"} = $va_shareinfo{"0"}{"[Server]"}; 314 $shareinfo{$ShareName}{"Manager"} = $va_shareinfo{"0"}{"[Manager]"}; 314 $shareinfo{$ShareName}{"BManager"} = $va_shareinfo{"0"}{"[BManager]"}; 314 $shareinfo{$ShareName}{"Badge"} = $va_shareinfo{"0"}{"[Badge]"}; 314 $shareinfo{$ShareName}{"DriveLetter"} = $va_shareinfo{"0"}{"[DriveLetter]"}; 314 $shareinfo{$ShareName}{"Description"} = $va_shareinfo{"0"}{"[Description]"}; 314 $shareinfo{$ShareName}{"RootDirectory"} = $va_shareinfo{"0"}{"[RootDirectory]"}; # not used in Phase 1 314 } 314 } 314 314 314 #++ 314 # 314 # Return Langrants info together with Share info. 314 # 314 #-- 314 foreach $key (keys %va_langrants) 314 { 314 my $ShareName = $va_langrants{$key}{"[ShareName]"}; 314 314 my $INPUT_WI = $ShareName; 314 my $INPUT_SV = $shareinfo{$ShareName}{"Server"}; 314 my $INPUT_WN = $va_langrants{$key}{"[GroupName]"}; 314 my $INPUT_KE = $va_langrants{$key}{"[DomainName]"}; 314 my $INPUT_UN = $va_langrants{$key}{"[UserName]"}; 314 314 #++ 314 # 314 # Get the Application prefix from the share name 314 # 314 #-- 314 my $Prefix = ""; 314 314 if ($INPUT_WI =~ m/\$/) 314 { 314 ($Prefix) = split(/\$/, $INPUT_WI); 314 } 314 314 #++ 314 # 314 # Expand the group name 314 # 314 #-- 314 my $group = $INPUT_WN; 314 if ($INPUT_WN !~ m/\$/) 314 { 314 $group = $Prefix . "\$" . $INPUT_WN; 314 } 314 314 my $user = $INPUT_KE . "\\" . $INPUT_UN; 314 314 print "\@{{ADD_AGENT_NEXT $INPUT_SV AGENT_CONTEXT=$user,$group\n"; 314 314 # 314 # Modified date/time 314 # 314 my $tm = localtime; 314 my $changedate = sprintf("%04d%02d%02d", 314 ($tm->year)+1900, 314 ($tm->mon)+1, 314 ($tm->mday) ); 314 314 # 314 # Update the ShareMgt DB 314 # 314 my @fields = (); 314 my @values = (); 314 314 # 314 # LANGrants record. 314 # 314 @fields = (); 314 @values = (); 314 314 my $filter = "([ShareName] = '$INPUT_WI') AND ([UserName] = '$INPUT_UN') AND " . 314 "([GroupName] = '$INPUT_WN') AND ([DomainName] = '$INPUT_KE')"; 314 314 $error = ""; 314 $status = 0; 314 314 # 314 # Now remove the LANGrants record 314 # 314 print "\@{{SI Deleting $filter\n"; 314 314 my $status = Sysgem::ODBCDeleteAllRecordsFromTable(SHR_DB_DSN, 314 "", 314 DB_TABLE_LANGRANTS, 314 $filter, 314 $error); 314 if ($status != 1 && $status != "") 314 { 314 print "\@{{SE Error removing LAN_Grants -\n"; 314 print "\@{{SE ShareName: $INPUT_WI\n"; 314 print "\@{{SE User: $INPUT_UN \n"; 314 print "\@{{SE Domain: $INPUT_KE \n"; 314 print "\@{{SE Group: $INPUT_WN \n"; 314 print "\@{{SE $error\n"; 314 print "\@{{SE error status: $status\n"; 314 } 314 else 314 { 314 print "\@{{SI LAN_Grants record \"$INPUT_WI\", \"$INPUT_WN\", \"$INPUT_UN\"removed successfully from ShareMgt DB\n"; 314 } 314 314 # 314 # Update the Audit Trail 314 # 314 UMLogAddAccount($SysgemComputer, 314 $SysgemUsername, 314 $INPUT_WI, 314 "Remove Access to Share", 314 "Share Management", 314 $SERVER_NAME, 314 314 "ShareName ...........: $INPUT_WI", 314 "Server ..............: $INPUT_SV", 314 "Application Ref .....: $INPUT_BN", 314 "Group ...............: $INPUT_WN", 314 "Drive ...............: $INPUT_WU", 314 "Directory ...........: $INPUT_WK", 314 "Group ...............: $INPUT_WN", 314 "Access Rights .......: $INPUT_WO", 314 "Manager .............: $INPUT_WP", 314 "Backup Manager ......: $INPUT_WR", 314 "Domain ..............: $INPUT_KE", 314 "Description .........: $INPUT_WV" ); 314 } 314 } 314 else 314 { 314 my ($user, $group) = split /,/, $AGENT_DEF_CNTX; 314 314 #++ 314 # 314 # Check whether the group exists - reject it if it doesn't 314 # 314 #-- 314 my $TmpFile = "ShareMgrGpTmp.txt"; 314 314 system "net localgroup > $TmpFile"; 314 314 open (OP, "< $TmpFile") || die "Error opening $TmpFile: $!"; 314 314 my $FoundIt = 0; 314 314 while() 314 { 314 my @grps = split(/\*/, $_); 314 314 foreach my $grp (@grps) 314 { 314 $grp = Sysgem::TrimLeftRight($grp); 314 if ($grp eq $group) 314 { 314 $FoundIt = 1; 314 last; 314 } 314 } 314 } 314 314 close(OP); 314 unlink $TmpFile; 314 314 if ($FoundIt == 0) 314 { 314 # 314 # it failed - there is no group with this name 314 # 314 print "\@{{SE Error: Group: $group does not exists\n"; 314 314 exit (0); 314 } 314 314 $type = "local"; 314 $error = ""; 314 314 print "\@{{SI Removing $user from local group: $group\n"; 314 314 my $status = Sysgem::DeleteUserFromGroup($group, $type, $user, $error); 314 314 print "Status = [$status]\n"; 314 print "error = [$error]\n"; 314 314 if ($status != 1) 314 { 314 print "\@{{SE Failed to remove user from group\n"; 314 print "\@{{SE $error\n"; 314 } 314 else 314 { 314 # 314 # All done 314 # 314 314 print "\@{{SI Action complete\n"; 314 } 314 } 314 314 #___________________ 314 # 314 # Subroutines 314 #___________________ 314 # 314 314 # 314 # Report errors here. 314 # 314 sub ReportError 314 { 314 $title = $_[0]; 314 $line1 = $_[1]; 314 $line2 = $_[2]; 314 314 print "\@{{SE $title\n", 314 print "\@{{SE $line1 -\n"; 314 print "\@{{SE $line2\n"; 314 print "\@{{SE For first time use on this server, or to re-create a new database...\n"; 314 print "\@{{SE select \"Define Database\" from the \"Options\" menu.\n"; 314 } 314 @{{CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-NT-424A-B968-001F) 314 @}}CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-NT-424A-B968-001F) 326 @{{CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Post-424A-B968-001F) 326 @}}CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Post-424A-B968-001F) 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 326 use Time::localtime; 326 326 #include SAcM_WarGetParams 326 326 # 326 # Read the command parameters extracted from the WAR DB 326 # 326 %Params = (); 326 $count = GetWarParams(\%Params); 326 326 print "number of parameters found = [$count]\n"; 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 326 326 #include SAcM_Common_Date_Routines 326 #include SAcM_Options_Cache 326 #include SAcM_Logfile 326 326 if ($AGENT_DEF_CNTX ne "") 326 { 326 my ($user, $group) = split /,/, $AGENT_DEF_CNTX; 326 # 326 # Construct an Audit Sequence Number 326 # 326 my $AudSeq = AuditSeqNumber() . " (WAR)"; 326 326 # 326 # Add logfile entry. 326 # 326 UMLogAddAccount($SysgemComputer, 326 $SysgemUsername, 326 $Params{"Username"}, 326 "Share Access Revoked", 326 $SERVER_TYPE, 326 $SERVER_NAME, 326 "Audit Seq. No..: $AudSeq", 326 "Server ........: $SERVER_NAME", 326 "User ..........: $user", 326 "Group .........: $group"); 326 } 326 @{{CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Post-424A-B968-001F) 326 @}}CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Post-424A-B968-001F) 327 @{{CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Pre-424A-B968-001F) 327 @}}CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Pre-424A-B968-001F) 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 # 327 # Should we abort the transaction as a result of output from the fields script? 327 # 327 if ($INPUT_ZZ eq "ABORT") 327 { 327 print "\@{{ABORT\n"; 327 exit; 327 } 327 327 # 327 # Read the command parameters extracted from the WAR DB 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Simulate a 'Selected' user account 327 # 327 $Params{"DatabasePath"} =~ s/\\/\\\\/g; 327 print "\@{{ADD_SVR \$INPUT_TX = \"" . $Params{"Username"} . "\";\n"; 327 print "\@{{ADD_SVR \$INPUT_DS = \"" . $Params{"DatabasePath"} . "\";\n"; 327 @{{CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Pre-424A-B968-001F) 327 @}}CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Pre-424A-B968-001F) 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 @{{CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-UNIX-424A-B968-001F) 315 @}}CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-UNIX-424A-B968-001F) 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 @{{CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-UNIX-424A-B968-001F) 315 @}}CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-UNIX-424A-B968-001F) 316 @{{CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-VMS-424A-B968-001F) 316 @}}CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-VMS-424A-B968-001F) 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 @{{CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-VMS-424A-B968-001F) 316 @}}CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-VMS-424A-B968-001F) 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 @{{CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Init-NT-424A-B968-001F) 337 @}}CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Init-NT-424A-B968-001F) 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 337 @{{CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Init-NT-424A-B968-001F) 337 @}}CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Init-NT-424A-B968-001F) 338 @{{CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Init-Post-424A-B968-001F) 338 @}}CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Init-Post-424A-B968-001F) 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 338 @{{CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Init-Post-424A-B968-001F) 338 @}}CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Init-Post-424A-B968-001F) 339 @{{CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Init-Pre-424A-B968-001F) 339 @}}CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Init-Pre-424A-B968-001F) 339 @{{CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Init-Pre-424A-B968-001F) 339 @}}CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Init-Pre-424A-B968-001F) 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 @{{CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Init-UNIX-424A-B968-001F) 340 @}}CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Init-UNIX-424A-B968-001F) 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 @{{CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Init-UNIX-424A-B968-001F) 340 @}}CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Init-UNIX-424A-B968-001F) 341 @{{CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Init-VMS-424A-B968-001F) 341 @}}CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Init-VMS-424A-B968-001F) 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 341 @{{CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Init-VMS-424A-B968-001F) 341 @}}CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Init-VMS-424A-B968-001F) 350 @{{CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Controls-424A-B968-001F) 350 @}}CUSTOM_CODE_START(RevokeAllShareAccess-16-Script-Controls-424A-B968-001F) 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 350 @{{CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Controls-424A-B968-001F) 350 @}}CUSTOM_CODE_FINISH(RevokeAllShareAccess-16-Script-Controls-424A-B968-001F) 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SV 343 15794175 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # 317 ZZ 343 16777215 323 344 332 347 000 333 334 0 324 0 329 Hidden 335 0 348 1 349 1 357 318 320 0 319 @F@ # @M@ # 311 CreateUNIXAccount 313 0 336 325 0 345 0 346 0 358 # 321 2 322 1 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 330 @{{CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Fields-421E-F14C-034D) 330 @}}CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Fields-421E-F14C-034D) 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # check that the requested Agent is a recognised agent 330 # 330 330 use Time::localtime; 330 330 print "\@{{PAGE_HIDE Hidden \n"; 330 330 #include SAcM_WarGetParams 330 #include SAcM_WarValidAgent 330 #include SAcM_WarUpdateResults 330 330 WARValidateAgent(); 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SV : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 330 330 330 @{{CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Fields-421E-F14C-034D) 330 @}}CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Fields-421E-F14C-034D) 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 @{{CUSTOM_CODE_START(CreateUNIXAccount-12-Script-NT-421E-F14C-034D) 314 @}}CUSTOM_CODE_START(CreateUNIXAccount-12-Script-NT-421E-F14C-034D) 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 @{{CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-NT-421E-F14C-034D) 314 @}}CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-NT-421E-F14C-034D) 326 @{{CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Post-421E-F14C-034D) 326 @}}CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Post-421E-F14C-034D) 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarGetParams 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 326 326 # 326 # Read the parameters 326 # 326 %Params = (); 326 $count = GetWarParams(\%Params); 326 326 $INPUT_UN = $Params{"Username"}; 326 $INPUT_PW = $Params{"Password"}; 326 $INPUT_ON = $Params{"Owner"}; 326 $INPUT_GR = $Params{"PrimaryGroup"}; 326 $INPUT_SG = $Params{"SecondaryGroup"}; 326 $INPUT_ON = $Params{"Gecos"}; 326 $INPUT_BD = $Params{"BaseDirectory"}; 326 $INPUT_UD = $Params{"HomeDirectory"}; 326 $INPUT_UL = $Params{"CreateHomeDirectory"}; 326 $INPUT_ID = $Params{"UID"}; 326 $INPUT_SH = $Params{"Shell"}; 326 $INPUT_SK = $Params{"Skeleton"}; 326 326 $AddSubscPtr = $Params{"AddSubscriberPointer"}; 326 $SubscBadge = $Params{"SubscriberBadgeNo"}; 326 326 # 326 # Now update the Audit Trail & Subscriber DB 326 # 326 326 #include SAcM_Options_Cache 326 #include SAcM_Tokens 326 326 #include SAcM_Logfile 326 #include SAcM_Common_Date_Routines 326 326 # 326 # Construct an Audit Sequence Number 326 # 326 my $AudSeq = AuditSeqNumber() . " (WAR)"; 326 326 #include SAcM_MPC_Post_Process_2 326 326 # 326 # Add the pointer to the Subscriber DB 326 # 326 use Sysgem; 326 use Time::localtime; 326 use constant Subsc_DSN => "Sysgem Subscriber DB"; 326 use constant DB_TABLE_ACCOUNT => "TABLE_ACCOUNT"; 326 use constant DB_TABLE_APPLICATION => "TABLE_APPLICATION"; 326 use constant DB_TABLE_PERSON => "TABLE_PEOPLE"; 326 326 if ($AddSubscPtr) 326 { 326 my @fields = (); 326 my @values = (); 326 326 # 326 # Add record. 326 # 326 my $tm = localtime; 326 my $created = sprintf("%04d-%02d-%02d %02d:%02d:%02d", 326 ($tm->year)+1900, 326 ($tm->mon)+1, 326 ($tm->mday), 326 $tm->hour, 326 $tm->min, 326 $tm->sec); 326 326 push(@fields, "FLD_CREATED"); push(@values, $created); 326 push(@fields, "FLD_OWNER"); push(@values, $SubscBadge); 326 push(@fields, "FLD_COMPUTER"); push(@values, $SERVER_NAME); 326 push(@fields, "FLD_ACCOUNT"); push(@values, $INPUT_UN); 326 push(@fields, "FLD_COMMENT"); push(@values, "Added by WAR Process Requests"); 326 push(@fields, ""); push(@values, ""); 326 326 my $error = ""; 326 my $status = 0; 326 326 $status = Sysgem::ODBCAddRecord(Subsc_DSN, 326 "", 326 DB_TABLE_ACCOUNT, 326 \@fields, 326 \@values, 326 $error); 326 326 # 326 # If there was an error then add an entry to the logfile. Prefix all 326 # text with a # so that it doesn't interfere with anything sent to the 326 # output display. 326 # 326 if ($status != 1) 326 { 326 my @WarnMsg = ("Error adding Subscriber Pointer",$error,); 326 326 WriteWarResults(\@WarnMsg, "Warning"); 326 } 326 } 326 326 @{{CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Post-421E-F14C-034D) 326 @}}CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Post-421E-F14C-034D) 327 @{{CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Pre-421E-F14C-034D) 327 @}}CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Pre-421E-F14C-034D) 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Should we abort the transaction as a result of output from the fields script? 327 # 327 if ($INPUT_ZZ eq "ABORT") 327 { 327 print "\@{{ABORT\n"; 327 exit; 327 } 327 327 # 327 # Read the parameters 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Create a hash defining all the parameter types that 327 # exist with this command 327 # 327 # (Indicate the INPUT variable names used by the target script). 327 # 327 my %ParamDefs = ( Username => { Input => "INPUT_UN" }, 327 Password => { Input => "INPUT_PW" }, 327 Owner => { Input => "INPUT_ON" }, 327 PrimaryGroup => { Input => "INPUT_GR" }, 327 SecondaryGroup => { Input => "INPUT_SG" }, 327 Gecos => { Input => "INPUT_ON" }, 327 BaseDirectory => { Input => "INPUT_BD" }, 327 HomeDirectory => { Input => "INPUT_UD" }, 327 CreateHomeDirectory => { Input => "INPUT_UL" }, 327 UID => { Input => "INPUT_ID" }, 327 Shell => { Input => "INPUT_SH" }, 327 Skeleton => { Input => "INPUT_SK" } 327 ); 327 327 # 327 # Update the target script with 327 # the input field values 327 # 327 UpdateTargetScript(\%ParamDefs, \%Params, "UNIX", "NoChanges"); 327 327 # 327 # Handle any special Parameter fields 327 # 327 # Account Type 327 # (0 = local, 1 = NIS) 327 # 327 my $at = 0; # default = local 327 327 if (exists($Params{"AccountType"})) 327 { 327 $at = $Params{"AccountType"}; 327 } 327 print "\@{{ADD_SVR INPUT_AT=\"$at\"\n"; 327 327 @{{CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Pre-421E-F14C-034D) 327 @}}CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Pre-421E-F14C-034D) 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 @{{CUSTOM_CODE_START(CreateUNIXAccount-12-Script-UNIX-421E-F14C-034D) 315 @}}CUSTOM_CODE_START(CreateUNIXAccount-12-Script-UNIX-421E-F14C-034D) 315 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 #set -v 315 315 #include SAcM_Create_UNIX_Account 315 315 CreateFullAccount "${INPUT_AT}" "${INPUT_UN}" "${INPUT_ON}" "${INPUT_GR}" "${INPUT_SG}" "${INPUT_ID}" "${INPUT_BD}" "${INPUT_SH}" "" "" "${INPUT_PW}" "${INPUT_UD}" 315 315 @{{CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-UNIX-421E-F14C-034D) 315 @}}CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-UNIX-421E-F14C-034D) 316 @{{CUSTOM_CODE_START(CreateUNIXAccount-12-Script-VMS-421E-F14C-034D) 316 @}}CUSTOM_CODE_START(CreateUNIXAccount-12-Script-VMS-421E-F14C-034D) 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 @{{CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-VMS-421E-F14C-034D) 316 @}}CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-VMS-421E-F14C-034D) 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 @{{CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Init-NT-421E-F14C-034D) 337 @}}CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Init-NT-421E-F14C-034D) 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 337 @{{CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Init-NT-421E-F14C-034D) 337 @}}CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Init-NT-421E-F14C-034D) 338 @{{CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Init-Post-421E-F14C-034D) 338 @}}CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Init-Post-421E-F14C-034D) 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 338 @{{CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Init-Post-421E-F14C-034D) 338 @}}CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Init-Post-421E-F14C-034D) 339 @{{CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Init-Pre-421E-F14C-034D) 339 @{{CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Init-Pre-421E-F14C-034D) 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 @{{CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Init-UNIX-421E-F14C-034D) 340 @}}CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Init-UNIX-421E-F14C-034D) 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 @{{CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Init-UNIX-421E-F14C-034D) 340 @}}CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Init-UNIX-421E-F14C-034D) 341 @{{CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Init-VMS-421E-F14C-034D) 341 @}}CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Init-VMS-421E-F14C-034D) 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 341 @{{CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Init-VMS-421E-F14C-034D) 341 @}}CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Init-VMS-421E-F14C-034D) 350 @{{CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Controls-421E-F14C-034D) 350 @}}CUSTOM_CODE_START(CreateUNIXAccount-12-Script-Controls-421E-F14C-034D) 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 350 @{{CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Controls-421E-F14C-034D) 350 @}}CUSTOM_CODE_FINISH(CreateUNIXAccount-12-Script-Controls-421E-F14C-034D) 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SV 343 15794175 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # 317 ZZ 343 16777215 323 344 332 347 000 333 334 0 324 0 329 Hidden 335 0 348 1 349 1 357 318 320 0 319 @F@ # @M@ # 311 DeleteUNIXAccount 313 0 336 325 0 345 0 346 0 358 # 321 2 322 2 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 @{{CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Fields-421E-F14C-034D) 330 @}}CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Fields-421E-F14C-034D) 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 330 # 330 # check that the requested Agent is a recognised agent 330 # 330 330 use Time::localtime; 330 330 print "\@{{PAGE_HIDE Hidden \n"; 330 330 #include SAcM_WarGetParams 330 #include SAcM_WarValidAgent 330 #include SAcM_WarUpdateResults 330 330 WARValidateAgent(); 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SV : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 330 330 330 @{{CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Fields-421E-F14C-034D) 330 @}}CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Fields-421E-F14C-034D) 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 @{{CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-NT-421E-F14C-034D) 314 @}}CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-NT-421E-F14C-034D) 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 @{{CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-NT-421E-F14C-034D) 314 @}}CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-NT-421E-F14C-034D) 326 @{{CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Post-421E-F14C-034D) 326 @}}CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Post-421E-F14C-034D) 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarGetParams 326 326 # 326 # Read the command parameters extracted from the WAR DB 326 # 326 %Params = (); 326 $count = GetWarParams(\%Params); 326 326 #include SAcM_Options_Cache 326 #include SAcM_Tokens 326 326 #include SAcM_Logfile 326 #include SAcM_Common_Date_Routines 326 326 UMLogAddAccountModify($Params{"Username"}, \@script_output); 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 326 @{{CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Post-421E-F14C-034D) 326 @}}CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Post-421E-F14C-034D) 327 @{{CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Pre-421E-F14C-034D) 327 @}}CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Pre-421E-F14C-034D) 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Should we abort the transaction as a result of output from the fields script? 327 # 327 if ($INPUT_ZZ eq "ABORT") 327 { 327 print "\@{{ABORT\n"; 327 exit; 327 } 327 327 # 327 # Read the parameters from the display window 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Simulate a 'Selected' user account 327 # 327 my $user = $Params{"Username"}; 327 print "\@{{ADD_SVR ENTRY_UN=\"$user\"\n"; # Username 327 327 # 327 # ________________________________________ 327 # 327 # Now add the input fields to the target 327 # script and show the fields have changed 327 # ________________________________________ 327 # 327 327 # 327 # 1st. create a hash defining all the parameter types that exist with this command 327 # and show what variable names are used in the target script to hold the input 327 # field value and to show that the field has changed. 327 # 327 my %ParamDefs = ( NewUsername => { Input => "INPUT_UN", Changed => "INPUT_ZL", Before => "before_UN" }, 327 Password => { Input => "INPUT_PW", Changed => "INPUT_ZP", Before => "before_PW" }, 327 PrimaryGroup => { Input => "INPUT_GR", Changed => "INPUT_ZG", Before => "before_GR" }, 327 SecondaryGroup => { Input => "INPUT_SG", Changed => "INPUT_ZA", Before => "before_SG" }, 327 UID => { Input => "INPUT_UI", Changed => "INPUT_ZU", Before => "before_UI" }, 327 HomeDirectory => { Input => "INPUT_DD", Changed => "INPUT_ZD", Before => "before_DD" }, 327 Gecos => { Input => "INPUT_ON", Changed => "INPUT_ZC", Before => "before_ON" }, 327 Shell => { Input => "INPUT_SH", Changed => "INPUT_ZS", Before => "before_SH" }, 327 Expiry => { Input => "INPUT_EX", Changed => "INPUT_ZX", Before => "before_EX" } 327 ); 327 327 # 327 # Update the target script with 327 # the input field values 327 # 327 UpdateTargetScript(\%ParamDefs, \%Params, "UNIX", "ShowChanges"); 327 327 # 327 # Handle any special Parameter fields 327 # 327 # Account Type 327 # (0 = local, 1 = NIS) 327 # 327 my $at = 0; # default = local 327 327 if (exists($Params{"AccountType"})) 327 { 327 $zt = $Params{"AccountType"}; 327 } 327 print "\@{{ADD_SVR INPUT_ZT=\"$zt\"\n"; 327 327 327 # 327 # Duplicate ID? 327 # 327 if (exists($Params{"DuplicateID"})) 327 { 327 my $du = $Params{"DuplicateID"}; 327 print "\@{{ADD_SVR INPUT_DU=\"$du\"\n"; 327 } 327 327 327 # 327 # Move Directory? 327 # 327 if (exists($Params{"MoveDirectory"})) 327 { 327 my $mo = $Params{"MoveDirectory"}; 327 print "\@{{ADD_SVR INPUT_MO=\"$mo\"\n"; 327 } 327 @{{CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Pre-421E-F14C-034D) 327 @}}CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Pre-421E-F14C-034D) 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 @{{CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-UNIX-421E-F14C-034D) 315 @}}CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-UNIX-421E-F14C-034D) 315 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 set -v 315 315 #include SAcM_Modify_UNIX_Account 315 315 315 # 315 # Modify an account 315 # 315 # Input: Account-Type, 315 315 # New-Username, 315 # New-Comment, 315 # New-Group, 315 # New-Sec-Group, 315 # New-Id, 315 # New-Home-dir, 315 # New-Shell, 315 # New-Password, 315 # New-Expiry, 315 # Dupe-Id, 315 # Move-Dir, 315 # Existing Username, 315 # Change-Username, 315 # Change-Comment, 315 # Change-Group, 315 # Change-Sec-Group, 315 # Change-Id, 315 # Change-Home-Dir, 315 # Change-Shell 315 # Change-Password 315 # Change-Expiry 315 # 315 ModifyAccount "${INPUT_ZT}" \ 315 "${INPUT_UN}" \ 315 "${INPUT_ON}" \ 315 "${INPUT_GR}" \ 315 "${INPUT_SG}" \ 315 "${INPUT_UI}" \ 315 "${INPUT_DD}" \ 315 "${INPUT_SH}" \ 315 "${INPUT_PW}" \ 315 "${INPUT_EX}" \ 315 "${INPUT_DU}" \ 315 "${INPUT_MO}" \ 315 "${ENTRY_UN}" \ 315 "${INPUT_ZL}" \ 315 "${INPUT_ZC}" \ 315 "${INPUT_ZG}" \ 315 "${INPUT_ZA}" \ 315 "${INPUT_ZU}" \ 315 "${INPUT_ZD}" \ 315 "${INPUT_ZS}" \ 315 "${INPUT_ZP}" \ 315 "${INPUT_ZX}" 315 315 @{{CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-UNIX-421E-F14C-034D) 315 @}}CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-UNIX-421E-F14C-034D) 316 @{{CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-VMS-421E-F14C-034D) 316 @}}CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-VMS-421E-F14C-034D) 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 @{{CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-VMS-421E-F14C-034D) 316 @}}CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-VMS-421E-F14C-034D) 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 @{{CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Init-NT-421E-F14C-034D) 337 @}}CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Init-NT-421E-F14C-034D) 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 337 @{{CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Init-NT-421E-F14C-034D) 337 @}}CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Init-NT-421E-F14C-034D) 338 @{{CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Init-Post-421E-F14C-034D) 338 @}}CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Init-Post-421E-F14C-034D) 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 338 @{{CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Init-Post-421E-F14C-034D) 338 @}}CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Init-Post-421E-F14C-034D) 339 @{{CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Init-Pre-421E-F14C-034D) 339 @{{CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Init-Pre-421E-F14C-034D) 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 @{{CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Init-UNIX-421E-F14C-034D) 340 @}}CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Init-UNIX-421E-F14C-034D) 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 @{{CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Init-UNIX-421E-F14C-034D) 340 @}}CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Init-UNIX-421E-F14C-034D) 341 @{{CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Init-VMS-421E-F14C-034D) 341 @}}CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Init-VMS-421E-F14C-034D) 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 341 @{{CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Init-VMS-421E-F14C-034D) 341 @}}CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Init-VMS-421E-F14C-034D) 350 @{{CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Controls-421E-F14C-034D) 350 @}}CUSTOM_CODE_START(ModifyUNIXAccount-14-Script-Controls-421E-F14C-034D) 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 350 @{{CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Controls-421E-F14C-034D) 350 @}}CUSTOM_CODE_FINISH(ModifyUNIXAccount-14-Script-Controls-421E-F14C-034D) 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SV 343 15794175 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # 317 ZZ 343 16777215 323 344 332 347 000 333 334 0 324 0 329 Hidden 335 0 348 1 349 1 357 318 320 0 319 @F@ # @M@ # 311 - 313 0 336 325 0 345 0 346 0 358 # 321 2 322 4 # 312 312

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # @M@ # 311 EnableUNIXAccount 313 0 336 325 0 345 0 346 0 358 # 321 2 322 5 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # @M@ # 311 SetUNIXAccountPassword 313 0 336 325 0 345 0 346 0 358 # 321 2 322 8 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

An automated method of calling SAcM User administrative commands externally 312 from SEM via entries 312 in a Database.

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

The command: CreateVMSAccount has the following parameters:

312

312
312
TargetSystem
312
Username
312
Password
312
Owner
312
UICgroup
312
UICmember
312
DefaultDevice
312
DefaultDirectory
312
DefaultAccount
312
312

312

(See the main help on "Web Access Request" for the format of the 312 database).

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 330 @{{CUSTOM_CODE_START(CreateVMSAccount-29-Script-Fields-421E-F14C-034D) 330 @}}CUSTOM_CODE_START(CreateVMSAccount-29-Script-Fields-421E-F14C-034D) 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # check that the requested Agent is a recognised agent 330 # 330 330 use Time::localtime; 330 330 print "\@{{PAGE_HIDE Hidden \n"; 330 330 #include SAcM_WarGetParams 330 #include SAcM_WarValidAgent 330 #include SAcM_WarUpdateResults 330 330 WARValidateAgent(); 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 # 330 # Enter the selected agent into the input field 330 # 330 print "SV : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; # target system 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 330 330 330 @{{CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Fields-421E-F14C-034D) 330 @}}CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Fields-421E-F14C-034D) 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 @{{CUSTOM_CODE_START(CreateVMSAccount-29-Script-NT-421E-F14C-034D) 314 @}}CUSTOM_CODE_START(CreateVMSAccount-29-Script-NT-421E-F14C-034D) 314 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 #use Sysgem; 314 314 @{{CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-NT-421E-F14C-034D) 314 @}}CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-NT-421E-F14C-034D) 326 @{{CUSTOM_CODE_START(CreateVMSAccount-29-Script-Post-421E-F14C-034D) 326 @}}CUSTOM_CODE_START(CreateVMSAccount-29-Script-Post-421E-F14C-034D) 326 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarGetParams 326 #include SAcM_Options_Cache 326 326 # 326 # Read the parameters 326 # 326 %Params = (); 326 $count = GetWarParams(\%Params); 326 326 $INPUT_UN = $Params{"Username"}; 326 $INPUT_PW = $Params{"Password"}; 326 $INPUT_ON = $Params{"Owner"}; 326 $INPUT_VG = $Params{"UICgroup"}; 326 $INPUT_UM = $Params{"UICmember"}; 326 $INPUT_DV = $Params{"DefaultDevice"}; 326 $INPUT_DD = $Params{"DefaultDirectory"}; 326 $INPUT_DA = $Params{"DefaultAccount"}; 326 326 $AddSubscPtr = $Params{"AddSubscriberPointer"}; 326 $SubscBadge = $Params{"SubscriberBadgeNo"}; 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 326 326 326 # 326 # Now update the Audit Trail & Subscriber DB 326 # 326 326 #include SAcM_Logfile 326 #include SAcM_Common_Date_Routines 326 326 # 326 # Construct an Audit Sequence Number 326 # 326 my $AudSeq = AuditSeqNumber() . " (WAR)"; 326 326 #include SAcM_MPC_Post_Process_2 326 326 326 # 326 # Add the pointer to the Subscriber DB 326 # 326 use Sysgem; 326 use Time::localtime; 326 use constant Subsc_DSN => "Sysgem Subscriber DB"; 326 use constant DB_TABLE_ACCOUNT => "TABLE_ACCOUNT"; 326 use constant DB_TABLE_APPLICATION => "TABLE_APPLICATION"; 326 use constant DB_TABLE_PERSON => "TABLE_PEOPLE"; 326 326 if ($AddSubscPtr) 326 { 326 my @fields = (); 326 my @values = (); 326 326 # 326 # Add record. 326 # 326 my $tm = localtime; 326 my $created = sprintf("%04d-%02d-%02d %02d:%02d:%02d", 326 ($tm->year)+1900, 326 ($tm->mon)+1, 326 ($tm->mday), 326 $tm->hour, 326 $tm->min, 326 $tm->sec); 326 326 push(@fields, "FLD_CREATED"); push(@values, $created); 326 push(@fields, "FLD_OWNER"); push(@values, $SubscBadge); 326 push(@fields, "FLD_COMPUTER"); push(@values, $SERVER_NAME); 326 push(@fields, "FLD_ACCOUNT"); push(@values, $INPUT_UN); 326 push(@fields, "FLD_COMMENT"); push(@values, "Added by WAR Process Requests"); 326 push(@fields, ""); push(@values, ""); 326 326 my $error = ""; 326 my $status = 0; 326 326 $status = Sysgem::ODBCAddRecord(Subsc_DSN, 326 "", 326 DB_TABLE_ACCOUNT, 326 \@fields, 326 \@values, 326 $error); 326 326 # 326 # If there was an error then add an entry to the logfile. Prefix all 326 # text with a # so that it doesn't interfere with anything sent to the 326 # output display. 326 # 326 if ($status != 1) 326 { 326 my @WarnMsg = ("Error adding Subscriber Pointer",$error,); 326 326 WriteWarResults(\@WarnMsg, "Warning"); 326 } 326 } 326 326 # 326 # update the full list of UICs in the options cache 326 # 326 my %UAFGrpMem = (); 326 326 foreach $line (@script_output) 326 { 326 if ($line =~ m/ UIC:/) 326 { 326 (my $discard, my $entry2) = split('UIC:', $line); 326 ($discard, my $entry) = split('\[', $entry2); 326 ($entry2, my $entry3) = split(",", $entry); # UIC group is now in $entry2 326 326 $entry3 =~ s/\] //; 326 $entry3 =~ s/\(//; # UIC member is now in $entry3 326 326 # 326 # update the UIC options cache 326 # 326 AddUAFMemToCache($entry2, $entry3, \%UAFGrpMem); 326 AddUICsToCache(\%UAFGrpMem, "AllVMSSvrs"); 326 } 326 } 326 326 # 326 # update the full list of VMS Usernames in the options cache 326 # 326 my @UserList = Options_LoadFromFile("AllVMSSvrs", "Users"); 326 326 push(@UserList, uc($INPUT_UN)); 326 326 my @SortedList = sort @UserList; 326 326 # 326 # Save username list into the options cache 326 # 326 if (@SortedList) 326 { 326 Options_SaveToFile("AllVMSSvrs", "Users", \@SortedList); 326 } 326 326 @{{CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Post-421E-F14C-034D) 326 @}}CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Post-421E-F14C-034D) 327 @{{CUSTOM_CODE_START(CreateVMSAccount-29-Script-Pre-421E-F14C-034D) 327 @}}CUSTOM_CODE_START(CreateVMSAccount-29-Script-Pre-421E-F14C-034D) 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 327 #include SAcM_Options_Cache 327 #include SAcM_Tokens 327 327 #include SAcM_WarGetParams 327 327 # 327 # Should we abort the transaction as a result of output from the fields script? 327 # 327 if ($INPUT_ZZ eq "ABORT") 327 { 327 print "\@{{ABORT\n"; 327 exit; 327 } 327 327 # 327 # Read the parameters 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # if default directory present without parenthesis 327 # 327 if (exists($Params{"DefaultDirectory"}) && length($Params{"DefaultDirectory"}) != 0) 327 { 327 my $DDlen = length($Params{"DefaultDirectory"}); 327 327 if ( (substr($Params{"DefaultDirectory"}, 0, 1) ne "[" && substr($Params{"DefaultDirectory"}, 0, 1) ne "<" ) || 327 (substr($Params{"DefaultDirectory"}, $DDlen, 1) ne "]" && substr($Params{"DefaultDirectory"}, $DDlen, 1) ne ">" ) 327 ) 327 { 327 $Params{"DefaultDirectory"} = "[" . $Params{"DefaultDirectory"} . "]"; 327 } 327 } 327 327 # 327 # The following fields must be present else errors (undefined symbols) 327 # will be encountered in the VMS DCL Script 327 # 327 if (!exists($Params{"DefaultAccount"})) 327 { 327 $Params{"DefaultAccount"} = ""; 327 } 327 327 if (!exists($Params{"Account"})) 327 { 327 $Params{"Account"} = ""; 327 } 327 327 if (!exists($Params{"NoPassword"})) 327 { 327 $Params{"NoPassword"} = ""; 327 } 327 327 # 327 # The UIC symbols must exist (else the account create will fail) 327 # 327 if (!exists($Params{"UICgroup"}) ) 327 { 327 $Params{"UICgroup"} = ""; 327 } 327 327 if (!exists($Params{"UICmember"}) ) 327 { 327 $Params{"UICmember"} = ""; 327 } 327 327 # 327 # If no VMS UIC Group then default to 200. 327 # (but only if no "Default Account" is defined - if a "Default Account" 327 # is defined, then it will provide the UIC Group - at the target server) 327 # 327 if ($Params{"DefaultAccount"} eq "") 327 { 327 if (length($Params{"UICgroup"}) == 0) 327 { 327 $Params{"UICgroup"} = "200"; 327 } 327 327 # 327 # If no UIC Member - pick next unique 327 # 327 if (length($Params{"UICmember"}) == 0) 327 { 327 $Params{"UICmember"} = FillGapsInUIC($Params{"UICgroup"}, "AllVMSSvrs"); 327 } 327 } 327 327 327 327 # 327 # default device 327 # 327 if (!exists($Params{"DefaultDevice"}) || length($Params{"DefaultDevice"}) == 0) 327 { 327 $Params{"DefaultDevice"} = "SYS$SYSDEVICE:"; 327 } 327 else 327 { 327 # 327 # must be a colon at the end of default device 327 # 327 my $DVlen = length($Params{"DefaultDevice"}); 327 if (substr($Params{"DefaultDevice"}, $DVlen, 1) ne ":" ) 327 { 327 $Params{"DefaultDevice"} = $Params{"DefaultDevice"} . ":"; 327 } 327 } 327 327 327 # 327 # Create a hash defining all the parameter types that 327 # exist with this command 327 # 327 # (Indicate the INPUT variable names used by the target script). 327 # 327 my %ParamDefs = ( Username => { Input => "\$INPUT_UN" }, 327 Password => { Input => "\$INPUT_PW" }, 327 Owner => { Input => "\$INPUT_ON" }, 327 UICgroup => { Input => "\$INPUT_VG" }, 327 UICmember => { Input => "\$INPUT_UM" }, 327 DefaultDevice => { Input => "\$INPUT_DV" }, 327 DefaultDirectory => { Input => "\$INPUT_DD" }, 327 Account => { Input => "\$INPUT_AC" }, 327 DefaultAccount => { Input => "\$INPUT_DA" }, 327 NoPassword => { Input => "\$INPUT_NP" } 327 ); 327 # 327 # Update the target script with 327 # the input field values 327 # 327 UpdateTargetScript(\%ParamDefs, \%Params, "VMS", "NoChanges"); 327 327 @{{CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Pre-421E-F14C-034D) 327 @}}CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Pre-421E-F14C-034D) 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 @{{CUSTOM_CODE_START(CreateVMSAccount-29-Script-UNIX-421E-F14C-034D) 315 @}}CUSTOM_CODE_START(CreateVMSAccount-29-Script-UNIX-421E-F14C-034D) 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 @{{CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-UNIX-421E-F14C-034D) 315 @}}CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-UNIX-421E-F14C-034D) 316 @{{CUSTOM_CODE_START(CreateVMSAccount-29-Script-VMS-421E-F14C-034D) 316 @}}CUSTOM_CODE_START(CreateVMSAccount-29-Script-VMS-421E-F14C-034D) 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 $! 316 #include SAcM_VMS_GetHwType 316 #include SAcM_VMS_Audit_Trail 316 $! 316 #include SAcM_GenericVMS_Subroutines 316 #include SAcM_VMS_GetHwType 316 $ set verify 316 #include SAcM_MPC_Create_VMS_Account 316 @{{CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-VMS-421E-F14C-034D) 316 @}}CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-VMS-421E-F14C-034D) 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 @{{CUSTOM_CODE_START(CreateVMSAccount-29-Script-Init-NT-421E-F14C-034D) 337 @}}CUSTOM_CODE_START(CreateVMSAccount-29-Script-Init-NT-421E-F14C-034D) 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 337 @{{CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Init-NT-421E-F14C-034D) 337 @}}CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Init-NT-421E-F14C-034D) 338 @{{CUSTOM_CODE_START(CreateVMSAccount-29-Script-Init-Post-421E-F14C-034D) 338 @}}CUSTOM_CODE_START(CreateVMSAccount-29-Script-Init-Post-421E-F14C-034D) 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 338 @{{CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Init-Post-421E-F14C-034D) 338 @}}CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Init-Post-421E-F14C-034D) 339 @{{CUSTOM_CODE_START(CreateNTAccount-00-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_START(CreateNTAccount-00-Script-Init-Pre-421E-F14C-034D) 339 @{{CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_FINISH(CreateNTAccount-00-Script-Init-Pre-421E-F14C-034D) 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 @{{CUSTOM_CODE_START(CreateVMSAccount-29-Script-Init-UNIX-421E-F14C-034D) 340 @}}CUSTOM_CODE_START(CreateVMSAccount-29-Script-Init-UNIX-421E-F14C-034D) 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 @{{CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Init-UNIX-421E-F14C-034D) 340 @}}CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Init-UNIX-421E-F14C-034D) 341 @{{CUSTOM_CODE_START(CreateVMSAccount-29-Script-Init-VMS-421E-F14C-034D) 341 @}}CUSTOM_CODE_START(CreateVMSAccount-29-Script-Init-VMS-421E-F14C-034D) 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 341 @{{CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Init-VMS-421E-F14C-034D) 341 @}}CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Init-VMS-421E-F14C-034D) 350 @{{CUSTOM_CODE_START(CreateVMSAccount-29-Script-Controls-421E-F14C-034D) 350 @}}CUSTOM_CODE_START(CreateVMSAccount-29-Script-Controls-421E-F14C-034D) 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 350 @{{CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Controls-421E-F14C-034D) 350 @}}CUSTOM_CODE_FINISH(CreateVMSAccount-29-Script-Controls-421E-F14C-034D) 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SV 343 15794175 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # 317 ZZ 343 16777215 323 344 332 347 000 333 334 0 324 0 329 Hidden 335 0 348 1 349 1 357 318 320 0 319 @F@ # @M@ # 311 EnableVMSAccount 313 0 336 325 0 345 0 346 0 358 # 321 3 322 2 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312

This option (UpdateVMSAccountComment) requires as input: the agent name; the username; the comment field. It will update the comment field with the value provided for the usernames on the identified agent. The comment field will be OVERWRITTEN with the new value. There will be no further checks to identify that the username was the intended account.

312 312

Usernames that fail to make a match in the SYSUAF file will result in a *Failed* status in the Results table of the WAR database.

312 312

Please refer to the option: "VerifyUpdateVMSAccountComment" for the option that will confirm that the account about to be updated has a matching "Owner" field before the account is updated.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312 312

This option (VerifyUpdateVMSAccountComment) requires as input: the agent name; the username; the comment field; the current 'Owner' field. It will update the comment field with the value provided for the usernames on the identified agent, but only if the 'Owner' field provided as input matches the Owner field in the account that is about to be updated. The comment field will be OVERWRITTEN with the new value.

312 312

Usernames that fail to make a match in the SYSUAF file will result in a *Failed* status in the Results table of the WAR database.

312 312

Please refer to the option: "UpdateVMSAccountComment" for the option that will update the account without confirming that the Owner field matches prior to the update.

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 @{{CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Fields-421E-F14C-034D) 330 @}}CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Fields-421E-F14C-034D) 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # check that the requested Agent is a recognised agent 330 # 330 330 use Time::localtime; 330 330 print "\@{{PAGE_HIDE Hidden \n"; 330 330 #include SAcM_WarGetParams 330 #include SAcM_WarValidAgent 330 #include SAcM_WarUpdateResults 330 330 WARValidateAgent(); 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SV : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 330 330 330 @{{CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Fields-421E-F14C-034D) 330 @}}CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Fields-421E-F14C-034D) 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 @{{CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-NT-421E-F14C-034D) 314 @}}CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-NT-421E-F14C-034D) 314 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 use Sysgem; 314 314 @{{CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-NT-421E-F14C-034D) 314 @}}CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-NT-421E-F14C-034D) 326 @{{CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Post-421E-F14C-034D) 326 @}}CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Post-421E-F14C-034D) 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 326 foreach my $line (@script_output) 326 { 326 # 326 # look for any errors - if found, set entry in %PostProcDetectedError for action by WarUpdateResults(); 326 # 326 if ($line =~ m/UAF-W-BADSPC/i || $line =~ m/does not exist/i) 326 { 326 $PostProcDetectedError{"Error"} = "No user matches specification"; 326 } 326 if ($line =~ m/Owner-Mismatch/i) 326 { 326 my $errmsg = substr($line, 6); # drop the "@{{SE " chars atstart of line 326 326 chomp $errmsg; 326 326 $PostProcDetectedError{"Error"} = $errmsg; 326 } 326 if ($line =~ m/Invalid Parameters/i) 326 { 326 $PostProcDetectedError{"Error"} = "Invalid Parameters. There must be exactly 4: TargetSystem, Username, Owner, Comment"; 326 } 326 } 326 326 #include SAcM_WarGetParams 326 326 # 326 # Read the command parameters extracted from the WAR DB 326 # 326 %Params = (); 326 $count = GetWarParams(\%Params); 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 326 326 326 # 326 # Now update the Audit Trail & Subscriber DB 326 # 326 326 #include SAcM_Options_Cache 326 #include SAcM_Tokens 326 326 #include SAcM_Logfile 326 #include SAcM_Common_Date_Routines 326 326 326 # 326 # Construct an Audit Sequence Number 326 # 326 my $AudSeq = AuditSeqNumber() . " (WAR)"; 326 326 # 326 # Add logfile entry. 326 # 326 UMLogAddAccount($SysgemComputer, 326 $SysgemUsername, 326 $Params{"Username"}, 326 "Account Comment Field Modified by Sysgem", 326 $SERVER_TYPE, 326 $SERVER_NAME, 326 "Audit Seq. No..: $AudSeq"); 326 326 @{{CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Post-421E-F14C-034D) 326 @}}CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Post-421E-F14C-034D) 327 @{{CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Pre-421E-F14C-034D) 327 @}}CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Pre-421E-F14C-034D) 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Should we abort the transaction as a result of output from the fields script? 327 # 327 if ($INPUT_ZZ eq "ABORT") 327 { 327 print "\@{{ABORT\n"; 327 exit; 327 } 327 327 # 327 # Read the parameters 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # validate that there are the correct parameters 327 # 327 if ( 327 $count != 4 || 327 !exists($Params{"TargetSystem"}) || 327 !exists($Params{"Username"}) || 327 !exists($Params{"Owner"}) || 327 !exists($Params{"Comment"}) 327 ) 327 { 327 # 327 # get the VMS server to reject the transaction 327 # 327 print "\@{{ADD_SVR \$ write sys\$output \"Invalid Parameters. There must be exactly 4: TargetSystem, Username, Owner, Comment\"\n"; 327 print "\@{{ADD_SVR \$ exit SS\$ABORT\n"; 327 } 327 327 327 # 327 # Simulate a 'Selected' user account 327 # 327 my $user = $Params{"Username"}; 327 my $comment = $Params{"Comment"}; 327 my $owner = $Params{"Owner"}; 327 print "\@{{ADD_SVR \$ ENTRY_UN == \"$user\"\n"; # Username 327 print "\@{{ADD_SVR \$ INPUT_UN == \"$user\"\n"; # Username 327 print "\@{{ADD_SVR \$ STARTUP_UN == \"\"\n"; # Startup filter 327 print "\@{{ADD_SVR \$ INPUT_CT == \"$comment\"\n"; # New Value of comment field 327 print "\@{{ADD_SVR \$ INPUT_ON == \"$owner\"\n"; # Value of owner field - Verify that this matches with the account before updating 327 327 @{{CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Pre-421E-F14C-034D) 327 @}}CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Pre-421E-F14C-034D) 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 @{{CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-UNIX-421E-F14C-034D) 315 @}}CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-UNIX-421E-F14C-034D) 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 @{{CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-UNIX-421E-F14C-034D) 315 @}}CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-UNIX-421E-F14C-034D) 316 @{{CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-VMS-421E-F14C-034D) 316 @}}CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-VMS-421E-F14C-034D) 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 $! 316 #include SAcM_VMS_GetHwType 316 #include SAcM_VMS_Audit_Trail 316 $! 316 $ set noverify 316 $! 316 #include SAcM_GenericVMS_Subroutines 316 #include SAcM_GetVMS_UIC_Owner 316 $! 316 $ call VerifyUpdateVMSAccountComment 'P1 !P1 = home directory spec 316 $! 316 #include SAcM_Verify_Update_VMS_Account_Comment 316 $! 316 $ set noverify 316 $! 316 @{{CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-VMS-421E-F14C-034D) 316 @}}CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-VMS-421E-F14C-034D) 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 @{{CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Init-NT-421E-F14C-034D) 337 @}}CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Init-NT-421E-F14C-034D) 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 337 @{{CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Init-NT-421E-F14C-034D) 337 @}}CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Init-NT-421E-F14C-034D) 338 @{{CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Init-Post-421E-F14C-034D) 338 @}}CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Init-Post-421E-F14C-034D) 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 338 @{{CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Init-Post-421E-F14C-034D) 338 @}}CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Init-Post-421E-F14C-034D) 339 @{{CUSTOM_CODE_START(EnableVMSAccount-20-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_START(EnableVMSAccount-20-Script-Init-Pre-421E-F14C-034D) 339 @{{CUSTOM_CODE_FINISH(EnableVMSAccount-20-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_FINISH(EnableVMSAccount-20-Script-Init-Pre-421E-F14C-034D) 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 @{{CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Init-UNIX-421E-F14C-034D) 340 @}}CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Init-UNIX-421E-F14C-034D) 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 @{{CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Init-UNIX-421E-F14C-034D) 340 @}}CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Init-UNIX-421E-F14C-034D) 341 @{{CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Init-VMS-421E-F14C-034D) 341 @}}CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Init-VMS-421E-F14C-034D) 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 341 @{{CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Init-VMS-421E-F14C-034D) 341 @}}CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Init-VMS-421E-F14C-034D) 350 @{{CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Controls-421E-F14C-034D) 350 @}}CUSTOM_CODE_START(UpdateVMSAccountComment-20-Script-Controls-421E-F14C-034D) 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 350 @{{CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Controls-421E-F14C-034D) 350 @}}CUSTOM_CODE_FINISH(UpdateVMSAccountComment-20-Script-Controls-421E-F14C-034D) 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SV 343 15794175 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # 317 ZZ 343 16777215 323 344 332 347 000 333 334 0 324 0 329 Hidden 335 0 348 1 349 1 357 318 320 0 319 @F@ # @M@ # 311 CreateSAPAccount 313 0 336 325 0 345 0 346 0 358 # 321 7 322 1 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SR : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 use Sysgem; 314 314 #include SAcM_Connex 314 #include SAcM_SAP_options 314 #include SAcM_Options_Cache 314 #include SAcM_SAP_Simulation 314 #include SAcM_SAP_Modify_Account 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Read the parameters 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Create a hash defining all the parameter types that 327 # exist with this command 327 # 327 # (Indicate the INPUT variable names used by the target script). 327 # 327 my %ParamDefs = ( SAPHost => { Input => "\$INPUT_HO", Changed => "\$ignored_HO" }, 327 Username => { Input => "\$INPUT_SU", Changed => "\$ignored_SU" }, 327 Password => { Input => "\$INPUT_PS", Changed => "\$CHANGED_PS" }, 327 LastName => { Input => "\$INPUT_SN", Changed => "\$CHANGED_SN" }, 327 FirstName => { Input => "\$INPUT_SF", Changed => "\$CHANGED_SF" }, 327 Title => { Input => "\$INPUT_PT", Changed => "\$CHANGED_PT" }, 327 Function => { Input => "\$INPUT_PF", Changed => "\$CHANGED_PF" }, 327 AcademicTitle => { Input => "\$INPUT_PA", Changed => "\$CHANGED_PA" }, 327 Department => { Input => "\$INPUT_SD", Changed => "\$CHANGED_SD" }, 327 Room => { Input => "\$INPUT_PM", Changed => "\$CHANGED_PM" }, 327 Floor => { Input => "\$INPUT_PZ", Changed => "\$CHANGED_PZ" }, 327 Building => { Input => "\$INPUT_PB", Changed => "\$CHANGED_PB" }, 327 Language => { Input => "\$INPUT_SL", Changed => "\$CHANGED_SL" }, 327 TelephoneNum => { Input => "\$INPUT_ST", Changed => "\$CHANGED_ST" }, 327 TelephoneExt => { Input => "\$INPUT_SX", Changed => "\$CHANGED_SX" }, 327 FaxNum => { Input => "\$INPUT_SZ", Changed => "\$CHANGED_SZ" }, 327 FaxExt => { Input => "\$INPUT_FX", Changed => "\$CHANGED_FX" }, 327 EMail => { Input => "\$INPUT_SE", Changed => "\$CHANGED_SE" }, 327 CompanyName => { Input => "\$INPUT_SO", Changed => "\$CHANGED_SO" }, 327 UserType => { Input => "\$INPUT_SY", Changed => "\$CHANGED_SY" }, 327 UserGroup => { Input => "\$INPUT_SS", Changed => "\$CHANGED_SS" }, 327 StartDate => { Input => "\$INPUT_DF", Changed => "\$CHANGED_DF" }, 327 EndDate => { Input => "\$INPUT_DT", Changed => "\$CHANGED_DT" }, 327 AccountingNum => { Input => "\$INPUT_AN", Changed => "\$CHANGED_AN" }, 327 CostCenter => { Input => "\$INPUT_SC", Changed => "\$CHANGED_SC" }, 327 StartMenu => { Input => "\$INPUT_SM", Changed => "\$CHANGED_SM" }, 327 OutputDevice => { Input => "\$INPUT_OD", Changed => "\$CHANGED_OD" }, 327 OutputImmediately => { Input => "\$INPUT_OI", Changed => "\$CHANGED_OI" }, 327 DeleteAfterOutput => { Input => "\$INPUT_DO", Changed => "\$CHANGED_DO" }, 327 PersonalTimezone => { Input => "\$INPUT_TZ", Changed => "\$CHANGED_TZ" }, 327 Roles => { Input => "\$INPUT_AG", Changed => "\$CHANGED_AG" }, 327 Profiles => { Input => "\$INPUT_SI", Changed => "\$CHANGED_SI" }, 327 ); 327 327 # 327 # Update the target script with 327 # the input field values 327 # 327 UpdateTargetScript(\%ParamDefs, \%Params, "NT", "ShowChanges"); 327 327 # 327 # See if we are in live or simulation mode 327 # 327 if (TokenValueAssigned("SAcM Full", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Restricted", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Supervisor", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Helpdesk", "SAP", "Live DB")) 327 { 327 # 327 # We are using a live system 327 # 327 print "\@{{ADD_SVR \$SAP_LIVE = \"Y\";\n"; 327 } 327 else 327 { 327 # 327 # We are running against a simulated SAP DB 327 # 327 print "\@{{ADD_SVR \$SAP_LIVE = \"N\";\n"; 327 } 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SR 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # @M@ # 311 DeleteSAPAccount 313 0 336 325 0 345 0 346 0 358 # 321 7 322 3 # 312 312

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SR : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 314 314 #include SAcM_Connex 314 #include SAcM_SAP_Simulation 314 #include SAcM_SAP_Routines 314 314 SAP_DeleteUser($INPUT_HO, $INPUT_SU); 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Read the parameters 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Create a hash defining all the parameter types that 327 # exist with this command 327 # 327 # (Indicate the INPUT variable names used by the target script). 327 # 327 my %ParamDefs = ( SAPHost => { Input => "\$INPUT_HO" }, 327 Username => { Input => "\$INPUT_SU" }, 327 ); 327 327 # 327 # Update the target script with 327 # the input field values 327 # 327 UpdateTargetScript(\%ParamDefs, \%Params, "NT", "NoChanges"); 327 327 # 327 # See if we are in live or simulation mode 327 # 327 if (TokenValueAssigned("SAcM Full", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Restricted", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Supervisor", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Helpdesk", "SAP", "Live DB")) 327 { 327 # 327 # We are using a live system 327 # 327 print "\@{{ADD_SVR \$SAP_LIVE = \"Y\";\n"; 327 } 327 else 327 { 327 # 327 # We are running against a simulated SAP DB 327 # 327 print "\@{{ADD_SVR \$SAP_LIVE = \"N\";\n"; 327 } 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SR 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # @M@ # 311 EnableSAPAccount 313 0 336 325 0 345 0 346 0 358 # 321 7 322 4 # 312 312

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SR : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 314 314 #include SAcM_Connex 314 #include SAcM_SAP_Simulation 314 #include SAcM_SAP_Routines 314 314 SAP_EnableUser($INPUT_HO, $INPUT_SU); 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Read the parameters 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Create a hash defining all the parameter types that 327 # exist with this command 327 # 327 # (Indicate the INPUT variable names used by the target script). 327 # 327 my %ParamDefs = ( SAPHost => { Input => "\$INPUT_HO" }, 327 Username => { Input => "\$INPUT_SU" }, 327 ); 327 327 # 327 # Update the target script with 327 # the input field values 327 # 327 UpdateTargetScript(\%ParamDefs, \%Params, "NT", "NoChanges"); 327 327 # 327 # See if we are in live or simulation mode 327 # 327 if (TokenValueAssigned("SAcM Full", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Restricted", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Supervisor", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Helpdesk", "SAP", "Live DB")) 327 { 327 # 327 # We are using a live system 327 # 327 print "\@{{ADD_SVR \$SAP_LIVE = \"Y\";\n"; 327 } 327 else 327 { 327 # 327 # We are running against a simulated SAP DB 327 # 327 print "\@{{ADD_SVR \$SAP_LIVE = \"N\";\n"; 327 } 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SR 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # @M@ # 311 DisableSAPAccount 313 0 336 325 0 345 0 346 0 358 # 321 7 322 5 # 312 312

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SR : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 314 314 #include SAcM_Connex 314 #include SAcM_SAP_Simulation 314 #include SAcM_SAP_Routines 314 314 SAP_DisableUser($INPUT_HO, $INPUT_SU); 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Read the parameters 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Create a hash defining all the parameter types that 327 # exist with this command 327 # 327 # (Indicate the INPUT variable names used by the target script). 327 # 327 my %ParamDefs = ( SAPHost => { Input => "\$INPUT_HO" }, 327 Username => { Input => "\$INPUT_SU" }, 327 ); 327 327 # 327 # Update the target script with 327 # the input field values 327 # 327 UpdateTargetScript(\%ParamDefs, \%Params, "NT", "NoChanges"); 327 327 # 327 # See if we are in live or simulation mode 327 # 327 if (TokenValueAssigned("SAcM Full", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Restricted", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Supervisor", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Helpdesk", "SAP", "Live DB")) 327 { 327 # 327 # We are using a live system 327 # 327 print "\@{{ADD_SVR \$SAP_LIVE = \"Y\";\n"; 327 } 327 else 327 { 327 # 327 # We are running against a simulated SAP DB 327 # 327 print "\@{{ADD_SVR \$SAP_LIVE = \"N\";\n"; 327 } 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SR 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # @M@ # 311 SetSAPAccountPassword 313 0 336 325 0 345 0 346 0 358 # 321 7 322 6 # 312 312

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SR : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 314 314 #include SAcM_Connex 314 #include SAcM_SAP_Simulation 314 #include SAcM_SAP_Routines 314 314 SAP_SetPassword($INPUT_HO, $INPUT_SU, $INPUT_PW); 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Read the parameters 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Create a hash defining all the parameter types that 327 # exist with this command 327 # 327 # (Indicate the INPUT variable names used by the target script). 327 # 327 my %ParamDefs = ( SAPHost => { Input => "\$INPUT_HO" }, 327 Username => { Input => "\$INPUT_SU" }, 327 Password => { Input => "\$INPUT_PW" }, 327 ); 327 327 # 327 # Update the target script with 327 # the input field values 327 # 327 UpdateTargetScript(\%ParamDefs, \%Params, "NT", "NoChanges"); 327 327 # 327 # See if we are in live or simulation mode 327 # 327 if (TokenValueAssigned("SAcM Full", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Restricted", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Supervisor", "SAP", "Live DB") || 327 TokenValueAssigned("SAcM Helpdesk", "SAP", "Live DB")) 327 { 327 # 327 # We are using a live system 327 # 327 print "\@{{ADD_SVR \$SAP_LIVE = \"Y\";\n"; 327 } 327 else 327 { 327 # 327 # We are running against a simulated SAP DB 327 # 327 print "\@{{ADD_SVR \$SAP_LIVE = \"N\";\n"; 327 } 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SR 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # @M@ # 311 CreateExchangeMbx 313 0 336 325 0 345 0 346 0 358 # 321 8 322 1 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

Help text goes here...

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # @M@ # 311 HideFromExchangeAddressBook 313 0 336 325 0 345 0 346 0 358 # 321 8 322 4 # 312 312

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SV : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 330 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 # 314 # Windows NT Server script 314 # 314 # This script runs on the Sysgem NT server. 314 # 314 use Sysgem; 314 314 #include SAcM_MS_Exchange_fields 314 #include SAcM_HideFromAddressBook 314 #include SAcM_Modify_NT_Account 314 314 314 SAcM_HideFromAddressBook($ENTRY_UN, "TRUE"); # "TRUE" = hide it 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarGetParams 326 326 # 326 # Read the command parameters extracted from the WAR DB 326 # 326 %Params = (); 326 $count = GetWarParams(\%Params); 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 326 326 #include SAcM_Logfile 326 326 # 326 # Add logfile entry. 326 # 326 UMLogAddAccount($SysgemComputer, 326 $SysgemUsername, 326 $Params{"Username"}, 326 "Hide Exchange Mailbox", 326 $SERVER_TYPE, 326 $SERVER_NAME); 326 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Read the parameters 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Simulate a 'Selected' user account 327 # 327 my $user = $Params{"Username"}; 327 print "\@{{ADD_SVR \$ENTRY_UN = \"$user\";\n"; # Username 327 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 337 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 339 @{{CUSTOM_CODE_START(EnableNTAccount-04-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_START(EnableNTAccount-04-Script-Init-Pre-421E-F14C-034D) 339 @{{CUSTOM_CODE_FINISH(EnableNTAccount-04-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_FINISH(EnableNTAccount-04-Script-Init-Pre-421E-F14C-034D) 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SV 343 15794175 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # @M@ # 311 RevealInExchangeAddressBook 313 0 336 325 0 345 0 346 0 358 # 321 8 322 5 # 312 312

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 print "SV : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; #server 330 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 330 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 # 314 # Windows NT Server script 314 # 314 # This script runs on the Sysgem NT server. 314 # 314 use Sysgem; 314 314 #include SAcM_MS_Exchange_fields 314 #include SAcM_HideFromAddressBook 314 #include SAcM_Modify_NT_Account 314 314 314 SAcM_HideFromAddressBook($ENTRY_UN, "FALSE"); # "FALSE" = reveal it 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 326 use Time::localtime; 326 326 #include SAcM_WarGetParams 326 326 # 326 # Read the command parameters extracted from the WAR DB 326 # 326 %Params = (); 326 $count = GetWarParams(\%Params); 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 326 326 #include SAcM_Logfile 326 326 # 326 # Add logfile entry. 326 # 326 UMLogAddAccount($SysgemComputer, 326 $SysgemUsername, 326 $Params{"Username"}, 326 "Reveal Exchange Mailbox", 326 $SERVER_TYPE, 326 $SERVER_NAME); 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Read the parameters 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # Simulate a 'Selected' user account 327 # 327 my $user = $Params{"Username"}; 327 print "\@{{ADD_SVR \$ENTRY_UN = \"$user\";\n"; # Username 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 337 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 339 @{{CUSTOM_CODE_START(EnableNTAccount-04-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_START(EnableNTAccount-04-Script-Init-Pre-421E-F14C-034D) 339 @{{CUSTOM_CODE_FINISH(EnableNTAccount-04-Script-Init-Pre-421E-F14C-034D) 339 @}}CUSTOM_CODE_FINISH(EnableNTAccount-04-Script-Init-Pre-421E-F14C-034D) 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SV 343 15794175 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # @M@ # 311 DeleteOracleAccount 313 0 336 325 0 345 0 346 0 358 # 321 9 322 1 # 312 312

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312

This option is in a "Pre-Release" state and should be used with 312 caution.

312

An automated method of calling SAcM User administrative commands. See the 312 help that describes the SAcM Web Access Request database.

312

Command Name:

312

"MultiPlatformCustomApplication".

312

Purpose:

312

The purpose of this command is to allow customer-specific 312 code to be added for account maintenance of customer-specific applications. To 312 add customer-specific scripts, see the individual scripts supported in the SEM 312 development interface. Each script has references to custom include file 312 entries. For example the "(M) Windows NT" script has the following four lines which 312 invoke custom code that has been inserted between the corresponding four lines in the Custom 312 Include file: "Custom Code Display = WAR Process Requests"

312

312
@{{CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-NT)
312 @}}CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-NT)
312
312
312 @{{CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-NT)
312 @}}CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-NT)
312
312

312

To add code that will run on the Windows Agent when this command is invoked, 312 edit the Custom Include file by selecting the main SEM menu option: "Manage", 312 then select "Include Files", then select "SAcM Account Manager" and finally edit 312 the include file segment "Custom Code Display = WAR Process Requests". Search 312 for the text shown above, and insert Perl code between the 312 CUSTOM_CODE_START lines or CUSTOM_CODE_FINISH lines. This code will then be 312 executed on the target agent whenever the "MultiPlatformCustomApplication" 312 command is invoked via WAR "Process Requests". Such a script running on a target 312 Windows agent has access to the parameter fields shown below, using the variable 312 names indicated in the following table.

312

Parameters:

312

The following parameters may be entered into the WAR DB parameter 312 table for the "MultiPlatformCustomApplication" command:

312

312

312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312 312
312 Parameter Name 312 Variable holding the Parameter Value on the Target System

312 TargetSystem
312 INPUT_SV

312 Platform
312 INPUT_PL

312 ApplicationType
312 INPUT_TY

312 Command
312 INPUT_CO

312 Username
312 INPUT_UN

312 Password
312 INPUT_PW

312 Field AA
312 INPUT_AA

312 Field AB
312 INPUT_AB

312 Field AC
312 INPUT_AC

312 Field AC
312 INPUT_AD

312 Field AE
312 INPUT_AE

312 Field AF
312 INPUT_AF

312 Field AG
312 INPUT_AG

312 Field AH
312 INPUT_AH

312 Field AI
312 INPUT_AI

312 Field AJ
312 INPUT_AJ

312 Field AK
312 INPUT_AK

312 Field AL
312 INPUT_AL

312 Field AM
312 INPUT_AM

312 Field AN
312 INPUT_AN

312 Field AO
312 INPUT_AO

312 Field AP
312 INPUT_AP

312 Field AQ
312 INPUT_AQ

312 Field AR
312 INPUT_AR

312 Field AS
312 INPUT_AS

312 Field AT
312 INPUT_AT

312 Field AU
312 INPUT_AU
312

312

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 @{{CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Fields) 330 @}}CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Fields) 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 330 # 330 # The following definitions prevent errors in pre-processing 330 # from interrupting the operation. 330 # 330 print "\@{{AUTOCLOSE 5\n"; 330 print "\@{{UNATTENDED\n"; 330 330 # 330 # No column headers. 330 # 330 print "\@{{HEADER_OFF\n"; 330 330 # 330 # Enter the selected agent into the input field 330 # 330 print "SV : ", $SelectedEntry{0}{"QC"}{"value"}, "\n"; # target system 330 330 #include SAcM_WarInProgress 330 330 # 330 # change the status to "In Progress" 330 # 330 $ENTRY_QA = $SelectedEntry{0}{"QA"}{"value"}; 330 $ENTRY_QB = $SelectedEntry{0}{"QB"}{"value"}; 330 $ENTRY_QE = $SelectedEntry{0}{"QE"}{"value"}; 330 330 WarInProgress(); 330 330 @{{CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Fields) 330 @}}CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Fields) 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 @{{CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-NT) 314 @}}CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-NT) 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 #use Sysgem; 314 314 print "Multi Platform Custom Application - Command: [$INPUT_CO] \n"; 314 314 print " Username: [$INPUT_UN] \n"; 314 #print " Password: [$INPUT_PW] \n"; 314 314 print " Servername: [$INPUT_SV] \n"; 314 print " Platform: [$INPUT_PL] \n"; 314 314 314 print " Field AA: [$INPUT_AA] \n"; 314 print " Field AB: [$INPUT_AB] \n"; 314 print " Field AC: [$INPUT_AC] \n"; 314 print " Field AD: [$INPUT_AD] \n"; 314 print " Field AE: [$INPUT_AE] \n"; 314 print " Field AF: [$INPUT_AF] \n"; 314 print " Field AG: [$INPUT_AG] \n"; 314 print " Field AH: [$INPUT_AH] \n"; 314 print " Field AI: [$INPUT_AI] \n"; 314 print " Field AJ: [$INPUT_AJ] \n"; 314 print " Field AK: [$INPUT_AK] \n"; 314 print " Field AL: [$INPUT_AL] \n"; 314 print " Field AM: [$INPUT_AM] \n"; 314 print " Field AN: [$INPUT_AN] \n"; 314 print " Field AO: [$INPUT_AO] \n"; 314 print " Field AP: [$INPUT_AP] \n"; 314 print " Field AQ: [$INPUT_AQ] \n"; 314 print " Field AR: [$INPUT_AR] \n"; 314 print " Field AS: [$INPUT_AS] \n"; 314 print " Field AT: [$INPUT_AT] \n"; 314 print " Field AU: [$INPUT_AU] \n"; 314 314 314 314 @{{CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-NT) 314 @}}CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-NT) 326 @{{CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Post) 326 @}}CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Post) 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 326 use Time::localtime; 326 326 #include SAcM_WarGetParams 326 326 # 326 # Read the parameters 326 # 326 %Params = (); 326 $count = GetWarParams(\%Params); 326 326 326 $INPUT_TY = $Params{"ApplicationType"}; 326 $INPUT_CO = $Params{"Command"}; 326 $INPUT_UN = $Params{"Username"}; 326 $INPUT_PW = $Params{"Password"}; 326 $INPUT_AA = $Params{"Field_AA"}; 326 $INPUT_AB = $Params{"Field_AB"}; 326 $INPUT_AC = $Params{"Field_AC"}; 326 $INPUT_AD = $Params{"Field_AD"}; 326 $INPUT_AE = $Params{"Field_AE"}; 326 $INPUT_AF = $Params{"Field_AF"}; 326 $INPUT_AG = $Params{"Field_AG"}; 326 $INPUT_AH = $Params{"Field_AH"}; 326 $INPUT_AI = $Params{"Field_AI"}; 326 $INPUT_AJ = $Params{"Field_AJ"}; 326 $INPUT_AK = $Params{"Field_AK"}; 326 $INPUT_AL = $Params{"Field_AL"}; 326 $INPUT_AM = $Params{"Field_AM"}; 326 $INPUT_AN = $Params{"Field_AN"}; 326 $INPUT_AO = $Params{"Field_AO"}; 326 $INPUT_AP = $Params{"Field_AP"}; 326 $INPUT_AQ = $Params{"Field_AQ"}; 326 $INPUT_AR = $Params{"Field_AR"}; 326 $INPUT_AS = $Params{"Field_AS"}; 326 $INPUT_AT = $Params{"Field_AT"}; 326 $INPUT_AU = $Params{"Field_AU"}; 326 326 #include SAcM_WarUpdateResults 326 326 # 326 # Put the results of the transaction into 326 # the Results table of the WAR DB 326 # 326 WarUpdateResults(); 326 326 326 # 326 # Now update the Audit Trail 326 # 326 326 #include SAcM_Logfile 326 326 UMLogAddAccount($SysgemComputer, 326 $SysgemUsername, 326 $Params{"Username"}, 326 "$INPUT_TY - $INPUT_CO", 326 $SERVER_TYPE, 326 $SERVER_NAME, 326 "AA : $INPUT_AA", 326 "AB : $INPUT_AB", 326 "AC : $INPUT_AC", 326 "AD : $INPUT_AD", 326 "AE : $INPUT_AE", 326 "AF : $INPUT_AF", 326 "AG : $INPUT_AG", 326 "AH : $INPUT_AH", 326 "AI : $INPUT_AI", 326 "AJ : $INPUT_AJ", 326 "AK : $INPUT_AK", 326 "AL : $INPUT_AL", 326 "AM : $INPUT_AM", 326 "AN : $INPUT_AN", 326 "AO : $INPUT_AO", 326 "AP : $INPUT_AP", 326 "AQ : $INPUT_AQ", 326 "AR : $INPUT_AR", 326 "AS : $INPUT_AS", 326 "AT : $INPUT_AT", 326 "AU : $INPUT_AU" ); 326 326 @{{CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Post) 326 @}}CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Post) 327 @{{CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Pre) 327 @}}CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Pre) 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 327 327 #include SAcM_WarGetParams 327 327 # 327 # Read the parameters 327 # 327 %Params = (); 327 $count = GetWarParams(\%Params); 327 327 print "number of parameters found = [$count]\n"; 327 327 # 327 # What is the type of the target platform? 327 # 327 my $INPUT_PL = $Params{"Platform"}; 327 327 327 # 327 # Create a hash defining all the parameter types that 327 # exist with this command 327 # 327 # (Indicate the INPUT variable names used by the target script). 327 # 327 if (lc($INPUT_PL) eq "windows" || lc($INPUT_PL) eq "nt") 327 { 327 my %ParamDefs = ( ApplicationType => { Input => "\$INPUT_TY" }, 327 Command => { Input => "\$INPUT_CO" }, 327 Username => { Input => "\$INPUT_UN" }, 327 Password => { Input => "\$INPUT_PW" }, 327 Platform => { Input => "\$INPUT_PL" }, 327 Field_AA => { Input => "\$INPUT_AA" }, 327 Field_AB => { Input => "\$INPUT_AB" }, 327 Field_AC => { Input => "\$INPUT_AC" }, 327 Field_AD => { Input => "\$INPUT_AD" }, 327 Field_AE => { Input => "\$INPUT_AE" }, 327 Field_AF => { Input => "\$INPUT_AF" }, 327 Field_AG => { Input => "\$INPUT_AG" }, 327 Field_AH => { Input => "\$INPUT_AH" }, 327 Field_AI => { Input => "\$INPUT_AI" }, 327 Field_AJ => { Input => "\$INPUT_AJ" }, 327 Field_AK => { Input => "\$INPUT_AK" }, 327 Field_AL => { Input => "\$INPUT_AL" }, 327 Field_AM => { Input => "\$INPUT_AM" }, 327 Field_AN => { Input => "\$INPUT_AN" }, 327 Field_AO => { Input => "\$INPUT_AO" }, 327 Field_AP => { Input => "\$INPUT_AP" }, 327 Field_AQ => { Input => "\$INPUT_AQ" }, 327 Field_AR => { Input => "\$INPUT_AR" }, 327 Field_AS => { Input => "\$INPUT_AS" }, 327 Field_AT => { Input => "\$INPUT_AT" }, 327 Field_AU => { Input => "\$INPUT_AU" } 327 ); 327 327 # 327 # Update the target script with 327 # the input field values 327 # 327 327 UpdateTargetScript(\%ParamDefs, \%Params, "NT", "NoChanges"); 327 } 327 elsif (lc($INPUT_PL) eq "unix") 327 { 327 my %ParamDefs = ( ApplicationType => { Input => "INPUT_TY" }, 327 Command => { Input => "INPUT_CO" }, 327 Username => { Input => "INPUT_UN" }, 327 Password => { Input => "INPUT_PW" }, 327 Platform => { Input => "INPUT_PL" }, 327 Field_AA => { Input => "INPUT_AA" }, 327 Field_AB => { Input => "INPUT_AB" }, 327 Field_AC => { Input => "INPUT_AC" }, 327 Field_AD => { Input => "INPUT_AD" }, 327 Field_AE => { Input => "INPUT_AE" }, 327 Field_AF => { Input => "INPUT_AF" }, 327 Field_AG => { Input => "INPUT_AG" }, 327 Field_AH => { Input => "INPUT_AH" }, 327 Field_AI => { Input => "INPUT_AI" }, 327 Field_AJ => { Input => "INPUT_AJ" }, 327 Field_AK => { Input => "INPUT_AK" }, 327 Field_AL => { Input => "INPUT_AL" }, 327 Field_AM => { Input => "INPUT_AM" }, 327 Field_AN => { Input => "INPUT_AN" }, 327 Field_AO => { Input => "INPUT_AO" }, 327 Field_AP => { Input => "INPUT_AP" }, 327 Field_AQ => { Input => "INPUT_AQ" }, 327 Field_AR => { Input => "INPUT_AR" }, 327 Field_AS => { Input => "INPUT_AS" }, 327 Field_AT => { Input => "INPUT_AT" }, 327 Field_AU => { Input => "INPUT_AU" } 327 ); 327 327 # 327 # Update the target script with 327 # the input field values 327 327 UpdateTargetScript(\%ParamDefs, \%Params, "UNIX", "NoChanges"); 327 } 327 else 327 { 327 die "Unrecognised platform type: \"$INPUT_PL\"\n"; 327 } 327 327 @{{CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Pre) 327 @}}CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Pre) 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 @{{CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-UNIX) 315 @}}CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-UNIX) 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 315 315 315 #set -v 315 315 echo "Multi Platform Custom Application - Command: [${INPUT_CO}] " 315 315 echo " Username: [${INPUT_UN}] " 315 #echo " Password: [${INPUT_PW}] " 315 315 315 echo " Servername: [${INPUT_SV}] " 315 echo " Platform: [${INPUT_PL}] " 315 315 echo " Field AA: [${INPUT_AA}] " 315 echo " Field AB: [${INPUT_AB}] " 315 echo " Field AC: [${INPUT_AC}] " 315 echo " Field AD: [${INPUT_AD}] " 315 echo " Field AE: [${INPUT_AE}] " 315 echo " Field AF: [${INPUT_AF}] " 315 echo " Field AG: [${INPUT_AG}] " 315 echo " Field AH: [${INPUT_AH}] " 315 echo " Field AI: [${INPUT_AI}] " 315 echo " Field AJ: [${INPUT_AJ}] " 315 echo " Field AK: [${INPUT_AK}] " 315 echo " Field AL: [${INPUT_AL}] " 315 echo " Field AM: [${INPUT_AM}] " 315 echo " Field AN: [${INPUT_AN}] " 315 echo " Field AO: [${INPUT_AO}] " 315 echo " Field AP: [${INPUT_AP}] " 315 echo " Field AQ: [${INPUT_AQ}] " 315 echo " Field AR: [${INPUT_AR}] " 315 echo " Field AS: [${INPUT_AS}] " 315 echo " Field AT: [${INPUT_AT}] " 315 echo " Field AU: [${INPUT_AU}] " 315 315 315 @{{CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-UNIX) 315 @}}CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-UNIX) 316 @{{CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-VMS) 316 @}}CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-VMS) 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 316 @{{CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-VMS) 316 @}}CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-VMS) 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 @{{CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Init-NT) 337 @}}CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Init-NT) 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 337 @{{CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Init-NT) 337 @}}CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Init-NT) 338 @{{CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Init-Post) 338 @}}CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Init-Post) 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 338 @{{CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Init-Post) 338 @}}CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Init-Post) 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 @{{CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Init-UNIX) 340 @}}CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Init-UNIX) 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 340 @{{CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Init-UNIX) 340 @}}CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Init-UNIX) 341 @{{CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Init-VMS) 341 @}}CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Init-VMS) 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 341 @{{CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Init-VMS) 341 @}}CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Init-VMS) 350 @{{CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Controls) 350 @}}CUSTOM_CODE_START(MultiPlatformCustomApplication-AA-Script-Controls) 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 350 @{{CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Controls) 350 @}}CUSTOM_CODE_FINISH(MultiPlatformCustomApplication-AA-Script-Controls) 361 362 363 364 365 366 367 368 369 370 371 372 # 317 SV 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 Agent 320 18 319 @F@ # @M@ # 311 Register Instance with RBAC 313 0 336 325 0 345 0 346 0 358 # 321 10 322 20 # 312 312

Registers information about this SAcM installation with the Sysgem RBAC product.

312

Before RBAC can be configured for automatic fulfillment of requests, it needs to be provided with information regarding the location of the WAR database and the list of commands available. Since this information can vary depending on the installed version of SAcM, this menu option copies the list of commands from SAcM into RBAC.

312

The following details are required:

312

RBAC Server - a SEM agent which has access to the RBAC database, for instance the web server where RBAC is installed.
Connect to RBAC database via Authorization Server? - if selected, the Authorization Server will be used for database access. If not, the ODBC settings on the selected server will be used. This setting does not apply to SEM version 2.1 and earlier.
WAR Instance Name - a descriptive name for this SAcM WAR instance, used when configuring actions in RBAC.
WAR DSN - the ODBC Data Source Name through which RBAC should access the WAR database.

312

In addition, any number of SEM agents can be selected in the Register Agents field; these agents will be listed as available for RBAC to use.

312

If an error of the form Can't locate RBAC/filename.pm in @INC is returned, you may need to update the agent on the selected RBAC Server; please contact Sysgem for advice.

312 351 /**************************************************/ 351 /* */ 351 /* (Main) AS/400 Agent script */ 351 /* */ 351 /* This script runs on the Sysgem AS/400 agent. */ 351 /* */ 351 /**************************************************/ 351 330 #+++++++++++++++++++++++++++ 330 # | 330 # (Main) Fields script | 330 # | 330 #+++++++++++++++++++++++++++ 330 # 330 # 330 # Use this script to set the values displayed in the fields. 330 # This script runs on the Sysgem client (GUI) before the 330 # fields window for this menu option is displayed. 330 # 330 use strict; 330 330 print "IN : Default WAR Instance\n"; 330 print "DS : " . WAR_DSN . "\n"; 330 print "AA @ " . join("\\", @DefinedServers) . "\n"; 330 print "AA : \n"; 352 /******************************** 352 ** ** 352 ** (Main) MVS Agent script ** 352 ** ** 352 ********************************* 352 ** 352 ** 352 ** This script runs on the Sysgem MVS agent. 352 */ 314 #++++++++++++++++++++++++++++++++++++++ 314 # | 314 # (Main) Windows NT Agent script | 314 # | 314 #++++++++++++++++++++++++++++++++++++++ 314 # 314 # 314 # This script runs on the Sysgem NT agent. 314 # 314 314 use strict; 314 use RBAC::WARInstance; 314 use RBAC::WARAgent; 314 use RBAC::CommandInfo; 314 use RBAC::CommandParameter; 314 use Sysgem; 314 314 # 314 # Disable ODBC proxy? 314 # 314 if ($INPUT_AS == 0) 314 { 314 Sysgem::SEMAuthSvrAddrPort("", 0); 314 } 314 314 # 314 # Parse the HTML table from the end of the script 314 # 314 my $command = ""; 314 my %commands = (); 314 314 while () 314 { 314 chomp; 314 314 if (m|(.+)(.+)|) 314 { 314 # 314 # Command header row 314 # 314 $command = $1; 314 $commands{$1}{"name"} = $1; 314 $commands{$1}{"description"} = $2; 314 } 314 314 if (m|(.+)(.+)(.+)|) 314 { 314 # 314 # Parameter data row 314 # 314 $commands{$command}{"parameters"}{$1}{"name"} = $1; 314 $commands{$command}{"parameters"}{$1}{"type"} = $2; 314 $commands{$command}{"parameters"}{$1}{"desc"} = $3; 314 } 314 } 314 314 # 314 # Make any required changes to the instance 314 # 314 my $dbInstanceByName = RBAC::WARInstance::LookupByName($INPUT_IN); 314 my $dbInstanceByDSN = RBAC::WARInstance::LookupByDSN($INPUT_DS); 314 my $dbInstance = undef; 314 314 if (defined $dbInstanceByName && defined $dbInstanceByDSN) 314 { 314 if ($dbInstanceByName->ID == $dbInstanceByDSN->ID) 314 { 314 print "\@{{SI No changes made to instance.\n"; 314 $dbInstance = $dbInstanceByName; 314 } 314 else 314 { 314 ExitWithError("Cannot rename instance or alter DSN, as both the new name and DSN are already registered."); 314 } 314 } 314 elsif (defined $dbInstanceByName) 314 { 314 $dbInstance = $dbInstanceByName; 314 314 $dbInstance->DSN($INPUT_DS); 314 $dbInstance->Save() or ExitWithError("Could not alter instance $INPUT_IN: " . $dbInstance->Error()); 314 314 print "\@{{SI Updated instance '$INPUT_IN' to be accessed via DSN '$INPUT_DS'.\n"; 314 } 314 elsif (defined $dbInstanceByDSN) 314 { 314 $dbInstance = $dbInstanceByDSN; 314 314 $dbInstance->Name($INPUT_IN); 314 $dbInstance->Save() or ExitWithError("Could not rename instance to $INPUT_IN: " . $dbInstance->Error()); 314 314 print "\@{{SI Renamed instance accessed via DSN '$INPUT_DS' to '$INPUT_IN'.\n"; 314 } 314 else 314 { 314 $dbInstance = new RBAC::WARInstance(); 314 $dbInstance->Name($INPUT_IN); 314 $dbInstance->DSN($INPUT_DS); 314 $dbInstance->Save() or ExitWithError("Could not save instance $INPUT_IN: " . $dbInstance->Error()); 314 314 print "\@{{SI Registered instance '$INPUT_IN', accessed via DSN '$INPUT_DS'.\n"; 314 } 314 314 # 314 # Now register each selected agent in turn 314 # 314 my $agentsRegistered = 0; 314 my $agentsSkipped = 0; 314 314 foreach my $agent (split /, /, $INPUT_AA) 314 { 314 my $dbAgent = RBAC::WARAgent::Lookup($dbInstance->ID, $agent); 314 if (!defined $dbAgent) 314 { 314 $dbAgent = new RBAC::WARAgent($dbInstance->ID, $agent); 314 $dbAgent->FriendlyName($agent); 314 $dbAgent->Save() or ExitWithError("Could not save agent $agent: " . $dbAgent->Error()); 314 314 $agentsRegistered++; 314 } 314 else 314 { 314 $agentsSkipped++; 314 } 314 } 314 314 if ($agentsSkipped) 314 { 314 printf "\@{{SI Registered %d agent%s, and skipped %d that %s already registered.\n", 314 $agentsRegistered, $agentsRegistered == 1 ? "" : "s", 314 $agentsSkipped, $agentsSkipped == 1 ? "was" : "were"; 314 } 314 else 314 { 314 printf "\@{{SI Registered %d agent%s.\n", $agentsRegistered, $agentsRegistered == 1 ? "" : "s"; 314 } 314 314 # 314 # Now registered each command and its parameters 314 # 314 my $commandsRegistered = 0; 314 my $commandsRefreshed = 0; 314 my $parametersRegistered = 0; 314 my $parametersRefreshed = 0; 314 314 foreach my $command (keys %commands) 314 { 314 my $dbCommand = RBAC::CommandInfo::Lookup($dbInstance->ID, $command); 314 314 if (!defined $dbCommand) 314 { 314 $dbCommand = new RBAC::CommandInfo($dbInstance->ID, $command); 314 $dbCommand->Save() or ExitWithError("Could not save command $command: " . $dbCommand->Error()); 314 $commandsRegistered++; 314 } 314 else 314 { 314 $commandsRefreshed++; 314 } 314 314 foreach my $parameter (keys %{$commands{$command}{"parameters"}}) 314 { 314 # 314 # The TargetSystem parameter is included for documentary purposes, 314 # but RBAC handles it specially so let's skip it for brevity! 314 # 314 next if $parameter eq "TargetSystem"; 314 314 my $dbParameter = RBAC::CommandParameter::Lookup($dbInstance->ID, $dbCommand->Name, $parameter); 314 if (!defined $dbParameter) 314 { 314 $dbParameter = new RBAC::CommandParameter($dbInstance, $dbCommand, $parameter); 314 $parametersRegistered++; 314 } 314 else 314 { 314 $parametersRefreshed++; 314 } 314 314 $dbParameter->ParameterType($commands{$command}{"parameters"}{$parameter}{"type"}); 314 $dbParameter->Comment($commands{$command}{"parameters"}{$parameter}{"desc"}); 314 $dbParameter->Save() or ExitWithError("Could not save parameter $parameter of command $command: " . $dbParameter->Error()); 314 } 314 } 314 314 if ($commandsRegistered || $parametersRegistered) 314 { 314 printf "\@{{SI Registered %d command%s and %d parameter%s.\n", 314 $commandsRegistered, $commandsRegistered == 1 ? "" : "s", 314 $parametersRegistered, $parametersRegistered == 1 ? "" : "s"; 314 } 314 314 if ($commandsRefreshed || $parametersRefreshed) 314 { 314 printf "\@{{SI Refreshed %d command%s and %d parameter%s.\n", 314 $commandsRefreshed, $commandsRefreshed == 1 ? "" : "s", 314 $parametersRefreshed, $parametersRefreshed == 1 ? "" : "s"; 314 } 314 314 print "\@{{SI Instance successfully registered with RBAC.\n"; 314 314 # 314 # Bail out 314 # 314 sub ExitWithError($) 314 { 314 print "\@{{SE $_[0]\n"; 314 print "\@{{SE Could not register this WAR instance with RBAC.\n"; 314 exit; 314 } 314 __DATA__ 314 #include WAR_Command_Description_Table 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # | 326 # (Main) Windows NT post-processing script | 326 # | 326 #+++++++++++++++++++++++++++++++++++++++++++++++ 326 # 326 # 326 # This script runs on the Sysgem client (GUI) 326 # after all scripts have run on the agent. 326 # 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # | 327 # (Main) Windows NT pre-processing script | 327 # | 327 #++++++++++++++++++++++++++++++++++++++++++++++ 327 # 327 # 327 # This script runs on the Sysgem client (GUI) 327 # before any scripts run on the agent. 327 # 353 #++++++++++++++++++++++++++++++++ 353 # | 353 # (Main) Tandem Agent script | 353 # | 353 #++++++++++++++++++++++++++++++++ 353 # 353 # 353 # This script runs on the Sysgem Tandem agent. 353 # 315 #!/bin/ksh -ph 315 # 315 #{{SHELL_LINUX #!/bin/sh 315 # 315 #++++++++++++++++++++++++++++++++ 315 # | 315 # (Main) UNIX Agent script | 315 # | 315 #++++++++++++++++++++++++++++++++ 315 # 315 # 315 # This script runs on the Sysgem UNIX agent. 315 # 316 $!+++++++++++++++++++++++++++++| 316 $! | 316 $! (Main) VMS Agent script | 316 $! | 316 $!+++++++++++++++++++++++++++++| 316 $! 316 $! 316 $! This script runs on the Sysgem VMS agent. 316 $! 354 /**************************************************/ 354 /* */ 354 /* (Main) AS/400 Agent script */ 354 /* */ 354 /* This script runs on the Sysgem AS/400 agent */ 354 /* before the display window values are loaded. */ 354 /* */ 354 /**************************************************/ 354 355 /*************************************** 355 ** ** 355 ** (Initialization) MVS Agent script ** 355 ** ** 355 **************************************** 355 ** 355 ** 355 ** This script runs on the Sysgem MVS agent before the 355 ** display window values are loaded. 355 */ 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # | 337 # (Initialization) Windows NT Agent script | 337 # | 337 #++++++++++++++++++++++++++++++++++++++++++++++++ 337 # 337 # 337 # This script runs on the Sysgem NT agent before the 337 # display window values are loaded. 337 # 337 #use Sysgem; 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # | 338 # (Initialization) Windows NT post-processing script | 338 # | 338 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 338 # 338 # 338 # This script runs on the Sysgem client (GUI) 338 # after the initialization script has run on 338 # the agent. 338 # 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # | 356 # (Initialization) Tandem Agent script | 356 # | 356 #+++++++++++++++++++++++++++++++++++++++++++ 356 # 356 # 356 # This script runs on the Sysgem Tandem agent before the 356 # display window values are loaded. 356 # 356 # 340 #!/bin/ksh -ph 340 # 340 #{{SHELL_LINUX #!/bin/sh 340 # 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # | 340 # (Initialization) UNIX Shell script | 340 # | 340 #+++++++++++++++++++++++++++++++++++++++++ 340 # 340 # 340 # This script runs on the Sysgem UNIX agent before the 340 # display window values are loaded. 340 # 340 # 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! | 341 $! (Initialization) VMS Agent script | 341 $! | 341 $!++++++++++++++++++++++++++++++++++++++++ 341 $! 341 $! 341 $! This script runs on the Sysgem VMS agent before the 341 $! display window values are loaded. 341 $! 350 #++ 350 # 350 # Control Definitions 350 # 350 # This script adds controls to / removes controls from 350 # the menu definition. 350 # 350 # 350 # Each control definition starts FIELD++ and ends FIELD--. 350 # By default, the field is added at the end of the list. 350 # To add the field at the start of the list replace FIELD-- 350 # with START-- 350 # 350 # 350 # Additional options (must be at start of line): 350 # 350 # REMOVE_ALL - removes all controls 350 # REMOVE_CONTROL XX - removes control with code XX 350 # REMOVE_PAGE - removes all controls on page 350 # 350 #-- 361 362 363 364 365 366 367 368 369 370 371 372 # 317 ** 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 ~f~oProvide the details required to register this instance and click 'Apply'. 320 4 319 @F@ # 317 ** 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 ~f~oFor more details, please refer to the RBAC documentation. 320 4 319 @F@ # 317 ** 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 320 4 319 @F@ # 317 ** 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 ~f~bGeneral Details 320 4 319 @F@ # 317 SV 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 RBAC Server: 320 18 319 @F@ # 317 AS 343 16777215 323 344 1 332 347 000 333 334 0 324 0 329 335 0 348 2 349 1 357 318 320 1 319 Connect to RBAC database via Authorization Server? @F@ # 317 IN 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 2 349 1 357 318 WAR Instance Name: 320 0 319 @F@ # 317 DS 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 2 349 1 357 318 WAR DSN: 320 0 319 @F@ # 317 ** 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 320 4 319 @F@ # 317 ** 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 ~f~bAgent Registration 320 4 319 @F@ # 317 ** 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 1 349 1 357 318 ~fSelect the agents to be made available to this RBAC instance. 320 4 319 @F@ # 317 AA 343 16777215 323 344 332 347 000 333 334 0 324 0 329 335 0 348 2 349 2 357 318 Register agents: 320 11 319 @F@ # @M@ 501 Full 502 SV,QA,QB,QC,QD,QE,QF,QG,QH,QI,QJ,QK,QL,QM,QN,QO,QP,QQ,QR,QS,QT,QU,QV,QW,QX,QY @L@ # 501 Basic 502 SV,QA,QB,QC,QD,QE @L@ # 420 0 421 421

Database Filename:

421

To use a Microsoft Access database, simply enter the file name and location 421 for a .mdb file. e.g.

421

\\servername\sharename\WAR.mdb

421

The file will be created automatically in the location chosen.

421

If an alternative DBMS is required, then create a new database file and set 421 the ODBC System DSN: "Web Access Request DB" to point to this file. Do 421 not create tables in the database file since SAcM will do this automatically the 421 first time it accesses the database.

421

See the main on-line help for "Web Access Request" for the format 421 of the WAR database.

421

Mode of Operation:

421

Select 'Automatic' to have the entries read and processed automatically. Each 421 entry will be read from the database and processed one at a time.

421

Select 'Semi-Automatic' and all entries will be read from the database and 421 displayed. Individual entries are manually selected and the appropriate menu 421 option invoked.

421 122 @{{CUSTOM_CODE_START(Startup-Script-421E-F14C-034D) 122 @}}CUSTOM_CODE_START(Startup-Script-421E-F14C-034D) 122 #++++++++++++++++++++++++++++++++++ 122 # | 122 # Windows NT script (PERL). | 122 # | 122 #++++++++++++++++++++++++++++++++++ 122 # 122 # 122 # Use this script to set the values displayed in the above 122 # fields. This script runs on the Sysgem client (GUI). 122 # 122 # 122 122 #include SAcM_WAR_Startup 122 122 @{{CUSTOM_CODE_FINISH(Startup-Script-421E-F14C-034D) 122 @}}CUSTOM_CODE_FINISH(Startup-Script-421E-F14C-034D) 401 AC 427 16777215 405 428 425 431 000 423 424 0 406 0 432 Mode 422 0 407 402 ~f~o Open Web Access Request Database 404 4 403 429 1 430 1 @P@ # 401 AD 427 16777215 405 428 425 431 000 423 424 0 406 0 432 Mode 422 0 407 402 404 4 403 429 1 430 1 @P@ # 401 AA 427 16777215 405 'Automatic' displays and automatically processes each entry one at a time. Semi-Automatic displays all entries for manual selection and initiation of menu option. 428 Semi-Automatic 425 431 000 423 424 0 406 0 432 Mode 422 0 407 402 Mode of Operation? 404 3 403 Automatic\Semi-Automatic 429 1 430 1 @P@ # 401 AB 427 16777215 405 428 425 431 000 423 424 0 406 0 432 Mode 422 0 407 402 404 4 403 429 1 430 1 @P@ # 401 AE 427 16777215 405 428 425 431 000 423 424 0 406 0 432 Mode 422 0 407 402 Start Date (YYYY-MM-DD) 404 0 403 429 1 430 1 @P@ # 401 BM 427 16777215 405 428 425 431 000 423 424 0 406 0 432 Mode 422 0 407 402 Unattended operation (no pop-ups) 404 1 403 429 1 430 1 @P@ # 401 ** 427 16777215 405 428 425 431 000 423 424 0 406 0 432 Mode 422 0 407 402 404 4 403 429 1 430 1 @P@ # 401 YS 427 16777215 405 428 425 431 000 423 424 0 406 0 432 Database 422 0 407 402 ~f~o Open Web Access Database 404 4 403 429 1 430 1 @P@ # 401 YW 427 16777215 405 428 425 431 000 423 424 0 406 0 432 Database 422 0 407 402 404 4 403 429 1 430 1 @P@ # 401 DS 427 16777215 405 428 425 431 000 423 424 0 406 0 432 Database 422 0 407 402 Web Access DB file reference from server 404 0 403 429 3 430 1 @P@ # 401 DW 427 16777215 405 Enter the location and filename of the .mbd file {for an Access DB) 428 425 431 000 423 424 0 406 0 432 Database 422 0 407 402 * Web Access DB file reference from workstation 404 0 403 429 3 430 1 @P@ # 401 YZ 427 16777215 405 428 425 431 000 423 424 0 406 0 432 Database 422 0 407 402 * (only for SEM versions prior to 2.2) 404 4 403 429 1 430 1 @P@ # @D@ # # # # # License Information. # #{{PRODUCT:Custom Displays #{{CREATED_BY:Sysgem AG,Zurich,8008,Switzerland # # Checksum. # #{{CHECKSUM:C166-C4F2-F63E-E0FC-B1A8-DFA1-0FD6-8B09

312 Parameter Name	312 Variable holding the Parameter Value on the Target System
312 TargetSystem	312 INPUT_SV
312 Platform	312 INPUT_PL
312 ApplicationType	312 INPUT_TY
312 Command	312 INPUT_CO
312 Username	312 INPUT_UN
312 Password	312 INPUT_PW
312 Field AA	312 INPUT_AA
312 Field AB	312 INPUT_AB
312 Field AC	312 INPUT_AC
312 Field AC	312 INPUT_AD
312 Field AE	312 INPUT_AE
312 Field AF	312 INPUT_AF
312 Field AG	312 INPUT_AG
312 Field AH	312 INPUT_AH
312 Field AI	312 INPUT_AI
312 Field AJ	312 INPUT_AJ
312 Field AK	312 INPUT_AK
312 Field AL	312 INPUT_AL
312 Field AM	312 INPUT_AM
312 Field AN	312 INPUT_AN
312 Field AO	312 INPUT_AO
312 Field AP	312 INPUT_AP
312 Field AQ	312 INPUT_AQ
312 Field AR	312 INPUT_AR
312 Field AS	312 INPUT_AS
312 Field AT	312 INPUT_AT
312 Field AU	312 INPUT_AU