I am new to VBScripting - basically trying to setup active NIC on server and calling a subroutine to enable static IP knowing the MAC address of NIC interface, but getting "SWbemObjectEx: Type mismatch".
Anybody can explain what I'm doing wrong (I can be sure it is something very obvious for a seasoned scripter)?
Script extract below:
Sub IPSetup(strNICName,strMACAddress,strIPAddress,strSubnetMask,strGateway,strDNSOrder)
Dim sIPAddress
Dim sSubnetMask
Dim sGateway
Dim sMACAddress
Dim sDNSOrder
Dim sNICName
Dim sGatewaymetric
strComputer = "."
sGatewayMetric = 1
sNICName = strNICName
sMACAddress = strMACAddress
sIPAddress = strIPAddress
sSubnetMask = strSubnetMask
sGateway = strGateway
sDNSOrder = strDNSOrder
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where MACAddress='" & sMACAddress & "'")
For Each objItem in colItems
errEnable = objItem.EnableStatic(sIPAddress, sSubnetMask)
errGateways = objItem.SetGateways(sGateway, sGatewaymetric)
errDNSOrder = objItem.SetDNSServerSearchOrder(sDNSOrder)
errDNSRegister = obItem.SetDynamicDNSRegistration(True)
If sNICName = "DATA" Then
errDNSRegister = objItem.SetDynamicDNSRegistration(True)
Else
errDNSRegister = objItem.SetDynamicDNSRegistration(False)
End If
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next
End Sub
Thank you
Jeff
