Vista - find the current stat and reboot

I would like to reboot some computer, but I need to know what state there in.
Example if computername is in the login prompt rebbot, if computer is locked
do nothing.

hey

as i can see it you can make any kind of decision

if user login or not

so it something like this will do the job:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
( "Select * from Win32_ComputerSystem" )

For Each objComputer In colComputer
If objComputer.UserName = "" ' no user log on
strRestart = "shutdown -r -t 0 "
Set objShell = CreateObject("WScript.Shell")
objShell.Run strRestart
Else
WScript.Quit
Next