' PERMISS.VBS = This VBS script *requires* PERMS_1.CMD to be present inside *same* directory/folder !
Dim WSHShell
Const BIF_editbox=&H0010
Const BIF_returnonlyfsdirs=&H0001
'MsgBox "Grant Administrator level full access owner privileges to desired NTFS folder, (sub)folders + files."
' "..."& chr(13) &"..."
Set objDlg=WScript.CreateObject("Shell.Application")
Set objF=objDlg.BrowseForFolder(&H0,_
"Administrator level full access owner privileges => Select/(double-)click NTFS drive/partition/volume Letter/Label or folder/subfolder Name => click OK/press Enter to proceed or click Cancel/press Esc to abort.   CAUTION: Larger drive(s)/folder(s) take longer!",_
BIF_editbox+BIF_returnonlyfsdirs,17)
If InStr(1,TypeName(objF),"Folder")>0 Then
'MsgBox objF.self.path
wdir=objF.self.path
Else
'MsgBox "Canceled"
Wscript.Quit
End If
Set objShell=WScript.CreateObject("WScript.shell")
objShell.Run "PERMS_1.CMD " &chr(34)&wdir&chr(34)
'