improve VBScript

'Ive created the script which will get the folder (user account) and the sub folder (website) 
 
option explicit ' Force variable declaration - this can save issues with typos among other things
 
Dim UserID 'stores user accounts (folder names) 
Dim nestedFolders 'stores the sub folder names (web sites) 
Dim strFullPath(100,1) ' stores the path of files and account numbers (which is also folder names)
dim IFullPath 'stores 
dim strStartFolder
dim objFSO
 
Set objFSO = CreateObject("Scripting.FileSystemObject") ' sets the file system object
strStartFolder = "C:\test" ' stores the starting folder
iCount = 0 'sets the count to 0
userID=ShowSubfolders(objFSO.GetFolder(strStartFolder)) ' stores the userID of each of the startFolders
IFullPath = 0 ' Searches sub folders 
 
' Searches sub folders
while userID(icount) <>""
	Dim AppendCount ' counter for loop
	NestedFolders= ShowSubfolders (objFSO.GetFolder(strStartFolder & "\" & userID(icount))) ' displays nest subfolders
	AppendCount = 0 ' sets count to 0 
	while NestedFolders(AppendCount) <> ""
		strFullPath(iFullPath,0)= strStartFolder & "\" & userID(icount) & "\" & NestedFolders(AppendCount) ' concatanates folders 
		strFullPath(iFullPath,1)= userID(icount)
		AppendCount = AppendCount + 1 ' moves counter on one
		ifullPath=iFullPath + 1 ' Moves the counter on one
	wend
	icount = icount + 1 ' moves counter on one
wend
 
'loop through each of the folders and accounts stored in strFullPath 
Dim intCount ' counter for loop
intCount =0 ' sets counter to 0
while strFullPath(intCount,0) <> ""
	msgbox strFullPath(intcount,0) 
	msgbox strFullPath(intcount,1)
	msgbox "cacls " & strFullPath(intCount,0) & "\*.* /T /E /G staff\" & strFullPath(intcount,1) & ":F"
	run "cacls " & strFullPath(intCount,0) & "\*.* /T /E /G staff\" & strFullPath(intcount,1) & ":F"
	intCount=intCount +1 
wend
 
'searches location passed and returns array of sub folders
function ShowSubFolders(Folder)
	dim strFolders() ' Dynamic array
	Dim icount
	dim Subfolder
 
	icount = 0
	redim strFolders(Folder.SubFolders.Count) ' Redimension the array to the correct size
	For Each Subfolder in Folder.SubFolders
		'Wscript.Echo Subfolder.name
		strFolders(icount) = Subfolder.name
		icount =icount  + 1
	Next
	showSubfolders = strFolders
End function
 
'routine to run a program 
Sub Run(ByVal sFile)
	Dim shell
	Set shell = CreateObject("WScript.Shell")
	shell.Run sFile, 1, true
	Set shell = Nothing
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65: