Spegnere pc da remoto

[immakx]

Ola,
avrei bisogno di fare la seguente cosa:
spegere il pc utilizzando un'interfaccia web.

Linguaggi supportati dal server:
1) Asp
2) VbScript
3) Java Script

Ce 'è nessuno che mi sa dare una mano?

Grazie mille ;)
Max

[71104]

dubito che quei linguaggi arrivino a tali livelli... ^^
ma se sei disposto a lavorare un po' in C se vuoi c'è sta roba qua:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shutdown/base/initiatesystemshutdown.asp

[andbin]

spegere il pc utilizzando un'interfaccia web.

Linguaggi supportati dal server:
1) Asp
2) VbScript
3) Java ScriptDim sh
Set sh = CreateObject("Shell.Application")
sh.ShutdownWindows()Dovresti provare ad usare questo codice lato server in una pagina ASP. Non conosco ASP, quindi non saprei dirti se va bene e se può funzionare o meno. ;)

[trallallero]

Dim sh
Set sh = CreateObject("Shell.Application")
sh.ShutdownWindows()Dovresti provare ad usare questo codice lato server in una pagina ASP. Non conosco ASP, quindi non saprei dirti se va bene e se può funzionare o meno. ;)
quindi stai dicendo che, se va bene, potrei navigando su internet caricare
una pagina web che mi puó spegnere il pc ? :mbe:

[andbin]

quindi stai dicendo che, se va bene, potrei navigando su internet caricare
una pagina web che mi puó spegnere il pc ? :mbe:No, quel codice VBScript (ammesso che funzioni, non ho possibilità di provarlo) dovrebbe essere eseguito lato server quindi all'interno del web server, non sul browser client. ;)

[trallallero]

No, quel codice VBScript (ammesso che funzioni, non ho possibilità di provarlo) dovrebbe essere eseguito lato server quindi all'interno del web server, non sul browser client. ;)
meno male ... mi sembrava strano :D
si vede che non ci capisco molto di programmazione web, eh ? :fiufiu:

[immakx]

Dim sh
Set sh = CreateObject("Shell.Application")
sh.ShutdownWindows()Dovresti provare ad usare questo codice lato server in una pagina ASP. Non conosco ASP, quindi non saprei dirti se va bene e se può funzionare o meno. ;)

Per funzionare funziona xò c'è un solo problema che il pc non lo spegne fa solo venire fuori la schermata con i spegni o riavvia ...
Dai che siamo vicini ....

Grazie 1'000 ( e ci riusciamo 1'000'000 :D )

[71104]

ti emoziona così tanto sta cosa? :huh:

cmq (perdonami se mi metto a gufare) ma con quei linguaggi non ci riuscirai... :asd: :Prrr:

[andbin]

Per funzionare funziona xò c'è un solo problema che il pc non lo spegne fa solo venire fuori la schermata con i spegni o riavvia ...Sì, è vero. :doh: Non avevo letto bene la documentazione.

Comunque si può fare tramite WMI. Ho fatto qualche ricerca e qualche prova.
Ecco il codice:
Const LOGOFF = 0
Const SHUTDOWN = 1
Const REBOOT = 2
Const POWEROFF = 8

Const FORCE_LOGOFF = 4
Const FORCE_SHUTDOWN = 5
Const FORCE_REBOOT = 6
Const FORCE_POWEROFF = 12

Set wmi = GetObject("winmgmts:{(Shutdown)}")
Set objSet = wmi.InstancesOf("Win32_OperatingSystem")

For Each obj in objSet
obj.Win32Shutdown(POWEROFF)
NextIo ovviamente l'ho provato sul mio Win2000 da riga di comando (l'ho messo in un file .vbs e l'ho avviato) e posso dire che funziona bene.

Provalo. ;)

[Nightmare]

non posso porvare ma..
da questo codice qui
Dim sh
Set sh = CreateObject("Shell.Application")
sh.ShutdownWindows()
non si puo scrivere direttamente nella shell il comando shutdown?