Shutdown automatico del pc

cdt, è possibile con qualche programma?

SO: Vista

In pratica prima di andare a dormire voglio mettere live @Pompeii ma non voglio che il portatile rimanga acceso tutta la notte, inoltre c'è il problema che se c'è qualche programma in esecuzione windows richiede la conferma quindi dovrei cliccare un'altra volta, cosa che non voglio D:


10 goleador a chi mi trova un modo.

Uhm si chiama shutdown il comando. Prova shutdown /s /f

Automatico poi ovvio lo devi far eseguire a una certa ora.

Si lo veoglio fare tra due ore, il problema è che non sò come si imposta

Quote:

---

Originally Posted by Fuser

Si lo veoglio fare tra due ore, il problema è che non sò come si imposta

---

-s -t xxxx
imposti il tempo in secondi, quindi 2 ore e'
-s -t 7200

Il massimo di t pare sia 600 (almeno su dove sto vedendo io), quindi se non funziona così vai col task scheduler di windows, è fatto apposta.

http://www.vistashutdowntimer.toflo.de/
io uso questo

Boh... quel poco che lavorai su vista era una beta e non mi ricordo cosa ci combinai, ma da console su Xp me lo fa fare.

Vabbè non mi metto a provare, proverà lui se funge su vista tanto meglio :)

Code:

---

Option Explicit
Dim strOraFine
Dim strPausa
Dim strAzione
Dim objWshShell
strOraFine = InputBox("Quando deve essere eseguita l'azione (HH:MM:SS)?")
If strOraFine = "" Then
MsgBox "Per favore digitare l'ora in cui deve essere eseguita l'azione!"
Wscript.Quit
Else
If (Len(strOraFine)<>8) Or (Mid(strOraFine,3,1) <> ":") Or (Mid(strOraFine,6,1) <> ":") Then
MsgBox "Per favore utilizzare il formato indicato per l'inserimento dei dati!"
Wscript.Quit
End If
End If

strAzione = "shutdown.exe"
If MsgBox("Spegnere il computer alle ore ("& strOraFine &") ?", vbYesNo,"Domanda")=vbYes Then
strAzione = strAzione & " /s /f"
MsgBox "Alle " & strOraFine & " il computer verrà spento!"
Else
strAzione = strAzione & " /l /f"
MsgBox "Alle " & strOraFine & " eseguire la disconnessione dell'utente attuale!"
End If

strOraFine = date & " " & strOraFine
strPausa = DateDiff("s", now, strOraFine)
if (strPausa <= 0) then
strOraFine = (date + 1) & " " & strOraFine
strPausa = DateDiff("s", now, strOraFine)
End If
strPausa = strPausa * 1000
WScript.Sleep strPausa

Set objWshShell = CreateObject("WScript.Shell")
objWshShell.Run strAzione
Wscript.Quit

---

Se vuoi avere il tuo programmino in vbs

Ho scaricato Shutdown Agent e funge, chiudete pure :nod:

Quote:

---

Originally Posted by Fuser

cdt, è possibile con qualche programma?
SO: Vista
In pratica prima di andare a dormire voglio mettere live @Pompeii ma non voglio che il portatile rimanga acceso tutta la notte, inoltre c'è il problema che se c'è qualche programma in esecuzione windows richiede la conferma quindi dovrei cliccare un'altra volta, cosa che non voglio D:
10 goleador a chi mi trova un modo.

---

io uso EC Timer su xp, ma nn so se funzia anche x vista