Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '* Verify all Required input is given and sanity checked
- Set args = WScript.Arguments.Named
- iNumberOfArguments = WScript.Arguments.Count
- strUsage = "Usage: /UName:<username> /Perms:<permission> /Folder:<foldername> [ /Owner:<NewOwner>(Default= administrator), /Recursive:[y,n](Default = y)], /Mode:[e(dit),o(verwrite)](Default = edit)"
- StrPermUse = "Valid /Perm Values are: R(ead), C(hange/Write), F(ull Control). Default = C(hange)"
- If args.Exists("Help") Then
- Wscript.Echo strUsage
- wscript.Echo strPermUse
- WScript.Quit
- End If
- If Not args.Exists("Uname") OR Not args.Exists("Perms") OR Not args.Exists("Folder") Then
- Wscript.Echo strUsage
- wscript.Echo strPermUse
- WScript.Quit
- ElseIf iNumberOfArguments >= 5 Or iNumberOfArguments <= 3 Then
- Wscript.Echo strUsage
- wscript.Echo strPermUse
- Wscript.Quit
- End If
- strUName = args.Item("UName")
- strPerms = args.Item("Perms")
- strFolderName = args.Item("Folder")
- If Not args.Exists("Owner") Then
- strOwner = "administrator"
- Else
- strOwner = args.Item("Owner")
- End If
- If Not args.Exists("Recursive") Then
- strRecursive = " /T "
- Elseif StrComp(strRecursive, "n", 1) Then
- strRecursive = " "
- Else
- strRecursive = " /T "
- End If
- If Not args.Exists("Mode") Then
- strMode = " /E "
- Elseif StrComp( strMode, "o", 1) Then
- strMode = " /G "
- Else
- strMode = " /E "
- End If
- if StrComp( strPerms, "c", 1) Then
- strComp = ":C"
- Elseif StrComp(strPerms, "f", 1) Then
- strComp = ":F"
- Elseif StrCompt(strPerms, "r", 1) Then
- strComp = ":R"
- Else
- strComp = ":C"
- End If
- '* Set the String for SubinACL command *'
- strSubin = "/subdirectories " strFolder " /setowner=" strOwner
- subinacl strSubin
- '* Set Stringer for XCacls Command - May want to add another one to make sure Administrtor has Full controler after taking ownership
- strXcalcs = strFolder strRecursive strMode strUName strPerms " /C /Y"
- xcalcs strXcalcs
Add Comment
Please, Sign In to add comment