Supprimer des fichiers sur les bureaux de tous les users ???
Bonjour,
Je dois bientot déployer une nouvelle version de SAP GUI 7.10. Le setup désinstalle la version précedente mais laisse tous les raccourcis *.lnk et *.sap (raccourcis SAP) que les utilisateurs ont créés pour leurs besoins sur leur bureau. Normal que le setup ne les virent pas mais j'aimerais faire le ménage derière d'autant plus qu'ils ne fonctionnent plus avec la nouvelle version de SAP GUI
Je pensais récuperer la liste des usernames locaux avec WMI et les mettre dans un fichier texte. (jusque là je m'en sort) ;)
Ensuite faire une boucle For Each mais je bloque sur la syntaxe. Comme je l'ai déja dit dans un autre post, ca fait longtemps que je n'ai pas fait de VBScript et je n'ai pas assez de temps pour m'y remettre avant le déploiement.
Y aurait-il parmis vous quelqu'un qui aurait la gentillesse de m'aider à completer ce script ?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
On Error Resume Next
Dim OFS, MonFichier
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_UserAccount Where LocalAccount = True")
Set OFS = CreateObject("Scripting.FileSystemObject")
Set Monfichier = OFS.CreateTextFile(".\accountslist.txt", False, False)
For Each objItem in colItems
?
Monfichier.WriteLine "Caption: " & objItem.Caption
?
?
Next
?
'Pour chaque élément (username) du fichier -> supprimer les fichiers
'*.sap et appli.lnk du bureau (C:\Documents and Settings\"user"\Bureau)
'en remplacant "user" par le login recupéré dans le fichier txt.
? |
Merci par avance pour vos réponses.
