Const HKEY_LOCAL_MACHINE = &H80000002

                        

strComputer = "."

                        

Set oReg=GetObject("winmgmts://" &_ 

                        

??? strComputer & "/root/cimV2:StdRegProv")

                        

strKeyPath = "SOFTWARE/Microsoft/Windows NT/CurrentVersion/WinLogon"

                        

strValueName = "UIHost"

                        

oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,_

                        

strValueName,strValue

                        

Wscript.Echo "The Windows logon UI host is:" & strValue