cancel
Showing results for 
Search instead for 
Did you mean: 

Mass composite role assignment to users.

khagendra_padhy
Explorer
0 Kudos

Hi Team,

I am trying to write a vb script for assignment of composite roles to users but facing issues for selecting a particular absolute row.

Can any one suggest a script for this.

We are going to perform this during our cut over activity.


Regards,

Khagendra

Accepted Solutions (1)

Accepted Solutions (1)

khagendra_padhy
Explorer
0 Kudos

HI Gurus,

Can any one please look into & reply ?

Regards,

Khagendra

khagendra_padhy
Explorer
0 Kudos

Seems like nobody know about it .

Regards,

Khagendra

khagendra_padhy
Explorer
0 Kudos

Resolved. By inserting below simple loop.

set msg= session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpACTG/ssubMAINAREA:SAPLSUID_MAINTENANCE:1106/cntlG_ROLES_CONTAINER/shellcont/shell")

If msg1 = "" Then

session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpACTG/ssubMAINAREA:SAPLSUID_MAINTENANCE:1106/cntlG_ROLES_CONTAINER/shellcont/shell").modifyCell i,"AGR_NAME",ExcelSheet.Cells(User_Row,4).Value

session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpACTG/ssubMAINAREA:SAPLSUID_MAINTENANCE:1106/cntlG_ROLES_CONTAINER/shellcont/shell").currentCellColumn = "AGR_NAME"

session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpACTG/ssubMAINAREA:SAPLSUID_MAINTENANCE:1106/cntlG_ROLES_CONTAINER/shellcont/shell").currentCellRow = i

session.findById("wnd[0]/usr/tabsTABSTRIP1/tabpACTG/ssubMAINAREA:SAPLSUID_MAINTENANCE:1106/cntlG_ROLES_CONTAINER/shellcont/shell").pressEnter

i=i+1

else

msg.currentCellColumn = "AGR_NAME"

msg.currentCellRow = i

Do Until msg.getCellValue(i,"AGR_NAME") = ""

i=i+1

Loop

End If

--------------------------

Answers (0)