gcue Posted March 20, 2008 Share Posted March 20, 2008 quick question. how can i put a condition at the top of the script that says: if current_user is not (then list of account names) then msgbox "ur not allowed to use this script" exit endif something along those lines? Link to comment Share on other sites More sharing options...
Monamo Posted March 20, 2008 Share Posted March 20, 2008 quick question. how can i put a condition at the top of the script that says: if current_user is not (then list of account names) then msgbox "ur not allowed to use this script" exit endif something along those lines?Here's a quick and dirty. Just remember to update the 0 index in the array (and the array initialization count) to reflect the number of users in the list. Dim $aAuthorizedUsers[5] = ["4","User01","User02","User03","User04"] $iAuthorized = 0 For $i = 1 To $aAuthorizedUsers[0] If @UserName = $aAuthorizedUsers[$i] Then $iAuthorized = 1 ExitLoop EndIf Next If Not $iAuthorized Then MsgBox(16,"Access Denied - Invalid Account","You are not authorized to use this application." &@CRLF &@CRLF &"Exiting...",5) Exit(5) EndIf - MoChr(77)& Chr(97)& Chr(100)& Chr(101)& Chr(32)& Chr(121)& Chr(97)& Chr(32)& Chr(108)& Chr(111)& Chr(111)& Chr(107)-------I've told you 100,000 times not to exaggerate!-------Don't make me hit you with my cigarette hand...-------My scripts:Random Episode Selector, Keyboard MouseMover, CopyPath v2.1, SmartRename for XP,Window Tracer[sup]New![/sup] Link to comment Share on other sites More sharing options...
Swift Posted March 20, 2008 Share Posted March 20, 2008 If Not @Username = $Username Then Msgbox(0, "You Cannot", "Use This Script", 2) Exit Endif Link to comment Share on other sites More sharing options...
gcue Posted March 20, 2008 Author Share Posted March 20, 2008 that wont support multiple users tho right?If Not @Username = $Username ThenMsgbox(0, "You Cannot", "Use This Script", 2)ExitEndif Link to comment Share on other sites More sharing options...
gcue Posted March 20, 2008 Author Share Posted March 20, 2008 ill give it a whirl! thanks! Here's a quick and dirty. Just remember to update the 0 index in the array (and the array initialization count) to reflect the number of users in the list. Dim $aAuthorizedUsers[5] = ["4","User01","User02","User03","User04"] $iAuthorized = 0 For $i = 1 To $aAuthorizedUsers[0] If @UserName = $aAuthorizedUsers[$i] Then $iAuthorized = 1 ExitLoop EndIf Next If Not $iAuthorized Then MsgBox(16,"Access Denied - Invalid Account","You are not authorized to use this application." &@CRLF &@CRLF &"Exiting...",5) Exit(5) EndIf Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now