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.
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
Thankyou in advance and I hope someone can help.
