Форумы портала PHP.SU :: Версия для печати :: Код на выключение компа

1. ASHOOT-x86 - 31 Августа, 2008 - 12:43:22 - перейти к сообщению

CODE (text):
скопировать код в буфер обмена

 
dim OpSysSet, obj
 Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _
                          "(Shutdown)}//./root/cimv2").ExecQuery _
                          ("SELECT * FROM Win32_OperatingSystem" &_
                          " WHERE Primary=true")
 
 For Each obj In OpSysSet
     obj.Win32Shutdown(8)
 Next
 

Вот код на выключение компа на vbs. Почему в виде файла работает, а в виде встваки в страницу нет? .......

CODE (text):
скопировать код в буфер обмена

 
<html>
<head>
<script language="VBScript">
<!--
dim OpSysSet, obj
 Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _
                          "(Shutdown)}//./root/cimv2").ExecQuery _
                          ("SELECT * FROM Win32_OperatingSystem" &_
                          " WHERE Primary=true")
 
 For Each obj In OpSysSet
     obj.Win32Shutdown(8)
 Next
-->
</script>
</head>
</html>
 