Script VBS pas trop compliqué...Résolu

Question

Bonjour voila je suis admin r&#233;seau (he oui ca arrive!!!), la je m'occupe d'un parc de 50 postes ou 400 &#224; 500 personnes se loguent. Bref il arrive parfois que les profils en cache restent sur les disques des postes lorsque il y a un probl&#232;me de synchronissation avec le serveur, et la longue ca sature les disques...

L&#224; ou il y &#224; un rapport avec le d&#233;veloppement, c'est que je ne vais pas passer sur chaque poste supprimer les dossiers &#224; la mano...
C'est pourquoi je voudrais faire un petit script en VBS pour supprimer tout les dossiers qui se trouvent dans un r&#233;pertoire donn&#233;, a quelques exceptions pr&#234;ts (rep admin, all users, defaut user, etc&#133;)


Je l&#146;avou je ne connais pas trop la syntaxe pour les scripts VB,en plus la ou je suis je n'ai pas d'acc&#232;s &#224; VB, donc pour l'aide ou le dobogage..., je sais juste que ca commence par quelque chose comme ca :


 


On Error Resume Next


&#171; la il faudrait qu&#146;il y ait une boucle mais avec quelle syntaxe&#133; &#187;


Set objFSO = CreateObject("Scripting.FileSystemObject")


objFSO.DeleteFolder("C:\Profils\xxx")




Il fautaussi g&#233;rer les exceptions (avec If xxx = administrateur or defaut user then next, etc&#133;) j&#146;imagine quelque chose dans le genre vous moquez pas de moi j&#146;suis pas d&#233;veloppeur moa 


D&#146;avance merci &#224; ceux qui auront eu le courage de lire ce post jusqu&#146;au bout!

cs_jeanmarc · Accepted Answer

Bonsoir,[javascript:Insert_Emoticon('/imgs2/smile.gif'); ]

Je viens de rentrer de mon week prolong&#233; et de pondre ton script.
Le ' signifie un commentaire. J'ai donc prot&#233;g&#233; la commande deletefolder.
De m&#234;me, les msgbox servent de test.
Attention, il y a des profils cach&#233;s.
J'ai cr&#233;&#233; des dossiers "bidon" sur "c:\Documents and Settings" + test du script ok.

Dim Path, fso, f, f1, User, Users, Sup
Path   =  "c:\Documents and Settings"


Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Path)
Set Users = f.SubFolders
For Each f1 in Users
    User = User & vbCrLf & vbCrLf & f1.Name


   Select Case f1.Name
      Case "Administrateur"    'profil &#224; ne pas supprimer
      MsgBox "Le user Administrateur ne sera supprim&#233;"
      Case "All Users"          'profil &#224; ne pas supprimer
      Case "Default User"       'profil &#224; ne pas supprimer
      Case "LocalService"       'profil &#224; ne pas supprimer
      Case "NetworkService"     'profil &#224; ne pas supprimer
      Case "jeanmarc"           'profil &#224; ne pas supprimer
   Case Else
   msgbox "Ce profil sera supprim&#233; :  " & f1.Name
   Sup = Sup & vbCrLf & vbCrLf & f1.Name
   'fso.DeleteFolder(f1.ShortPath)    'ATTENTION: ordre prot&#233;g&#233; car dangerous !!! 
   End Select
Next
msgbox "Liste de tous les profils (visibles et cach&#233;s)" & vbCrLf & vbCrLf & User
msgbox "Liste des profils supprim&#233;s" & vbCrLf & vbCrLf & Sup
Set fso  = Nothing

cs_jeanmarc · Answer

Bonsoir,

ce n'est pas aussi simple que cela !!!
faire un script g&#233;n&#233;rique qu'il faut installer et inclure, sur chaque poste, dans les taches planifi&#233;es , &#224; une heure x, pour chaque session "user" possible. c'est presque irr&#233;alisable.
Le user change de password et la tache planifi&#233;e du script vbs ne marche plus.
Miracle, si un serveur "admin" a droit de partage/visu sur tous les serveurs et disques.
Ci-dessous 2 exemples pour visu domaine/users d'un serveur.

Set WshNetwork = WScript.CreateObject("WScript.Network")
         WScript.Echo "Domaine = " & WshNetwork.UserDomain
         WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName
         WScript.Echo "Nom utilisateur = " & WshNetwork.UserName
         '-----------------------
' Liste des utilisateurs
'-----------------------
Dim network, computer, SAM, Item
Set network = Wscript.CreateObject("WScript.Network")
computer=network.ComputerName
wscript.echo "#Liste des utilisateurs et groupes de " & computer
set SAM=GetObject("WinNT://" & computer & ",computer")
for each Item in SAM
   Classe=Item.Class
   If Classe = "User" then
      wscript.echo Classe & chr(9) & Item.name
      End if
   next

.

alexfoo · Answer

Merci Jean Marc

