コンピュータをドメインに参加する: Win32_ComputerSystem - WMI Sample (VB)

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