8.2.07
Custom Permissions for Test Lab Folder Creation
Do you need to restrict access to folder creation in test lab without using permissions? Do you need to show your users a custom message that will help them? You can use the code I wrote in my spare time below. It will pop up a message to tell users the access is restricted and then you can allow only the TDAdmin group access. You can add to the message to tell users who to call if they need to ahve a folder created.
Function TestLab_ActionCanExecute(ActionName)
On Error Resume Next
if ActionName = "AddFolderAct" then
Dim sMess
sMess = "Folder creation is currently restricted."
MsgBox sMess
if User.IsInGroup("TDAdmin") then
MsgBox "QAGroup access permited"
TestLab_ActionCanExecute = True
else
TestLab_ActionCanExecute = False
end if
else
TestLab_ActionCanExecute = Project_DefaultRes
end if
End Function
Function TestLab_ActionCanExecute(ActionName)
On Error Resume Next
if ActionName = "AddFolderAct" then
Dim sMess
sMess = "Folder creation is currently restricted."
MsgBox sMess
if User.IsInGroup("TDAdmin") then
MsgBox "QAGroup access permited"
TestLab_ActionCanExecute = True
else
TestLab_ActionCanExecute = False
end if
else
TestLab_ActionCanExecute = Project_DefaultRes
end if
End Function
// posted by Chris Emerson @ 15:29 
Subscribe to Posts [Atom]