Sisi ca peut etre simple... en fait je poss&#232;de un compte administrateur du domaine, je peut executer n'importe quelle tache sur n'importe quel poste avec celui-ci...Donc pas besoin de se casser la tete avec les comptes utilisateurs...
De plus je peux tres bien d&#233;ployer le scripts VBS sur chaque poste (de facon automatis&#233; ou manuel), et donc la encore je n'ai pas besoin de g&#233;rer les adresses de postes, il suffit de le configurer pour qu'il s'execute en localhost 

Donc comme je le dis sur plus haut, ce sera plutot sur la partie de code qui dans un dossier donn&#233;, efface tout les dossiers presents sauf certains que j'aurais d&#233;fini.

cs_jeanmarc · Answer

Bonsoir,

J'ai....presque solutionn&#233; la demande...
Le script ci-dessous marche pour un user seulement.
J'ai donc un pb de boucle.

Dim Fso, Path, Fic, i, WshShell
Dim ObjTextStream, strtmp, Entree, Sortie, Result
Dim network, computer, SAM, Item


'dans le fichier users.txt, j'ai cr&#233;&#233; 3 lignes pour les tests
'1&#232;re ligne: Administrateur   => le ComputerName existe
'2&#232;me ligne: Unknow           => le ComputerName n existe pas
'3&#232;me ligne: jeanmarc         => le ComputerName existe
Path   = "d:"
Fic = "\users.txt"     'profil &#224; ne pas supprimer / ligne &#224; ligne


Set Fso = CreateObject("Scripting.FileSystemObject")
Set ObjTextStream = Fso.OpenTextFile(Path & Fic)


Set network = Wscript.CreateObject("WScript.Network")
computer=network.ComputerName
Set SAM=GetObject("WinNT://" & computer & ",computer")


'for each Item in SAM   'v&#233;rification de tous les users d'un serveur
'   Classe=Item.Class
'   If Classe = "User" then
'      wscript.echo Classe & chr(9) & Item.name
'      End if
'   next


for each Item in SAM
Classe=Item.Class
If Classe = "User" then
      Do While Not ObjTextStream.AtEndOfStream
      strtmp = split(ObjTextStream.readline," ")
         For i = 0 to Ubound(strtmp)
         MsgBox "d&#233;but: item_name=" & Item.name & "    lecture ligne courante du fichier user= " & strtmp(i)
              If strtmp(i) = Item.name Then
              MsgBox "Item.name:" & Item.name & " =  lecture ligne courante du fichier user= " & strtmp(i)
              Else
              MsgBox "Item.name:" & Item.name & " #  lecture ligne courante du fichier user= " & strtmp(i)
              End If
         MsgBox "fin  : item_name=" & Item.name & "    lecture ligne courante du fichier user= " & strtmp(i)
         Next
      Loop
End if
next


msgbox "fin du script"
ObjTextStream.Close
 Set fso = Nothing
 Set network = Nothing
 wscript.quit

Merci de m'avertir quand script ok.........
jeanmarc

alexfoo · Answer

Bonjour Jean Marc, et bin dis donc t'as pas ch&#244;m&#233;!!!, enfin je me suis peut etre fait mal comprendre, mais ce que j'ai cherche &#224; faire est bien plus simple que ce que tu as fait !!!

Alors pour dans la transparence la plus totale: dans un domaine windows, ou les profils utilisateurs sont itin&#233;rants, &#224; chaque connexion sur un poste client un profil temporaire est cr&#233;e dans "c:\documents and settings\%username%". Si lors de la deconnexion du client il y a un probl&#232;me de d&#233;synchronisation, alors le profil temporaire va rester en local sur le poste clent en gardant le nom du profil qui s'est connect&#233; ( dans "c:\documents and settings").
A la longue ces dossiers contenant des profils dont je me contrefou royalement, s'accumulent sur les disques des postes clients et les satures... les p&#244;vres...
Et la, c'est le drame...

Nan s&#233;rieusement pour faire de la place sur ces disques je veux justes supprimer tous les dossiers contenus dans le dossier "c:\documents and settings" SAUF les dossiers suivant : "administrateur", "all users", "default user", car ils sont n&#233;cessaires au bon fonctionnement des profils...

Tu peux aller faire un tour dans ce dossier si tu as un 2K, XP ou 2K3, meme si je pense que tu connais d&#233;j&#224;...
Enfin comme tu peut le constater c'est beaucoup plus simple que ce que tu as pondu, tu t'es d&#233;j&#224; bien creuser en tout cas merci  et bravo

cs_jeanmarc · Answer

Bonjour,
Effectivement, vu sous cet angle....c'est simple...
1) Une boucle "For Each" pour r&#233;cup&#233;rer tous les noms de r&#233;pertoires (profils)
existant sur la racine setting..;
2) Utilise "Select CASE et Other( ou else)" pour supprimer les folders ind&#233;sirables.

Malheureusement pour toi...heureusement pour moi...
je pars, now, en week prolong&#233; jusqu'&#224; dimanche soir...
donc si tu n'as pas la solution d'ici l&#224;, il faudra patienter !!!

jean-marc

