Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30716 / 76732 ←次へ | 前へ→

【51280】Re:端末のIPアドレスとサブネットマスクを知るには?
質問  row  - 07/9/8(土) 18:51 -

引用なし
パスワード
   IPアドレスの取得は、成功しましたが
VBAを使って、IPアドレスの設定は可能でしょうか?

取得のルーチンを参考に以下のように、作ってみました。

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
  ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
Dim IPアドレス As Variant
Dim SUBネット As Variant
Dim デフォルトゲートウェイ As Variant
Dim IP区切 As Variant

IPアドレス = "126.98.120.245"
SUBネット = "255.255.255.240"
デフォルトゲートウェイ = "126.98.120.1"

n = 1
For Each objAdapter In colAdapters
  If Not IsNull(objAdapter.DefaultIPGateway) Then
   objAdapter.IPAddress(i) = IPアドレス
   objAdapter.IPSubnet(i) = SUBネット
   objAdapter.DefaultIPGateway(i) = デフォルトゲートウェイ
  End If
  n = n + 1
Next

IPアドレスは、例としてですが
VBAを使って設定したくとも
どうやっても出来ない状態です。

教えていただきたく、よろしくお願いいたします。
2 hits

【50622】端末のIPアドレスとサブネットマスクを知るには? row 07/8/5(日) 17:16 質問
【50623】Re:端末のIPアドレスとサブネットマスク... かみちゃん 07/8/5(日) 17:32 発言
【50624】Re:端末のIPアドレスとサブネットマスク... row 07/8/5(日) 17:53 お礼
【51280】Re:端末のIPアドレスとサブネットマスク... row 07/9/8(土) 18:51 質問

30716 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free