WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > IP アドレス (DHCP) を取り直す |
WMI スクリプトの実行結果を VBS を利用してメールで送信する方法を公開しています
パソコンに負荷のかからないウィルス対策なら ESET パーソナル セキュリティ 話題のプリウス、ディーラーオプションもネットで気軽に購入 IP アドレス (DHCP) を取り直す: Win32_NetworkAdapterConfiguration - WMI Sample (VB)Topics
DHCP の設定になっている NIC に対して IP アドレスの取り直しを行うサンプルプログラムです。Win32_NetworkAdapterConfiguration クラスを使用します。
Sample Code
Private Sub Command1_Click()
Dim NicSet As SWbemObjectSet Dim Nic As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim MesStr As String Dim Ret As Long Ret = -1 Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set NicSet = Service.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration " & _ "Where Description Like '%Intel%' And DHCPEnabled = True") For Each Nic In NicSet Ret = Nic.RenewDHCPLease() Next If Ret = 0 Then MsgBox "IP 再取得に成功しました。" Else MsgBox "IP 再取得に失敗しました。" End If Set NicSet = Nothing Set Nic = Nothing Set Locator = Nothing Set Service = Nothing End Sub
![]() Comment
実行すると「Intel」が含まれ DHCP の設定になっている NIC に対して IP アドレスの取り直しを行います。成功すれば「IP 再取得に成功しました。」と表示されます。 ![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |