Hallo Leute,
ich bräucht mal Hilfe.
In der Zentralen Benutzerverwaltung möchte ich bei unseren Usern die Lizenzen abgleichen.
Habe mir dazu das SAP Scripting ausgewählt.
Die Aufzeichnung sowie das Abspielen funktioniert einwandfrei.
Da es sich aber um einige tausend User handelt habe ich ein Excel File mit den benötigten Daten erstellt.
Script wird gestartet, Aufruf einer neuen Session funktioniert.
Dann aber kommt der Fehler "Unkown Error". ist leider nicht sehr aussagekräftig.
Starte ich das Script ohne Exceleinbindung läuft es einwandfrei.
Hat jemand eine Erklärung woran es liegen könnte?
SAP GUI 7.5 Patch 2Excel 2013
TR SU01
Hier noch das Coding
If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
Dim objExcel
Dim objSheet, intRow, i
Set objExcel = GetObject("Excel.Application")
Set objSheet = objExcel.ActiveWorkbook.ActiveSheet
For i = 2 to objSheet.UsedRange.Rows.Count
COL1 = Trim(CStr(objSheet.Cells(i, 1).Value)) 'UserID
COL2 = Trim(CStr(objSheet.Cells(i, 2).Value)) 'System
COL3 = Trim(CStr(objSheet.Cells(i, 3).Value)) 'SysID
COL4 = Trim(CStr(objSheet.Cells(i, 4).Value)) 'MANDT
COL5 = Trim(CStr(objSheet.Cells(i, 5).Value)) 'UserID
session.findById("wnd[0]").resizeWorkingPane 178,37,false
session.findById("wnd[0]/tbar[0]/okcd").text = "SU01"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtUSR02-BNAME").text = COL1
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[1]/btn[18]").press
session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpLAW").select
session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpLAW/ssubMAINAREA:SAPLLAW_SUU5:0114/cntlLAW_ALV/shellcont/shell").pressToolbarButton "&FIND"
session.findById("wnd[1]/usr/txtGS_SEARCH-VALUE").text = "DGBCLNT100"
session.findById("wnd[1]/usr/txtGS_SEARCH-VALUE").caretPosition = 10
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[12]").press
session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpLAW/ssubMAINAREA:SAPLLAW_SUU5:0114/cntlLAW_ALV/shellcont/shell").doubleClickCurrentCell
session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpLAW/ssubMAINAREA:SAPLLAW_SUU5:0114/subLAWSUBSCREEN:SAPLLAW_SUU5:0112/cmbUS930-USERTYP").setFocus
session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpLAW/ssubMAINAREA:SAPLLAW_SUU5:0114/subLAWSUBSCREEN:SAPLLAW_SUU5:0112/cmbUS930-USERTYP").key = "11"
session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpLAW/ssubMAINAREA:SAPLLAW_SUU5:0114/subLAWSUBSCREEN:SAPLLAW_SUU5:0112/txtUS930-SYSID").text = COL3
session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpLAW/ssubMAINAREA:SAPLLAW_SUU5:0114/subLAWSUBSCREEN:SAPLLAW_SUU5:0112/txtUS930-MANDT2").text = COL4
session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpLAW/ssubMAINAREA:SAPLLAW_SUU5:0114/subLAWSUBSCREEN:SAPLLAW_SUU5:0112/ctxtUS930-ANAME").text = COL5
session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpLAW/ssubMAINAREA:SAPLLAW_SUU5:0114/subLAWSUBSCREEN:SAPLLAW_SUU5:0112/ctxtUS930-ANAME").setFocus
session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpLAW/ssubMAINAREA:SAPLLAW_SUU5:0114/subLAWSUBSCREEN:SAPLLAW_SUU5:0112/ctxtUS930-ANAME").caretPosition = 7
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[0]/btn[11]").press
Rem FINALIZATION CONTROL CHECK ************************
aux=col1 & " " & col2 & " " & col3 & " " & col4 & " " & col5
CreateObject("WScript.Shell").run("cmd /c @echo %date% %time% " & aux & " >> C:\SCRIPT\PlOrCreationLog.txt")
next
msgbox "Process Completed"
Rem FINALIZATION CONTROL CHECK ************************
Beste Grüße
Peter