'* 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 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