Autres Windows 10 - 64bytes

[Usine à gaz]

Bonsoir à toutes et à tous,

Je me tourne vers vous pour une demande d'information.

J'ai sur mon bureau un fichier que je ne parviens pas à supprimer :

Cela m'est déjà arrivé et, jusqu'à maintenant, ce n'est pas bien grave car au redémarrage de l'ordinateur il disparait.

J'aimerais mourir un peu moins bête lol
Avez-vous déjà rencontré ce souci et savez-vous comment le faire disparaître sans être obligé de redémarrer.

Avec mes remerciements,
Bonne fin de journée,
Amicalement,
Lionel 🙂

 

[Usine à gaz]

Bjr fanch55;
Un grand merci à toi 🙂
Je testerai quand le souci se renouvellera.
lionel,

 

[Staple1600]

Bonjour fanch55

Ta session Windows a des droits admin ?
Parce que de mémoire, WScript refuse d'intervenir sur le lecteur C: sur un Windows 10 classique, non ?
(en tout cas, c'était le cas sur mon PC jadis)

 

[fanch55]

Bonsoir @Staple1600,
Tout à fait Admin comme la majeure partie des personnes à domicile , sinon au travail, il y aura d'autres personnes pour intervenir
Mais tu as raison, Wscript ne peut pas agir sur le C:, mais seulement dans le Root .. dans tout autre dossier hors système , pas de pb .
😉

 

[Staple1600]

Re

=>fanch55
Sur la copie d'écran, le fichier incriminé est sur le Bureau
Et on voit que le path pointe sur le lecteur C
Alors le script fonctionnera ou Windows toussera?

 

[fanch55]

Le bureau peut être stocké n'importe où

 

[Staple1600]

Re

C'est parce qu'on pointe sur dans Users, non ?

Mais si tu créés un fichier test.txt sur C:\, cela fonctionne-t-il?

 

[Usine à gaz]

Bonjour JM, fanch55, Bambi, le Forum,
Je vous souhaite à toutes et à tous un bon dimanche 🙂

@Staple1600 : à l'ouverture de ce matin, le fichier intempestif n'est pas réapparu 🙂
@fanch55 ; ton poste #15 - je suis une bille lol car je n'ai pas compris comment procéder en cas de besoin.
lionel :)

 

[Staple1600]

Bonjour le fil

Usine à gaz
Tant mieux

Petit conseil en passant
Si tu n'es pas sur de savoir comment on manipule la base de registre de Windows, je te conseille d'être prudent avec la méthode de fanch55
C'est fragile cette bestiole*.
😉

*: la bestiole, c'est la base de registre, pas fanch55. 😉

 

[Usine à gaz]

Bjr JM,
J'avais compris le sens de "bestiole" lol.
Merci pour ton conseil avisé 🙂
Bon dimanche,
lionel,

 

[fanch55]

Bonjour à tous
@Staple1600 :
Le Vbs a été modifié pour s'exécuter en mode Administrateur :

If WScript.Arguments.Count <> 1 Then WScript.Quit 1
RunAsAdmin
Sub_Delete

Sub RunAsAdmin()
    Set Shell = CreateObject("WScript.Shell")
    Set Env = Shell.Environment("VOLATILE")
    If Shell.Run("%ComSpec% /C ""NET FILE""", 0, True) <> 0 Then
        Env("CurrentDirectory") = Shell.CurrentDirectory
        CreateObject("Shell.Application").ShellExecute WScript.FullName, """" & WScript.ScriptFullName & """ """ & WScript.Arguments(0) & """", , "runas", 5
        Env.Remove("CurrentDirectory")
        WScript.Quit
    End If
    If Env("CurrentDirectory") <> "" Then Shell.CurrentDirectory = Env("CurrentDirectory")
End Sub

Sub Sub_Delete()

If MsgBox("Voulez vous Supprimer : " & vblf & vblf & WScript.Arguments(0)  & " ?",vbYesNo,">>>  Supprimer_Gros_Fichier  <<<") = vbYes then
    Set fso = WScript.CreateObject("Scripting.FileSystemObject")
        fso.deletefile WScript.Arguments(0)
        If fso.FileExists(WScript.Arguments(0)) Then
            wscript.echo WScript.Arguments(0) & " n'a pas pu être détruit "
        else
            wscript.echo WScript.Arguments(0) & " a été détruit de cet odinateur"
        end if
    Set Fso = Nothing
End If
End Sub

Tous les fichiers peuvent donc être détruits après réponse positive à la demande de l'Uacc ..

@Usine à gaz :
Lionel, si tu veux t'en servir :
- dézipper le fichier joint dans un dossier quelconque
- entrer en modification (clic droit) sur le fichier avec l'extension reg
- y indiquer le nom de ton dossier :
[HKEY_CLASSES_ROOT\*\shell\KillFile\command]
@="wscript c:\\Kill\\supprimer_gros_fichier.vbs \"%1\""
- sauvegarder et exécuter ( à ne faire qu'une fois sauf pour correction )

Ensuite tu as l'option Killfile dans le clic droit de l'explorateur ( à faire sur le fichier à détruire )

 

[Usine à gaz]

Re-Bonjour JM, fanch55, Bambi, le Forum,

@fanch55 : Merci pour ce nouveau fichier et tes explications 🙂
Je garde précieusement ... en cas 🙂
lionel 🙂

 

[Staple1600]

Re, Bonjour fanch55

=>fanch55
Tu n'es point d'accord sur ce que je dis sur la bestiole 😉
(cf message#23)
Pour le fun, on pourrait transcrire le script VBS en VBA, non ?
(Ce qui sera plus compliqué qu'avec VBS)

 

[fanch55]

Re, Bonjour fanch55

=>fanch55
Tu n'es point d'accord sur ce que je dis sur la bestiole 😉
(cf message#23)
Pour le fun, on pourrait transcrire le script VBS en VBA, non ?
(Ce qui sera plus compliqué qu'avec VBS)

C'est vrai, j'ai horreur de ce qui touche le registre Windows, mais il y a certaines chose qui sont incontournables.
Transcrire en Vba, oui c'est faisable et facile . J'avais fait le script pour une personne néophyte en Office. Elle voulait qq chose indépendant d'office ou de VB ...