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/de...emshutdown.asp

[andbin]

Originariamente inviato da immakx

spegere il pc utilizzando un'interfaccia web.

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

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.

[trallallero]

Originariamente inviato da andbin

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 ?

[andbin]

Originariamente inviato da trallallero

quindi stai dicendo che, se va bene, potrei navigando su internet caricare
una pagina web che mi puó spegnere il pc ?

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]

Originariamente inviato da andbin

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
si vede che non ci capisco molto di programmazione web, eh ?

[immakx]

Originariamente inviato da andbin

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 )

[71104]

ti emoziona così tanto sta cosa?

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

[andbin]

Originariamente inviato da immakx

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

Io 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?