Copy User Profile with VBS Script problem

[rgaspar]

Hello,

Can you help me?
I tried to copy a profile to another folder by vbscript, but folder Documents not copy complete. Why?
I now this forum not write or speak language vbscript but i search google, etc..etc and not have solution for this problem.

My code Vbscript.vbs

dim wshell, strusername, filesys
Const OverwriteExisting = TRUE
Set WshShell = CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("SYSTEM")
Set filesys = CreateObject("Scripting.FileSystemObject")
StrUsername = wshShell.ExpandEnvironmentStrings("%username%")
msgbox strUsername
Call BackupC
Sub BackupC
If filesys.FolderExists ("C:\Dados\" & StrUsername & ".$$$") Then
If msgbox ("There is already a folder called C:\Dados\" & StrUsername & ".$$$" & ". Do you want to proceed?",4, "Image Customization") = 7 Then
Exit Sub
Else
filesys.DeleteFolder "C:\Dados\" & StrUsername & ".$$$", TRUE
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$")
End If
Else
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$")
End If
 
If filesys.FolderExists ("C:\Users\" & StrUsername) Then
'**** DESKTOP ****
If filesys.FolderExists ("C:\Users\" & StrUsername & "\Desktop") Then
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$" & "\Desktop")
filesys.CopyFolder "C:\Users\" & StrUsername & "\Desktop", "C:\Dados\" & StrUsername & ".$$$" & "\Desktop", TRUE
End If
'**** QUICK LAUNCH ****
If filesys.FolderExists ("C:\Users\" & StrUsername & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch") Then
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$" & "\QuickLinks")
filesys.CopyFolder "C:\Users\" & StrUsername & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch", "C:\Dados\" & StrUsername & ".$$$" & "\QuickLinks", TRUE
End If
'**** FAVORITES ****
If filesys.FolderExists ("C:\Users\" & StrUsername & "\Favorites") Then
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$" & "\Favorites")
filesys.CopyFolder "C:\Users\" & StrUsername & "\Favorites", "C:\Dados\" & StrUsername & ".$$$" & "\Favorites", TRUE
End If
'**** SIGNATURES ****
If filesys.FolderExists ("C:\Users\" & StrUsername & "\AppData\Roaming\Microsoft\Signatures") Then
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$" & "\Signatures")
filesys.CopyFolder "C:\Users\" & StrUsername & "\AppData\Roaming\Microsoft\Signatures", "C:\Dados\" & StrUsername & ".$$$" & "\Signatures", TRUE
End If
'**** CRIA APENAS O FOLDER TEMPLATES ****
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$" & "\Templates")
'**** COPIA O FICHEIRO PERSONAL PARA O FOLDER TEMPLATES ****
If filesys.FileExists ("C:\Users\" & StrUsername & "\AppData\Roaming\Microsoft\Excel\XLSTART\Personal.xls") Then
filesys.CopyFile "C:\Users\" & StrUsername & "\AppData\Roaming\Microsoft\Excel\XLSTART\Personal.xls", "C:\Dados\" & StrUsername & ".$$$" & "\Templates\", TRUE
End If
'**** COPIA O FICHEIRO NORMAL.DOT PARA O FOLDER TEMPLATES ****
If filesys.FileExists ("C:\Users\" & StrUsername & "\AppData\Roaming\Microsoft\Templates\Normal.dotm") Then
filesys.CopyFile "C:\Users\" & StrUsername & "\AppData\Roaming\Microsoft\Templates\Normal.dotm", "C:\Dados\" & StrUsername & ".$$$" & "\Templates\", TRUE
End If
'**** COPIA O FICHEIRO AUTOTEMP.DOT PARA O FOLDER TEMPLATES ****
If filesys.FileExists ("C:\Users\" & StrUsername & "\AppData\Roaming\Microsoft\Templates\AUTOTEMP.DOT") Then
filesys.CopyFile "C:\Users\" & StrUsername & "\AppData\Roaming\Microsoft\Templates\AUTOTEMP.DOT", "C:\Dados\" & StrUsername & ".$$$" & "\Templates\", TRUE
End If
'**** CONTACTS ****
If filesys.FolderExists ("C:\Users\" & StrUsername & "\Contacts") Then
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$" & "\Contacts")
filesys.CopyFolder "C:\Users\" & StrUsername & "\Contacts", "C:\Dados\" & StrUsername & ".$$$" & "\Contacts", TRUE
End If
'**** LINKS ****
If filesys.FolderExists ("C:\Users\" & StrUsername & "\Links") Then
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$" & "\Links")
filesys.CopyFolder "C:\Users\" & StrUsername & "\Links", "C:\Dados\" & StrUsername & ".$$$" & "\Links", TRUE
End If
'**** MUSIC ****
If filesys.FolderExists ("C:\Users\" & StrUsername & "\Music") Then
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$" & "\Music")
filesys.CopyFolder "C:\Users\" & StrUsername & "\Music", "C:\Dados\" & StrUsername & ".$$$" & "\Music", TRUE
End If
'**** PICTURES ****
If filesys.FolderExists ("C:\Users\" & StrUsername & "\Pictures") Then
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$" & "\Pictures")
filesys.CopyFolder "C:\Users\" & StrUsername & "\Pictures", "C:\Dados\" & StrUsername & ".$$$" & "\Pictures", TRUE
End If
'**** VIDEOS ****
If filesys.FolderExists ("C:\Users\" & StrUsername & "\Videos") Then
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$" & "\Videos")
filesys.CopyFolder "C:\Users\" & StrUsername & "\Videos", "C:\Dados\" & StrUsername & ".$$$" & "\Videos", TRUE
End If
'**** DOCUMENTS ****
If filesys.FolderExists ("C:\Users\" & StrUsername & "\Documents") Then
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$" & "\Documents")
filesys.CopyFolder "C:\Users\" & StrUsername & "\Documents", "C:\Dados\" & StrUsername & ".$$$" & "\Documents", OverwriteExisting
End If
End If
End Sub
msgbox "done"

Thanks......

 

[johngalt]

Hi, rgaspar, and welcome to the forums.

It is possible you have system files in the documents folder that are not allowing a full copy to process - have you verified that you can manually copy the folder?

 

[rgaspar]

Hello Johngalt,

Yes i have a 3 junction system files in the folder \Documents. My Music, My Pictures and My Video.
If copy manually folder \Documents to another directory exemple C:\BackupDocuments its the same problem... Permission Denied.

UAC is disabled and i am Administrator this computer.

This script run without erros in Windows XP. Copy all subfolders, files and shortcuts but windows vista x86 not run

Any solution?

Thanks

 

[johngalt]

Those three junctions are always going to fail to copy - you'll have to include exclusions for that - and UAC is not the problem, stop disabling it.

 

[rgaspar]

Ok, how i have to include exclusions (Junctions My Video, My Pictures and My Music) in my code vbscript?
Cant i help me?
Can you write this code for me?

Thanks

'**** DOCUMENTS ****
If filesys.FolderExists ("C:\Users\" & StrUsername & "\Documents") Then
filesys.CreateFolder ("C:\Dados\" & StrUsername & ".$$$" & "\Documents")
filesys.CopyFolder "C:\Users\" & StrUsername & "\Documents", "C:\Dados\" & StrUsername & ".$$$" & "\Documents", OverwriteExisting

Best Regards

 

[johngalt]

I can't help you there, but perhaps something like an OnError Resume in each of those may help....