Another Script problem

[Mosley]

I get permission not held when running as Administrator, it should log user
off

Sub ShutDown()

Dim Connection, WQL, SystemClass, System

Set Connection = GetObject("winmgmts:root\cimv2")
WQL = "Select Name From Win32_OperatingSystem"
Set SystemClass = Connection.ExecQuery(WQL)

For Each System In SystemClass
System.Win32ShutDown (0)
Next

End Sub


Any ideas

 

[Atrax]

perhaps you should be asking in a group more directly related to WMI?





________________________________________
Atrax. MVP, IIS
http://rtfm.atrax.co.uk/

newsflash : Atrax.Richedit 1.0 now released.
http://rtfm.atrax.co.uk/infinitemonkeys/components/Atrax.RichEdit/