Discussion :

[proteine1024]

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 :

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
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.

[pitchalov]

Salut.

Je verrais bien le truc comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For Each objItem in colItems  
  objUserFolder = OFS.GetFolder("C:\Documents and Settings\" & objItem.Caption & "\Bureau")
  For Each objFile In objUserFolder.Files
    If Right(Ucase(objFile.Name), 4) = ".SAP" Then objFile.Delete
  Next
Next

C'est de l'à peu près, j'ai pas vérifier, mais ça peut te donner des idées.

Et puis, je conseillerais de pas virer tous les .lnk du bureau si tu veux qu'il y reste qqchose...