コンピュータ アカウント属性の列挙
説明
Active Directory におけるコンピュータ アカウントの位置および説明属性を取得するスクリプトを示します。
スクリプトコード
On Error Resume Next
Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D
strComputer = "atl-dc-01"
Set objComputer = GetObject("LDAP://CN=" & strComputer & _
",CN=Computers,DC=fabrikam,DC=com")
strLocation = objComputer.Get("location")
If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then
WScript.Echo "The location has not been set for this computer."
Err.Clear
Else
WScript.Echo "Location: " & strLocation
End If
strDescription = objComputer.Get("description")
If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then
WScript.Echo "The description has not been set for this computer."
Err.Clear
Else
WScript.Echo "Description: " & strDescription
End If
免責事項
本サンプル スクリプトは Microsoft の標準サポート プログラムまたはサービスではサポートされていません。このサンプル コードは、何等保障もない現状有姿のままで提供されるものです。さらに、Microsoft は、商品性、特定目的への適合性を含む一切の黙示の保証をいたしかねます。お客様がこのサンプル スクリプトおよびドキュメントの運用または機能から受けた影響については、お客様が負うものです。Microsoft、本サンプル スクリプトの作成者、および本スクリプトの作成、製造、配布に関与する者は、いかなる場合においても、本サンプル スクリプトおよびドキュメントの使用または使用不能から生じる損害 (逸失利益、事業の中断、事業情報の喪失またはその他の金銭的損失を含みますがこれらに限定されません) に関して一切責任を負いません。たとえ、Microsoft がこのような損害の可能性について知らされていた場合でも一切責任を負いません。