alexfoo · Answer

OK Jean Mimi bon WE et merci!

alexfoo · Answer

Merci Jean Mimi !!! , je vais le tester mais je le sens bien (t'inkiet, je d&#233;bute en script en VBS, mais ce qui ne change pas par rapport &#224; d'autres langages, ce sont les guillemets pour les commentaires, les d&#233;clarations de variables, etc...)

Je te tiens au courant de mes r&#233;sultats !!!

alexfoo · Answer

Alors la chapeau Jean Mimi , il marche nickel ton script!!! bravo et merci!
Je l'ai tr&#232;s l&#233;g&#232;rement modifi&#233; pour qu'il soit disons plus direct dans son execution:

Dim Path, fso, f, f1, User, Users, Sup
Path   = "c:	est"


Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Path)
Set Users = f.SubFolders
For Each f1 in Users
    User = User & vbCrLf & vbCrLf & f1.Name


   Select Case f1.Name
      Case "Administrateur"    'profil &#224; ne pas supprimer
      'MsgBox "Le user Administrateur ne sera supprim&#233;"
      Case "All Users"          'profil &#224; ne pas supprimer
      Case "Default User"       'profil &#224; ne pas supprimer
      Case "LocalService"       'profil &#224; ne pas supprimer
      Case "NetworkService"     'profil &#224; ne pas supprimer
      Case Else
   'msgbox "Ce profil sera supprim&#233; :  " & f1.Name
   Sup = Sup & vbCrLf & vbCrLf & f1.Name
   fso.DeleteFolder(f1.ShortPath)   'ATTENTION: ordre prot&#233;g&#233; car dangerous !!!
   End Select
Next
'msgbox "Liste de tous les profils (visibles et cach&#233;s)" & vbCrLf & vbCrLf & User
msgbox "Liste des profils supprim&#233;s" & vbCrLf & vbCrLf & Sup
Set fso = Nothing

En tout cas tu m'a beaucoups aid&#233;  alors si tu tu trouves sur la r&#233;gion parisienne ou que tu as l'intention d'y passer, mail moi et je te paierais un verre!!! , car tu l'as bien m&#233;rit&#233;

alexfoo · Answer

Re bonjour Jean Marc je post ici la meme question que sur un autre  nouveau post car l'edition de ce cript je l'ai r&#233;alis&#233; a parttir de ce que tu m'as donn&#233;

Voici ce dont j'ai besoin: Sur un disque C, chaques users &#224; un dossier &#224; son nom (dans docs and settings), la plupart d'entre eux (mais pas tous) ont dans leur dossier un dossier qui s'appel "Documents de %username%" (avec plein de fichier dedans quoi...)
Chacuns de ces users a aussi un dossier &#224; son nom sur le 2&#232;me disque D (mais pas tous !), et dans ce dossier un dossier qui s'appel "Mes documents"
Le but est que TOUS les fichiers qui se trouves dans C:\documents and settings\%username%\Documents de %username% soit DEPLACER (ou copier) dans le dossier correspondant au meme utilisateur sur D:\etudiants\%username%\Mes documents.

Voici une &#233;bauche:

Dim Path,fso,objFSO, f, f1, User, Users, Sup
Path   = "c:	est"
'DPath   = "D:\etudiant"
Const OverwriteExisting = FALSE


Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Path)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFSO = objFSO.GetFile
Set Users = f.SubFolders
For Each f1 in Users
    User = User & vbCrLf & vbCrLf & f1.Name


   Select Case f1.Name
      Case "Administrateur"    'profil &#224; ne pas &#224; ne pas modifier
      'MsgBox "Le user Administrateur ne sera supprim&#233;"
      Case "All Users"          'profil &#224; ne pas modifier
      Case "Default User"       'profil &#224; ne pas modifier
      Case "LocalService"       'profil &#224; ne pas modifier
      Case "NetworkService"     'profil &#224; ne pas modifier
      Case Else
   'msgbox "Ce profil sera modifier :  " & f1.Name
   Sup = Sup & vbCrLf & vbCrLf & f1.Name
   objFSO.MoveFile "C:	est & f1.name\Documents de f1.name" , "D:\etudiants\ & f1.name\Mes documents" , OverwriteExisting
   End Select
Next
'msgbox "Liste de tous les profils (visibles et cach&#233;s)" & vbCrLf & vbCrLf & User
msgbox "Liste des profils ayant le dossier mes docs d&#233;plac&#233;" & vbCrLf & vbCrLf & Sup
Set fso = Nothing
Set objFSO = Nothing

Le probleme est que je ne sais pas d&#233;finir les bonnes variables, ainsi que la bonne boucle ou serie de boucle qui permettra de d&#233;placer les fichiers qui se trouves dans C:\documents and settings\%username%\Documents de %username% dans le dossier correspondant au meme utilisateur sur D:\etudiants\%username%\Mes documents.

HELP!!! 

PS: (une girafe &#224; la cl&#233; !!!)

Script VBS pas trop compliqué...

10 réponses

Discussions similaires