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.
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.