投稿日 | : 2003/06/11(Wed) 10:27 |
投稿者 | : tomo |
Eメール | : |
URL | : |
タイトル | : Re^3: tcp/ip |
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
変更できない時にエラー表示したいのですがどうすれば表示されるのでしょうか