Go4Expert - VBS Script Help Needed Please

Hi sorry if im in the wrong section but I came across this forum and I saw vbs on the title and I thought It was appropriate. :embarasse

Im hoping some one can help me with the problem that im having regarding a script that I put together from a couple of others.

Long story short I’m having an issue with user roaming profiles that have been configured for Citrix. Some of the server only see a folder if the user has full control over the folder + folder name = username and others only see the folder if the user has full control + folder name= username.domain. The issue was introduced because some of the citrix TS servers are 2003 and others are 2003 Sp2.

Patching is not a solution that is currently on the table. After having a look around I found several methods but non of witch worked hence I came with this script

The scrip supposed to check
a. Does the folder exist
b. If not create it
c. Assign full control from a user to the folder.

The scipt works fine it creates folder/checks them. It assigns proper permissions to the folder. But the issue is that when the script is runs on login it comes up with an error Line X Char X errors. Now after going through the script I have tried to fix as many of these as i can but the errors still pop up. Unfortunately my knowledge of VBS is very limited and I’m not able to figure out why the script continuously errors. :worried:

Code:

Option Explicit

Dim objFSO, objFolder, objShell, intRunError

Dim strDirectory, strHome, strUser



strDirectory = "\\milfs02\profilests$\%username%"



Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objShell = CreateObject("Wscript.Shell")



If objFSO.FolderExists(strDirectory) Then

Set objFolder = objFSO.GetFolder(strDirectory)

Else



Set objFolder = objFSO.CreateFolder(strDirectory)

WScript.Echo "Just created " & strDirectory

End If



set objFolder = nothing

If objFSO.FolderExists(strDirectory) Then

                intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " _

                & strDirectory & " /e /c /g “%username%”:F ", 2, True)



                If intRunError <> 0 Then

                        Wscript.Echo "Error assigning permissions for user " _

                        & strUser & " to home folder " & strDirectory

                End If

        End If

End Function

It was combinde from http://www.computerperformance.co.uk/ezine/ezine78.htm and http://www.go4expert.com/showthread.php?t=1890

Thankyou in advance and I hope someone can help.
:shy: