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.


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 Im 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 Im not able to figure out why the script continuously errors.

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.