Bonjour tout le monde,

Je suis assez nouveau dans le monde du scripting

Et je viens auprès de cette communauté pour m'aider à passer outre un blocage.

Je m'explique,

Je dois créer un script qui doit créer un fichier a un certain endroit sur un PC en lui donnant moi même les données qui doivent y être présentes.
Ce Script sera déployer par GPO, et donc a chaque démarrage du PC du client il va s’exécuter.
Donc il faudrait pouvoir vérifier si le fichier existe ou non, vérifier sa date de modification pour pouvoir venir réinscrire de nouvelles données à l'avenir.


voici ce que j'ai déjà effectué :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim oFSO,oFld,fso 
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("C:\dossier\fichier.extension")) Then
    WScript.Quit()
Else
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFld=oFSO.CreateFolder ("c:\dossier")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
FichierTXT = "C:\dossier\fichier.extension"
Set NewFichier = fso.CreateTextFile(FichierTXT,TRUE)
data1 = "blabla"
NewFichier.WriteLine(data1)
data2 = "blabla2"
NewFichier.WriteLine(data2)
Set fso = Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objWShell = wScript.createObject("WScript.Shell")
usrName = objWShell.expandEnvironmentStrings("%USERNAME%")
objFSO.CopyFile "C:\dossier\fichier.extension" , "C:\dossier\destination", True
End If
WScript.Quit

Si vous pouviez éclairer ma lanterne, cela serait une bonne année qui commencerait

Merci.

Chris-It