空白行を表示するだけのこのサブルーチンがあります。
'*************************************************************************
' Check MTU
'*************************************************************************
Sub CheckMTU()
WScript.Echo("Check if MTU Size is set to 1300")
WScript.Echo("------------------------------------")
Set colNetwork = objWMISrvc.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objItem in colNetwork
WScript.Echo(objItem.MTU & vbCrLf)
Next
End Sub
ネットワーク アダプターの MTU 値が 1300 であるかどうかをテストしたいと考えています。これは複数のマシンで実行され、レジストリ内のネットワーク アダプターの名前が常に異なるという問題があります。私の実装がうまくいけばいいのですが...
何か案は?
編集: サブルーチンをこれに変更しましたが、機能していません。
'*************************************************************************
' Check MTU
'*************************************************************************
Sub CheckMTU()
Dim intResult
WScript.Echo("Verify MTU Size is 1300. Changes MTU Size to 1300 ")
WScript.Echo("------------------------------------")
Set colNetwork = objWMISrvc.ExecQuery("SELECT * FROM Win32_NetworkAdapter WHERE IPEnabled = True") 'WHERE IPEnabled = True
For Each objItem in colNetwork
WScript.Echo objItem
intResult = objItem.SetMTU(1300)
WScript.Echo intResult
Next
If intResult = 0 or intResult = 1 Then
WScript.Echo("Network Adapter MTU Value is set to 1300. Test PASSED" & vbCrLf)
Else
WScript.Echo("Network Adapter MTU Value can't be set to 1300. Test FAILED" & vbCrLf)
End If
End Sub
intResult または objItem を出力することすらありません。colNetwork から何も取得していないように感じます。
助言がありますか?新しい投稿をする必要がありますか?