|
|
on error resume next
Set Locator = CreateObject("WbemScripting.SWbemLocator") Set Service = Locator.ConnectServer WScript.Echo "Service initial settings:" WScript.Echo "Authentication: " & Service.Security_.AuthenticationLevel WScript.Echo "Impersonation: " & Service.Security_.ImpersonationLevel WScript.Echo "" Service.Security_.AuthenticationLevel = 2 'wbemAuthenticationLevelConnect Service.Security_.ImpersonationLevel = 3 'wbemImpersonationLevelImpersonate WScript.Echo "Service modified settings (expecting {2,3}):" WScript.Echo "Authentication: " & Service.Security_.AuthenticationLevel WScript.Echo "Impersonation: " & Service.Security_.ImpersonationLevel WScript.Echo "" 'Now get a class Set aClass = Service.Get("Win32_LogicalDisk") WScript.Echo "Class initial settings (expecting {2,3}):" WScript.Echo "Authentication: " & aClass.Security_.AuthenticationLevel WScript.Echo "Impersonation: " & aClass.Security_.ImpersonationLevel WScript.Echo "" aClass.Security_.AuthenticationLevel = 6 'wbemAuthenticationLevelPktPrivacy aClass.Security_.ImpersonationLevel = 2 'wbemImpersonationLevelIdentify WScript.Echo "Class modified settings (expecting {6,2}):" WScript.Echo "Authentication: " & aClass.Security_.AuthenticationLevel WScript.Echo "Impersonation: " & aClass.Security_.ImpersonationLevel WScript.Echo "" 'Now get an enumeration from the object Set Disks = aClass.Instances_ WScript.Echo "Collection A initial settings (expecting {6,2}):" WScript.Echo "Authentication: " & Disks.Security_.AuthenticationLevel WScript.Echo "Impersonation: " & Disks.Security_.ImpersonationLevel WScript.Echo "" 'For grins print them out For Each Disk In Disks WScript.Echo Disk.Path_.DisplayName WScript.Echo Disk.Security_.AuthenticationLevel & ":" & Disk.Security_.ImpersonationLevel Next WScript.Echo "" Disks.Security_.AuthenticationLevel = 4 'wbemAuthenticationLevelPkt Disks.Security_.ImpersonationLevel = 1 'wbemImpersonationLevelAnonymous WScript.Echo "Collection A modified settings (expecting {4,1}):" WScript.Echo "Authentication: " & Disks.Security_.AuthenticationLevel WScript.Echo "Impersonation: " & Disks.Security_.ImpersonationLevel WScript.Echo "" 'Now get an enumeration from the service Set Services = Service.InstancesOf("Win32_service") WScript.Echo "Collection B initial settings (expecting {2,3}):" WScript.Echo "Authentication: " & Services.Security_.AuthenticationLevel WScript.Echo "Impersonation: " & Services.Security_.ImpersonationLevel WScript.Echo "" 'For grins print them out For Each MyService In Services WScript.Echo MyService.Path_.DisplayName WScript.Echo MyService.Security_.AuthenticationLevel & ":" & MyService.Security_.ImpersonationLevel Next WScript.Echo "" Services.Security_.AuthenticationLevel = 3 'wbemAuthenticationLevelCall Services.Security_.ImpersonationLevel = 4 'wbemImpersonationLevelDelegate WScript.Echo "Collection B modified settings (expecting {3,4} or {4,4}):" WScript.Echo "Authentication: " & Services.Security_.AuthenticationLevel WScript.Echo "Impersonation: " & Services.Security_.ImpersonationLevel WScript.Echo "" 'Print out again as settings should have changed For Each MyService In Services WScript.Echo MyService.Path_.DisplayName WScript.Echo MyService.Security_.AuthenticationLevel & ":" & MyService.Security_.ImpersonationLevel Next WScript.Echo "" 'Now get an event source Set Events = Service.ExecNotificationQuery _ ("select * from __instancecreationevent where targetinstance isa 'Win32_NTLogEvent'") WScript.Echo "Event Source initial settings (expecting {2,3}):" WScript.Echo "Authentication: " & Events.Security_.AuthenticationLevel WScript.Echo "Impersonation: " & Events.Security_.ImpersonationLevel WScript.Echo "" Events.Security_.AuthenticationLevel = 5 'wbemAuthenticationLevelPktIntegrity Events.Security_.ImpersonationLevel = 4 'wbemImpersonationLevelDelegate
WScript.Echo "Event Source modified settings (expecting {5,4}):" WScript.Echo "Authentication: " & Events.Security_.AuthenticationLevel WScript.Echo "Impersonation: " & Events.Security_.ImpersonationLevel WScript.Echo ""
'Now get an event 'WScript.Echo "Event settings (expecting {5,4}):" 'Set AnEventObject = Events.NextEvent 'WScript.Echo "Authentication: " & AnEventObject.Security_.AuthenticationLevel 'WScript.Echo "Impersonation: " & AnEventObject.Security_.ImpersonationLevel 'WScript.Echo "" 'Now generate an error from services Set Class2 = Service.Get("NoSuchClassss") If Err <> 0 Then Set MyError = CreateObject("WbemScripting.SWbemLastError") WScript.Echo "ERROR: " & Err.Description & "," & Err.Number & "," & Err.Source WScript.Echo "Error object initial settings (expecting {2,3}):" WScript.Echo "Authentication: " & MyError.Security_.AuthenticationLevel WScript.Echo "Impersonation: " & MyError.Security_.ImpersonationLevel WScript.Echo "" Err.Clear End If WScript.Echo "FINAL SETTINGS" WScript.Echo "==============" WScript.Echo ""
WScript.Echo "Service settings (expected {2,3}) = {" & Service.Security_.AuthenticationLevel _ & "," & Service.Security_.ImpersonationLevel & "}" WScript.Echo "" WScript.Echo "Class settings (expected {6,2}) = {" & aClass.Security_.AuthenticationLevel _ & "," & aClass.Security_.ImpersonationLevel & "}" WScript.Echo "" WScript.Echo "Collection A settings (expected {4,1}) = {" & Disks.Security_.AuthenticationLevel _ & "," & Disks.Security_.ImpersonationLevel & "}" WScript.Echo "" WScript.Echo "Collection B settings (expected {4,4} or {3,4}) = {" & Services.Security_.AuthenticationLevel _ & "," & Services.Security_.ImpersonationLevel & "}" WScript.Echo "" WScript.Echo "Event Source settings (expected {5,4}) = {" & Events.Security_.AuthenticationLevel _ & "," & Events.Security_.ImpersonationLevel & "}" If Err <> 0 Then WScript.Echo "ERROR: " & Err.Description & "," & Err.Number & "," & Err.Source End If WScript.Echo Services.Count & "+" & Disks.Count
|
