Déplacement dossiers en VBS avec variable user
Bonjour à tous,
Alors voilà je suis plus que débutant en vbs et je suis actuellement en train de faire un petit script sous Windows pour que lorsque l'utilisateur TOTO se connecte la première fois sous sa session après une réinstallation du système, les fichiers, dossiers et sous-dossiers présents dans le profil sauvegardé stocké dans "c:\temp\TOTO\desktop" par exemple (en sachant que ce sera le cas aussi pour d'autres dossiers dans le profil comme "documents", "favorites", etc...) soient déplacés dans "c:\users\TOTO". En sachant que TOTO est bien sûr une variable utilisateur.
J'ai quand même tenté de faire un script qui ressemble à ça:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("WScript.Network")
User = objNetwork.Username
oFSO.MoveFolder "c:\temp\" & USER & "Desktop","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Documents","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Downloads","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Favorites","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Links","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Music","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Pictures","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Videos","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "AppData\Roaming\Microsoft\Signatures","c:\users\" & USER & "\AppData\Roaming\Microsoft\" |
Mais ça ne fonctionne pas!!!
Pouvez-vous me corriger là où ça bloque?
Merci à tous d'avance pour votre aide
