You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
1.0 KiB
33 lines
1.0 KiB
'***************************************************************************
|
|
'This script tests the ability to access remote CIMOMs with non-default
|
|
'credentials
|
|
'***************************************************************************
|
|
|
|
On Error Resume Next
|
|
|
|
Set Locator = CreateObject("WbemScripting.SWbemLocator")
|
|
Set Service = Locator.ConnectServer ("lamard3", "root\sms\site_la3", "smsadmin", "Elvis1")
|
|
Service.Security_.ImpersonationLevel = 3
|
|
Set Site = Service.Get ("SMS_Site.SiteCode=""LA3""")
|
|
|
|
WScript.Echo Site.Path_.DisplayName
|
|
WScript.Echo Site.BuildNumber
|
|
WScript.Echo Site.ServerName
|
|
WScript.Echo Site.InstallDir
|
|
|
|
Set cimomId = GetObject ("winmgmts:{impersonationLevel=impersonate}!\\ludlow\root\cimv2:Win32_LogicalDisk=""C:""")
|
|
for each Property in cimomId.Properties_
|
|
str = Property.Name & " = "
|
|
value = Property.Value
|
|
|
|
if (IsNull(value)) then
|
|
str = str & "<null>"
|
|
else
|
|
str = str & value
|
|
end if
|
|
WScript.Echo str
|
|
next
|
|
|
|
if Err <> 0 Then
|
|
WScript.Echo Err.Description
|
|
End if
|