Discussion :

[edgarjacobs]

Hello à tous,

J'ai deux pc (made home) à la maison.
Le premier: cm gigabyte M85M-US2H, amd Athlon II FX4, 4 Go DDR2 (A)
Le second: cm gigabyte 970A-DS3P, amd Fx 4130, 4 Go DDR3 (B)
Tous deux sous le même win 7 ultimate (issu du même cd), 64 bits, sp1, et toutes mises à jour effectuées (pas les facultatives).

Détail bizarre: quand je veux mettre B en veille, j'ai l'option "Mettre en veille", quand je veux mettre A en veille, j'ai les options "Mettre en veille" et "Mettre en veille prolongée".

Le problème (qui ne m'empêche pas de travailler): je mets B en veille, et sans que je touche quoi que ce soit, parfois il se réveille, tout seul comme un grand (pas comme moi, faut me jeter hors du lit). Je précise que j'ai supprimé le réveil par souris (donc bousculer le bureau ne servira à rien), que je n'ai rien trouvé dans l'UEFI qui permette un réveil par arrivée d'informations via carte ethernet, et que je n'ai ni chat ni souris à la maison.

Si quelqu'un a une idée du pourquoi (et peut-être une solution), je suis preneur.

Merci aux lecteurs de ce post.

A+

Edgar;

[hackoofr]

Copier et coller ce vbscript dans votre Notepad et enregistrer-le sous le nom Mise_en_veille.vbs
et exécuter-le par double clique

Code vb :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Option Explicit
Dim MyScriptPath 
MyScriptPath = WScript.ScriptFullName
Call Shortcut(MyScriptPath,"Hibernate the computer")
Call AskQuestion()
'**********************************************************************************************
Sub Shortcut(PathApplication,Name)
    Dim objShell,DesktopPath,objShortCut,MyTab
    Set objShell = CreateObject("WScript.Shell")
    MyTab = Split(PathApplication,"\")
    If Name = "" Then
        Name = MyTab(UBound(MyTab))
    End if
    DesktopPath = objShell.SpecialFolders("Desktop")
    Set objShortCut = objShell.CreateShortcut(DesktopPath & "\" & Name & ".lnk")
    objShortCut.TargetPath = Dblquote(PathApplication)
    ObjShortCut.IconLocation = "%SystemRoot%\system32\SHELL32.dll,-28"
    objShortCut.Save
End Sub
'**********************************************************************************************
Sub AskQuestion()
    Dim Question,Msg,Title
    Title = "Hibernate the computer by Hackoo 2016"
    Msg = "Are you sure to Hibernate the computer now ?"& Vbcr &_
    "If yes, then click [YES] button "& Vbcr &_
    "If not, then click [NO] button"
    Question = MsgBox (Msg,VbYesNo+VbQuestion,Title)
    If Question = VbYes then
        Call Run_Hibernate()
    else
        WScript.Quit()
    End if
End Sub
'**********************************************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************
Sub Run_Hibernate()
    Dim ws,Command,Execution
    Set ws = CreateObject("wscript.Shell")
    Command = "Cmd /c %windir%\System32\rundll32.exe powrprof.dll,SetSuspendState Hibernate"
    'Command = "Cmd /c Shutdown -s -t "& N &" -c "& DblQuote("Save your work because your PC will shut down in "& N &" seconds")
    Execution = ws.run(Command,0,True)
End sub
'**********************************************************************************************

[edgarjacobs]

Merci hackoofr. Je teste cela. Et désolé pour le délai de réponse.
A+
Edgar;

[edgarjacobs]

Re hello,

Hackoofr, j'ai testé ton vbs. Cela fonctionne à merveille, il met windows en veille prolongée, mais.... toujours le même problème: "quelque chose" le réveille. Et pas d'idée de ce que ça peut être

Si quelqu'un a une idée, merci d'avance.

A+

Edgar;

EDIT: mais ce "problème" ne m'empêche pas de travailler normallement. Donc, pas grave.

[edgarjacobs]

Hello,

Je déterre mon sujet pour y apporter une brique, pour ceux que ça intéresse. J'ai fini par me rendre compte que le pc B se réveillait, car on allumait le pc A. Je suppose que c'est parce que le pc B partage une partie de ses répertoires avec le pc A (de même que l'imprimante).

Edgar;

[hackoofr]

Hello,

Je déterre mon sujet pour y apporter une brique, pour ceux que ça intéresse. J'ai fini par me rendre compte que le pc B se réveillait, car on allumait le pc A. Je suppose que c'est parce que le pc B partage une partie de ses répertoires avec le pc A (de même que l'imprimante).

Edgar;

Dans ce cas , il faut mentionner que la question a été et sans oublier surtout mon +1