All Forums  Old, obsolete or unused  Scripting Archive  Rename and create folder

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

Screensize: 640 x 480 800 x 600 1024 x 768 1280 x 1024 UserName: Password: Format Mode: Basic  Help  Prompt  Format: Font Andale Mono Arial Arial Black Book Antiqua Century Gothic Comic Sans MS Courier New Georgia Impact Lucida Console Script MT Bold Stencil Tahoma Times New Roman Trebuchet MS Verdana   Size 1 2 3 4 5 6   Color Black Red Yellow Pink Green Orange Purple Blue Beige Brown Teal Navy Maroon LimeGreen Message: * HTML is OFF * Forum Code is ON Smilies [quote][i]Originally posted by gustavobapti[/i] [br]Hello all. In my windows 2003 domain all users have their H: drive (a network drive mapped by default during the logon). Physically the share is located on fileserver's d:/ drive.(D:/Home/). The share Users consists of folders for each of the users (D:/Home/jsmith, D:/Home/acarter… etc) I was requested to rename the old folder and create a new folder for each of the users called "Citrix" D:/Home/domainusername/Citrix I would like to create a vb script to rename the old folder (Citrix to Citrixold) and create a new folder with the same old name " Citrix". Option Explicit Function ConfigHome(oUser, sPath, sSite) set oWSH = CreateObject("WScript.Shell") If Not FSO.FolderExists(sPath & "\CITRIX") Then FSO.CreateFolder (sPath & "\CITRIX") Else FSO.MoveFolder sPath & "\CITRIX", sPath & "\CITRIX.old" End If If Not FSO.FolderExists(sPath & "\CITRIX") Then FSO.CreateFolder (sPath & "\CITRIX") Set oCitrixHD = FSO.GetFolder(sPath & "\CITRIX") If not oCitrixHD.Attributes And 2 Then oCitrixHD.attributes = oCitrixHD.Attributes XOR 2 End If 'WScript.Sleep 15000 call oWSH.Run("cmd /c echo y| CACLS " & sPath & " /t /e /g " & oUser.SamAccountName & ":f", 0, True) 'WScript.Sleep 5000 call oWSH.Run("cmd /c echo y| SubInACL /file " & sPath & " /setowner=Americas\" & oUser.SamAccountName, 0, TRUE) 'WScript.Sleep 5000 call oWSH.Run("cmd /c echo y| SubInACL /subdirectories " & sPath & "\*.* /setowner=Americas\" & oUser.SamAccountName, 0, TRUE) End If End Function Thanks. -------------------------------------------------------------------------------- Gustavo [/quote]   Check here to include your profile signature. Note: please do not cross-post. Cross-postings will be deleted and ignored. Thanks for helping to keep this forum junk-free!