Sub RegisterNegotiateAccount()
  Query.SQL.Text = "begin PR_NEGOTIATE_ACCOUNT_REGISTER(:NAME, :DESCRIPTION); end;"
  Query.ParamByName("NAME").Value = String(256, "A") 'allocate space for output value
  Query.ParamByName("DESCRIPTION").Value = GetParamValue("DESCRIPTION")
  Query.Execute

  MsgBox "Пользователь домена Windows """ & Query.ParamByName("NAME").Value & """ зарегистрирован."
end Sub