' Скрипт запрашивает имя пользователя, затем записывает его в макрос !usrname. ' Затем скрипт печатает имя пользователя в лог-файле. ' Использование: ' После выполнения скрипта имя пользователя может быть при необходимости напечатано в окне результатов ' (Output) с помощью, например, следующего синтаксиса ' DO IF $CASENUM=1. ' Print /'*** Расчёт выполнил: ' !usrname. ' End If. ' EXECUTE. ' Можно сделать так, чтобы каждый раз в начале работы скрипт запрашивал имя пользователя ' см. "Automatically run a script or syntax when SPSS starts.SBS" в ' http://www.spsstools.net/SampleScripts.htm#Utils ' Автор: Raynald Levesque, 27.01.2002 Option Explicit Sub Main Dim username As String Dim CmdStr As String username = InputBox$("Введите Ваше имя:","Input Box") ' Debug.Print username CmdStr = "DEFINE !usrname()" & "'" & username & "'" & "!ENDDEFINE." & vbCr & "Execute." & vbCr CmdStr = CmdStr & "DO IF $CASENUM=1." & vbCr CmdStr = CmdStr & "STRING #tmpstr(A20)." & vbCr CmdStr = CmdStr & "COMPUTE #tmpstr=!usrname." & vbCr CmdStr = CmdStr & "PRINT /'*** Расчёт выполнил: ' #tmpstr." & vbCr CmdStr = CmdStr & "END IF." & vbCr CmdStr = CmdStr & "EXECUTE." & vbCr objSpssApp.ExecuteCommands CmdStr,True ' objSpssApp.GetDesignatedOutputDoc.PrintOptions.FooterText = "Расчёт выполнил: " & username End Sub