我有這個子例程只顯示空白行。嘗試使用WMI來顯示系統上的網絡適配器的MTU值
'*************************************************************************
' 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
我想測試一下,看看如果網絡適配器有一個1300這將在多個機器上運行的MTU值和我有問題是在註冊表中的網絡適配器的名稱總是不同的。這將是很好,如果我的實施工作...
任何想法?
編輯: 我改變了這個子程序,但它不工作。
'*************************************************************************
' 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獲取任何東西。
有什麼建議嗎?我應該做一個新的職位?
這就是我可能做的...而不是檢查服務器網絡適配器以查看它是否已設置...我可能只是將其設置在腳本中。 – envinyater
我編輯了我的原始帖子,以反映這一新的變化。雖然有些事情很奇怪...... – envinyater