Autres Windows 10 - 64bytes

Usine à gaz

XLDnaute Barbatruc

• 30 Janvier 2021

• #16

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2021

• #17

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)

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 30 Janvier 2021

• #18

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 .

 

Dernière édition: 30 Janvier 2021

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2021

• #19

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?

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 30 Janvier 2021

• #20

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2021

• #21

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?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 31 Janvier 2021

• #22

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 :)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Janvier 2021

• #23

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 31 Janvier 2021

• #24

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 31 Janvier 2021

• #25

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

C#:

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 )

 

Pièces jointes

• Kill.zip

  1 016 bytes · Affichages: 1

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 31 Janvier 2021

• #26

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

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Janvier 2021

• #27

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)

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 31 Janvier 2021

• #28

Staple1600 à dit:

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)

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif