WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > コンピュータをドメインに参加する |
中古車買うならやっぱり
IT 関連情報を気軽に知りたい方へ、 私も使っていますお勧め SIM フリースマホ ASUS Zenfone コンピュータをドメインに参加する: Win32_ComputerSystem - WMI Sample (VB)Topics
コンピュータをドメインに参加するサンプルプログラムです。
Sample Code
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
![]() Comment
今回のサンプルを実行するにはテスト環境にドメインコントローラが必要です。 ![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |