× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Windows 7
 modifier un dossier "windows"Sujet résolu
Ajouter un message à la discussion
Pages : [1] 2 3 ... Fin
Page 1 sur 3 [Fin]
mayahert
  Posté le 12/08/2017 @ 13:02 
Aller en bas de la page 
Petite astucienne

Peut-on modifier un dossier "windows" ?

Publicité
mayahert
 Posté le 12/08/2017 à 13:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Sachant que j'ai déjà modifié les autorisations.

enfermedehors
 Posté le 12/08/2017 à 13:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grande Maîtresse astucienne

Sachant que j'ai déjà modifié les autorisations.

Ce n'est pas une bonne idée, ce n'est pas prudent.
Quel dossier veux-tu modifier ?

poussebois
 Posté le 12/08/2017 à 13:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Bonjour et bienvenue sur PC Astuces ,

Qu'appelles-tu "un dossier Windows" ? Lequel plus précisément ? Et dans quel but ?

@ +



Modifié par poussebois le 12/08/2017 13:34
mayahert
 Posté le 12/08/2017 à 13:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

software distribution pour pouvoir supprimer son contenu pour telecharger nouvelle mise à jour windows update

poussebois
 Posté le 12/08/2017 à 13:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

,

Laisse tomber.

Si tu le faisais, ton Windows fonctionnerait moins bien ...

Regarde ceci.

mayahert
 Posté le 12/08/2017 à 13:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

moi je veux bien mais c'est quoi la solution du coup ?

J'ai windows update qui tourne en boucle, les mises à jour qui se font plus depuis 2 mois.

enfermedehors
 Posté le 12/08/2017 à 14:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grande Maîtresse astucienne


Software distribution, oui, tu peux le supprimer si tu as des problèmes avec Windows Update.
Télécharge le script clearSD ici : http://jc.bellamy.free.fr/fr/vbsdownload.html#clearSD
Fais un clic droit ici et clique sur Enregistrer sous.

mayahert
 Posté le 12/08/2017 à 15:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Sauf que moi j'y connais rien c'est quoi vbs ? et qu'est-ce que je fais ensuite ?

Publicité
mayahert
 Posté le 12/08/2017 à 15:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Je pense que ça n'a pas marché ça me met : msg="Erreur 0x" & CStr(Hex(Err.Number)) & " survenue dans la création de l'objet locator."
If Err.Description <> "" Then msg=msg & " : " & Err.Description
Err.Clear
wscript.echo msg
wscript.quit
End If

Remote=ucase(net.ComputerName)
NameSpace="root\CIMV2"
Set ObjService = objLocator.ConnectServer(Remote, NameSpace, "", "")
If Err.Number then
msg="Erreur 0x" & CStr(Hex(Err.Number)) & " survenue dans la connexion à " & remote
If Err.Description <> "" Then msg=msg & " : " & Err.Description
wscript.echo msg
wscript.quit
End If

