Posted: Wed Apr 23, 2014 8:25 am Post subject: Менеджер паролей для SAP
Программа для автоматического логина в системы SAP.
Для входа в систему каждый пользователь должен ввести login и password.
У некоторых пользователей есть картридеры и при наличии карты им не нужно вводить логин и пароль, просто выбрать систему и мандант.
Если вы ведете 15 проектов то помнить пароли от разных систем (разработка, качество, продуктив) довольно утомительно. Даже если у вас везде стоит пароль 12345678 то вводить его руками я считаю неэффективным. Зачем что-то делать если это можно автоматизировать и не делать никогда более.
Представляю свою разработку.
Программа хранит пароли в зашифрованном виде, если перенести файл настроек на другой компьютер то пароли нельзя будет расшифровать без мастер пароля.
Вобщем если к вашему компьютеру имеете доступ только вы, или не переживаете за сохранность пароля 123 то всем рекомендую.
При первом старте программа попросит вас ввести мастер пароль, он понадобится если вы с этим файлом настроек пересядете за другой компьютер.
Потом программа попытается определить расположение файла saplogon.ini и sapshcut.exe
Если программа их не найдет то появится диалог открытия файла где попросит указать необходимое. (сохранит в настройках и больше не будет тревожить)
И вы увидите такое окно
Добавляем пароли
Мандант логин и пароль ни у кого вопросов не вызывает.
Проект нужно выбрать из выпадающего списка, там отображены те названия которые у вас записаны в SAPlogon.
Эта строчка очень важна по ней идет поиск системы к которой хотим подключиться.
Просто выберите из списка и не меняйте руками.
Когда заполните все ваше окно будет выглядеть примерно так
Для входа в систему просто нажмите на нужную кнопку.
В случае переезда на другой компьютер возьмите с собой SAPLogin.ini и saplogon.ini
Для копирования в папку нажмите кнопку «Copy saplogon.ini»
На новом месте вы увидите такое окно
Вы должны вспомнить Мастер пароль для пользования старых настроек или просто удалите файл SAPLogin.ini (при запуске создастся заново) и проведите настройку заново.
код программы на AutoIT
If not FileExists ( $sapshcut ) Then
$logonini = IniRead(@ScriptDir&'\SAPLogin.ini',"ini","logonini","")
EndIf
If not FileExists ( $logonini ) Then
Local $sFileOpenDialog = FileOpenDialog("C:\Documents and Settings\User2\Application Data\SAP\Common", "C:\", "saplogon.ini (saplogon.ini)", 1 + 2 )
If @error Then
MsgBox($MB_SYSTEMMODAL, "", "saplogon.ini не найдена ")
Exit
Else
$logonini = $sFileOpenDialog
IniWrite(@ScriptDir&'\SAPLogin.ini',"ini","logonini", $logonini)
EndIf
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form3)
ExitLoop
case $ok_pass
$var_pass1 = GUICtrlRead($ps1)
If $var_pass1 = '' Then
MsgBox (0,'Ошибка', 'Пароль не может быть пустым')
Else
$test = IniRead(@ScriptDir&'\SAPLogin.ini',"ini","test","ssss")
$test = _StringEncrypt(0, $test, $var_pass1)
If $test = 'test' Then
$masterpass = _StringEncrypt(1, $var_pass1,$key)
IniWrite(@ScriptDir&'\SAPLogin.ini',"ini","masterpass", $masterpass)
$masterpass = $var_pass1
$test = _StringEncrypt(1, 'test',$masterpass)
IniWrite(@ScriptDir&'\SAPLogin.ini',"ini","test", $test)
GUISetState(@SW_HIDE, $Form3)
ExitLoop
Else
MsgBox(0, 'Error', ' Не угадал(a), мастер пасс был другим :(')
EndIf
EndIf
EndSwitch
WEnd
case $ok_pass
$var_pass1 = GUICtrlRead($ps1)
$var_pass2 = GUICtrlRead($ps2)
If $var_pass1 <> $var_pass2 Then
MsgBox (1,'Ошибка', 'Пароли не совпадают')
else
If $var_pass1 = '' Then
MsgBox (1,'Ошибка', 'Пароль не может быть пустым')
Else
GUISetState(@SW_HIDE, $Form3)
ExitLoop
EndIf
EndIf
EndSwitch
WEnd
Local $aArray = IniReadSection($logonini, "Description")
local $data
local $item1
If Not @error Then
; Enumerate through the array displaying the keys and their respective values.
For $i = 1 To $aArray[0][0]
if $i > 1 Then
$data = $data & '|' & $aArray[$i][1]
Else
$data = $aArray[$i][1]
$item1 = $aArray[$i][1]
EndIf
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
