マイネットワークのローカルエリア接続でのTCP/IPをVBで
変更するためのプログラムを作ろうと思うのですが
どうすればいいのかわかりません。
あとVBで出来るのでしょうか。

イメージてきにはVectorに置いてある「ヴァルヘルIPコンフィグ」
見たいなのが作りたいのですが。

何方か教えてください。

> マイネットワークのローカルエリア接続でのTCP/IPをVBで
> 変更するためのプログラムを作ろうと思うのですが
> どうすればいいのかわかりません。

Windows 2000以上であれば、netsh コマンドを呼び出すだけなので、
VBはなくても大丈夫です。VBSもしくはバッチファイルでもOKです。


====== 以下、以前某所に回答した時の投稿から抜粋 ======

> ・IPアドレスの設定
> ・サブネットマスクの設定
NETSHコマンド。

S = "NETSH INTERFACE IP SET ADDRESS"
S = S & " NAME=""ローカル エリア接続"""
S = S & " SOURCE=STATIC"
S = S & " ADDR=172.16.0.1"
S = S & " MASK=255.255.0.0"
Shell S, vbNormalFocus


> ・デフォルトゲートウェイの設定
NETSHコマンド。

S = "NETSH INTERFACE IP SET ADDRESS"
S = S & " NAME=""ローカル エリア接続"""
S = S & " GATEWAY=172.16.254.254"
S = S & " GWMETRIC=1"
Shell S, vbNormalFocus

もしくは、Win32_NetworkAdapterConfigurationクラスのSetGatewaysメソッド


> ・DNSサーバの設定
NETSHコマンド。

S = "NETSH INTERFACE IP SET DNS"
S = S & " NAME=""ローカル エリア接続"""
S = S & " SOURCE=STATIC"
S = S & " ADDR=172.168.254.1"
S = S & " REGISTER=NONE"
Shell S, vbNormalFocus

もしくは、Win32_NetworkAdapterConfigurationクラスのSetDNSServerSearchOrderメソッド

魔界の仮面弁護士サンありがとうございます。
出来ればIE接続のLAN設定の仕方も教えてください。

Private Sub Command1_Click()
Dim chek As Integer
S = "NETSH INTERFACE IP SET ADDRESS"
S = S & " NAME=""ローカル エリア接続"""
S = S & " SOURCE=STATIC"
S = S & " ADDR=172.16.11.214"
S = S & " MASK=255.255.255.0"
chek = Shell(S, vbNormalFocus)
Debug.Print chek
If chek = 0 Then MsgBox "失敗"
End Sub

変更できない時にエラー表示したいのですがどうすれば表示されるのでしょうか

>変更できない時にエラー表示したいのですがどうすれば表示されるのでしょうか

表示することは無理なのでしょうか？

> 変更できない時にエラー表示したいのですがどうすれば表示されるのでしょうか

WshShellオブジェクト経由で、標準出力を読み出してみてください。

Dim Exec As Object
Dim StdOut As Object, StdErr As Object

Set Exec = CreateObject("WScript.Shell").Exec(S)
Set StdOut = Exec.StdOut
Set StdErr = Exec.StdErr

で、あとはこの StdOut/StdErr変数(これらは、TextStreamオブジェクトとなります)の
ReadメソッドとAtEndOfStreamプロパティ、ないしは ReadAllメソッドを使えば良いかと。