ObjService.Security_.impersonationlevel = 3
Set ServiceSet=ObjService.ExecQuery("SELECT * FROM Win32_service")
SoftwareDistribution=shell.ExpandEnvironmentStrings("%systemroot%\SoftwareDistribution\")

wscript.echo "*************************************************" & VBCRLF & _
"Suppression des fichiers contenus dans le dossier" & VBCRLF & _
SoftwareDistribution & VBCRLF & _
"*************************************************" & VBCRLF

Svcname="wuauserv"
for each Service in ServiceSet
' *** Arrêt du service Windows Update (wuauserv) s'il est démarré***
If lcase(Service.Name)=Svcname Then
DN=Service.DisplayName
If Service.started then
coderet=Service.StopService
If coderet=0 Then
msg= "Le service " & DN & " a été arrêté correctement" & VBCRLF
Else
msg= "Erreur à l'arrêt du service " & DN
msg=msg & VBCRLF & MsgFromCode(coderet)
msg=msg & VBCRLF & "Script abandonné"
End If
Wscript.echo msg
If coderet<>0 Then Wscript.quit
end if

' *** Suppression des fichiers ***
cumul=0
Wscript.echo "Fichier supprimé dans le dossier Datastore :"
Datastore=SoftwareDistribution & "DataStore\DataStore.edb"
Set File=fso.GetFile(Datastore)
cumul=File.Size
File.Delete true
Wscript.echo " Datastore.edb" & VBCRLF
Logs=SoftwareDistribution & "DataStore\Logs"
If fso.FolderExists(Logs) then
Set ObjLogs=fso.GetFolder(Logs)
For each File in ObjLogs.files
cumul=cumul+File.size
Wscript.echo " " & File.Name
File.Delete true
Next
end if
Download=SoftwareDistribution & "Download"
Set ObjD=fso.GetFolder(Download)
Wscript.echo "Dossiers supprimés dans le dossier Download :"
For each Folder in ObjD.SubFolders
cumul=cumul+Folder.Size
Wscript.echo " " & Folder.Name
Folder.Delete true
Next
Wscript.echo "Fichiers supprimés dans le dossier Download :"
For each File in ObjD.files
cumul=cumul+File.size
Wscript.echo " " & File.Name
File.Delete true
Next
unit=" octets"
If cumul>1024 Then
cumul=cumul/1024
unit=" ko"
If cumul>1024 Then
cumul=cumul/1024
unit=" Mo"
end if
End If
wscript.echo Int(cumul) & unit & " récupérés"
' Redémarrage du service Windows Update
Service.StartService
If coderet=0 Then
msg= "Le service " & DN & " a redémarré correctement."
else
msg= "Erreur au redémarrage du service " & DN
msg=msg & VBCRLF & MsgFromCode(coderet)
end if
wscript.echo VBCRLF & msg
exit for
end if
next
Wscript.quit

'--------------------------------------------------------------------
'Sous-programme de test du moteur
'Vu les sorties générées, c'est CSCRIPT (et non pas WSCRIPT)
'qui doit être utilisé de préférence
Sub TestHost(force)
dim rep
strappli=lcase(Wscript.ScriptFullName)
strFullName =lcase(WScript.FullName)
i=InStr(1,strFullName,".exe",1)
j=InStrRev(strFullName,"\",i,1)
strCommand=Mid(strFullName,j+1,i-j-1)
if strCommand<>"cscript" then
If force then
Init="Ce script doit être lancé avec CSCRIPT"
Else
Init="Il est préférable de lancer ce script avec CSCRIPT"
End If
rep=MsgBox(Init & VBCRLF & _
"Cela peut être rendu permanent avec la commande" & VBCRLF & _
"cscript //H:CScript //S /Nologo" & VBCRLF & _
"Voulez-vous que ce soit fait automatiquement?", _
vbYesNo + vbQuestion,strappli)
if rep=vbYes then
nomcmd="setscript.bat"
Set ficcmd = fso.CreateTextFile(nomcmd)
ficcmd.writeline "@echo off"
ficcmd.writeline "cscript //H:CScript //S /Nologo"
ficcmd.writeline "pause"
params=""
For i = 0 To nbargs-1
params=params & " " & args(i)
next
ficcmd.writeline chr(34) & strappli & chr(34) & params
ficcmd.writeline "pause"
ficcmd.close
shell.Run nomcmd, SW_SHOWNORMAL,true
force=true
end if
If force then WScript.Quit
end if
end sub

'--------------------------------------------------------------------
Function MsgFromCode(coderet)
Select Case coderet
Case 0
MsgFromCode="La requête a été acceptée."
Case 1
MsgFromCode="La requête n'est pas prise en charge."
Case 2
MsgFromCode="L'utilisateur n'a pas l'accès nécessaire."
Case 3
MsgFromCode="Le service ne peut pas être arrêté car d'autres services " & VBCRLF & _
"qui sont en cours d'exécution en dépendent."
Case 4
MsgFromCode="Le code de contrôle requis n'est pas valide ou n'est pas " & VBCRLF & _
"acceptable pour le service."
Case 5
MsgFromCode="Le code de contrôle requis ne peut pas être envoyé au service" & VBCRLF & _
"parce que l'état du service (Win32_BaseService:State) est égal à 0, 1 ou 2."
Case 6
MsgFromCode="Le service n'a pas été démarré."
Case 7
MsgFromCode="Le service n'a pas répondu à la demande de démarrage dans" & VBCRLF & _
"les temps impartis."
Case 8
MsgFromCode="Échec inconnu lors du démarrage du service."
Case 9
MsgFromCode="Le chemin d'accès au répertoire à l'exécutable du service" & VBCRLF & _
"n'a pas été trouvé."
Case 10
MsgFromCode="Le service est déjà en cours d'exécution."
Case 11
MsgFromCode="La base de données sur laquelle ajouter un nouveau service est bloquée."
Case 12
MsgFromCode="Une dépendance sur laquelle compte ce service a été supprimée du système."
Case 13
MsgFromCode="Le service n'a pas pu trouver le service nécessaire à partir" & VBCRLF & _
"d'un service dépendant."
Case 14
MsgFromCode="Le service a été désactivé du système."
Case 15
MsgFromCode="Le service n'a pas l'authentification correcte pour " & VBCRLF & _
"fonctionner sur le système."
Case 16
MsgFromCode="Ce service est en cours de suppression du système."
Case 17
MsgFromCode="Il n'y a pas de thread d'exécution pour le service."
Case 18
MsgFromCode="Il y a des dépendances circulaires lors du démarrage du service."
Case 19
MsgFromCode="Il y a un service en cours de fonctionnement sous le même nom."
Case 20
MsgFromCode="Il y a des caractères non valides dans le nom du service."
Case 21
MsgFromCode="Des paramètres non valides ont été passés au service."
Case 22
MsgFromCode="le compte sous lequel ce service doit fonctionner est soit invalide" & VBCRLF & _
"ou n'a pas les permissions pour faire fonctionner le service."
Case 23
MsgFromCode="Le service existe dans la base de données des services disponibles" & VBCRLF & _
"à partir du système."
Case 24
MsgFromCode="Le service est pour l'instant suspendu dans le système."
Case else
MsgFromCode="Erreur

enfermedehors
 Posté le 12/08/2017 à 15:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grande Maîtresse astucienne

L'extension txt a du être ajoutée quand tu l'as téléchargée
Configure les options des dossiers pour voir les extensions (Dans les options des dossiers, onglet Affigage, décoche "Masquer les extensions dont le type est connu).
Ensuite, si tu vois clearSD.vbs.txt renomme-le en supprimant .txt

mayahert
 Posté le 12/08/2017 à 15:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

il prefere que j'utilise cscript, d'accord ?

yves.vaissiere
 Posté le 12/08/2017 à 16:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonjour,

perso je refuserais : Jean-Claude Bellamy était bien sympa, mais il n'avait rien prévu pour réassocier facilement à wscript. (peut-être Enfermedehorsaura-t-elle de quoi ?)

Donc tant pis, quitte à devoir cliquer vingt ou trente fois.

mayahert
 Posté le 12/08/2017 à 16:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Il me propose une commande pour que ce soit fait automatiquement.

yves.vaissiere
 Posté le 12/08/2017 à 17:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Automatiquement ouvert avec cscript, je connais.

Mais ce serait, par la suite, pour tous les vbs ; même ceux qui ont besoin que ce soit avec wscript et non pas cscript ...



Modifié par yves.vaissiere le 12/08/2017 17:15
enfermedehors
 Posté le 12/08/2017 à 17:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grande Maîtresse astucienne

il prefere que j'utilise cscript, d'accord ?

D'accord.

poussebois
 Posté le 12/08/2017 à 17:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

,

Remarque peut-être idiote ...!?

N'aurait-il pas été plus simple de télécharger et d'installer un ISO ?

Publicité
mayahert
 Posté le 12/08/2017 à 17:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Sûr que je passe par cscript quitte à ce qu'il soit automatiquement ouvert même pour les wscript ?

enfermedehors
 Posté le 12/08/2017 à 17:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grande Maîtresse astucienne

Si tu préfères, utilise cet outil : https://toolslib.net/downloads/viewdownload/21-winupdatefix/
il fera la même chose et davantage.

mayahert
 Posté le 12/08/2017 à 17:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

moi ça m'est égal c'est vous qui voyez.

enfermedehors
 Posté le 12/08/2017 à 17:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grande Maîtresse astucienne

Avec l'outil, ce sera plus facile pour toi.

mayahert
 Posté le 12/08/2017 à 18:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

+ facile sauf qu'il faut juste exécuter ?

enfermedehors
 Posté le 12/08/2017 à 19:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grande Maîtresse astucienne

Oui, après, tu cochera les cases qui correspondent à ce que tu veux réparer

enfermedehors
 Posté le 12/08/2017 à 19:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grande Maîtresse astucienne

mayahert
 Posté le 12/08/2017 à 21:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

j'ai tout fait mais malheureusement c'est toujours en boucle.

enfermedehors
 Posté le 13/08/2017 à 08:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grande Maîtresse astucienne


Vois ici, la solution fournie par nomisam a fait ses preuves sur le forum : https://forum.pcastuces.com/sujet.asp?page=-1&f=3&s=28981&REP_ID=5585594

Si tu es sous Windows 7 32 bits, c'est ici : https://forum.pcastuces.com/sujet.asp?page=-1&f=3&s=29806&REP_ID=5696410

Publicité
Pages : [1] 2 3 ... Fin
Page 1 sur 3 [Fin]

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
51,03 €Mini SSD externe WD My Passport Go 500 Go à 51,03 € livré
Valable jusqu'au 31 Octobre

Amazon Allemagne propose actuellement le mini SSD externe WD My Passport Go 500 Go à 46,39 € (avec la TVA ajustée). Comptez 4,64 € pour la livraison en France soit un total de 51,03 € livré. On le trouve ailleurs à partir de 71 €. Il offre des vitesses allant jusqu'à 400 Mo/s grâce à son connecteur USB 3.0 intégré. Sa taille mini vous permettra de l'emporter partout avec vous de même que sa résistance aux chocs et aux chutes (jusqu'à 2 mètres). Il intègre un logiciel de sauvegarde automatique ainsi qu'un outil de chiffrement de données. 


> Voir l'offre
17,99 €Carte mémoire microSDXC UHS-I SanDisk A1 Ultra 128 Go à 17,99 €
Valable jusqu'au 30 Octobre

Amazon fait une promotion sur la carte mémoire microSDXC UHS-I SanDisk A1 Ultra 128 Go à 17,99 €. Cette carte mémoire offre des vitesses jusqu'à 100 Mo/s et est idéale pour les téléphones, caméras et appareils photo HD. La livraison en relais est gratuite.


> Voir l'offre
42,99 €Casque Audio Logitech G432 à 42,99 €
Valable jusqu'au 30 Octobre

Amazon fait une promotion sur casque Logitech G432 qu'il propose à 42,99 € alors qu'on le trouve ailleurs à partir de 79 €. Ce casque dédié aux joueurs est compatible PC, Xbox, PS4 et Switch. Il possède un micro antiparasite qui pivote, un réglage de volume directement sur le fil et offre un son surround Dolby DTS Headphone 7.1. Connexion par USB ou jack 3.5 mm. La livraison est gratuite.


> Voir l'offre

Sujets relatifs
Suppression fichiers du dossier Recherche de Windows 7
windows ne peut pas ouvrir le dossier compréssé
Tutoriel modifier les paramètres de sauvegarde directement - Windows 7
comment entrer,modifier le C: Windows système 32
modifier la liste des programmes enregistrés par Windows
"Windows ne trouve pas..." Impossible de modifier les paramètres
Modifier la taille d’une partition avec Windows 7
Pourquoi le Dossier Windows Live Mails est bleu ?
Modifier les icones du dossier ouvert
Modifier le menu de demarrage windows 7
Plus de sujets relatifs à modifier un dossier "windows"
 > Tous les forums > Forum Windows 7