For those who do not wish to use the 'two gateways' option, the fixed version of the script can be found below:
\*** START SCRIPT ***
0 then
set shell = CreateObject("WScript.Shell")
shell.logevent 1, "Setnet: Failed to SetTcpipNetBios for "_
& "MACAddress = " & .Item("MACAddress")_
& ", NetBios = " & .Item("NetBios")_
& ", return code = " & ret & ": " & ErrorMessage(ret)
set shell = nothing
wscript.quit
end if
end if
end with
end sub
'----
'main : ' Get the service
set service = GetObject("winmgmts:\{impersonationLevel=impersonate}!//./root/cimv2")
if service is nothing then
set shell = CreateObject("WScript.Shell")
shell.logevent 1, "Setnet: Could not get WMI services object"
wscript.quit
end if
'The params had better be OK, because we can 't really handle any errors here
with wscript.arguments.named
'make up a query to find the right nic
if not .Exists("MACAddress") then
set shell = CreateObject("WScript.Shell")
shell.logevent 1, "Could not configure network - MACAddress was not specified"
wscript.quit
end if
wscript.echo(.Item("MACAddress"))
query = "SELECT * FROM Win32_NetworkAdapter WHERE MACAddress = '" & .Item("MACAddress") & "'"
set ethernetCards = service.ExecQuery(query, "WQL", wbemFlagReturnWhenComplete)
'if there's no card that matches, log an error :
if ethernetCards.count = 0 then
set shell = CreateObject("WScript.Shell")
shell.logevent 1, "setnet: Could not find a network adapter with MACAddress = " & .Item("MACAddress")
wscript.quit()
end if
'get the associated configuration and set the values. there should only
'be one card, but we need to use the enumerator to get it
for each card in ethernetCards
set configs = card.Associators_(, "Win32_NetworkAdapterConfiguration")
'again there's only one
for each config in configs
useDHCP = false
if .Exists("UseDHCP") then
if .Item("UseDHCP") = "yes" then
useDHCP = true
end if
end if
if useDHCP then
DoEnableDHCP config
else
DoEnableStatic config
DoSetGateways config
DoSetDNSServerSearchOrder config
DoSetDNSDomain config
DoSetWINSServer config
'Set the DNS suffixes search order for all the adapters
set objNetworkSettings = service.Get("Win32_NetworkAdapterConfiguration")
DoSetDNSSuffixSearchOrder objNetworkSettings
set objNetworkSettings = nothing
end if
'do this regardless of dhcp DoSetTcpipNetBios config
next
'There should only be one card with the specifies MAC, but we'll
'jump out here regardless
exit for
next
'success - celebrate :
set shell = CreateObject("WScript.Shell")
shell.logevent 0, "setnet: Successfully configured network adapter with MACAddress = " & .Item("MACAddress")
end with
set shell = nothing
set service = nothing
set ethernetCards = nothing
set configs = nothing
</script>
</job>
\*** END SCRIPT ***
The problem with the script is that it expects two valid arrays (default gateways and metrics) to be passed to the 'DoSetGateways' function. The problem is that the default gateway array only contains one element whereas the metrics array for some reason always contains two elements. The fixed VB code checks to see if more than one default gateway was passed. If so, it assumes that both arrays are correct. If not, it attempts to correct the default gateway and metrics arrays.
The file should be copied to the following location:
\Program Files\VMware\VMware VirtualCenter 2.0\scripts
I hope this helps.
Erwin
