コンピュータをドメインに参加する: Win32_ComputerSystem
■Topics
コンピュータをドメインに参加するサンプルです。
Win32_ComputerSystemクラスを使用します。
Private Sub Command1_Click()
Dim Cs As SWbemObject
Dim CsSet As SWbemObjectSet
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim Ret As Long
Dim PID As Long
Dim MesStr As String
Dim strDomain As String
Dim strUser As String
Dim strPassword As String
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144
strDomain = InputBox("ドメイン名")
strUser = InputBox("管理者ユーザー")
strPassword = InputBox("パスワード")
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set CsSet = Service.ExecQuery _
("Select * From Win32_ComputerSystem")
For Each Cs In CsSet
Ret = Cs.JoinDomainOrWorkGroup _
(strDomain, strPassword, strDomain & "\" & strUser, _
vbNullString, JOIN_DOMAIN + ACCT_CREATE)
Next
If Ret = 0 Then
MsgBox "ドメインの参加を終了しました。"
Else
MsgBox "ドメインの参加に失敗しました。"
End If
Set Cs = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
Dim Cs As SWbemObject
Dim CsSet As SWbemObjectSet
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim Ret As Long
Dim PID As Long
Dim MesStr As String
Dim strDomain As String
Dim strUser As String
Dim strPassword As String
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144
strDomain = InputBox("ドメイン名")
strUser = InputBox("管理者ユーザー")
strPassword = InputBox("パスワード")
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set CsSet = Service.ExecQuery _
("Select * From Win32_ComputerSystem")
For Each Cs In CsSet
Ret = Cs.JoinDomainOrWorkGroup _
(strDomain, strPassword, strDomain & "\" & strUser, _
vbNullString, JOIN_DOMAIN + ACCT_CREATE)
Next
If Ret = 0 Then
MsgBox "ドメインの参加を終了しました。"
Else
MsgBox "ドメインの参加に失敗しました。"
End If
Set Cs = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
今回のサンプルを実行するにはテスト環境にドメインコントローラが必要です。
それでは実行してみましょう。ドメイン名・管理者ユーザー・パスワードを聞いてきますのでそれぞれ入力しましょう。
成功すれば「ドメインの参加を終了しました。」と表示されます。
一言書いておきますがJoinDomainOrWorkGroupメソッドに関してはWMI SDKにまだ記述が何もないようです(2002/08/12現在)。
今回は「WMI CIM Studio」というツールを参考にして製作しました。
簡単にこのJoinDomainOrWorkgroupメソッドに関して説明しておくと、
JoinDomainOrWorkgroup(Name,Password,UserName,AccountOU,FJoinOptions)
Name : 参加したいドメイン名
Password : ドメイン管理者権限アカウントパスワード(アカウント指定時)
UserName : ドメイン管理車権限アカウント(アカウント指定時)
AccountOU : Active DirectoryのOUを指定(省略可)
FJoinOptions : ドメイン参加時オプション
という構文になっています。
Win32_ComputerSystem クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。