Boot from Media and static IP script

Question

I thought I would give back a bit to the community.  My current engagement has a client where 2/3 of the computers are not on DHCP, and probably won't be anytime soon.  There is a feature deficiency in the SCCM boot from media function, it lets
you set the IP address in the initial WinPE startup, but that address isn't communicated to Windows.  Windows comes up expecting to find DHCP.  Hint, hint here anyone from the product group, this should be added to the Apply Network Settings task
This script needs to be put in the task sequence right before the Apply Network Settings task sequence step.  The script will check to see if the variables were already set in Windows (which works correctly).  If not (only happens when you are
doing a new install) it will read the entries from WinPE and write them to the TS variables needed by Apply Network Settings. 
There is a limitation to the scipt that it can only put in as much as can be entered by WinPE.  So things like multiple DNS servers for example can't be entered into PE, so they can't be transfered to Windows.
Set objWMIService = GetObject ("winmgmts:\\.\root\cimv2")
WQL = "Select * from Win32_NetworkAdapterConfiguration where IPEnabled = TRUE"
Set colNetAdapters = objWMIService.ExecQuery (WQL)
WScript.Echo "Number of adapters is " & colNetAdapters.Count
set objSCCM = CreateObject("Microsoft.SMS.TSEnvironment")
if objSCCM("OSDAdapter0IPAddressList") = "" then
 For Each objNetAdapter In colNetAdapters
  if objNetAdapter.DHCPEnabled then
   WScript.Echo "DHCP Enabled"
  else
   WScript.Echo "DHCP Disabled"
   objSCCM("OSDAdapter0EnableDHCP") = false
   if Not IsNull (objNetAdapter.IPAddress) then
    strIPAddress = objNetAdapter.IPAddress(0)
    WScript.Echo "IP Address:       " & strIPAddress
    objSCCM("OSDAdapter0IPAddressList") = strIPAddress
   end if
   if Not IsNull (objNetAdapter.IPSubnet) then
    strIPSubnet = objNetAdapter.IPSubnet(0)
    WScript.Echo "IP Subnet:        " & strIPSubnet
    objSCCM("OSDAdapter0SubnetMask") = strIPSubnet
   end if
   if Not IsNull (objNetAdapter.DefaultIPGateway) then
    strIPGateway = objNetAdapter.DefaultIPGateway(0)
    WScript.Echo "IP Gateway:       " & strIPGateway
    objSCCM("OSDAdapter0Gateways") = strIPGateway
   end if
   if Not IsNull (objNetAdapter.DNSServerSearchOrder) then
    strDNSServerSearchOrder = objNetAdapter.DNSServerSearchOrder(0)
    WScript.Echo "DNS Server:       " & strDNSServerSearchOrder
    objSCCM("OSDAdapter0DNSServerList") = strDNSServerSearchOrder
   end if
   if Not IsNull (objNetAdapter.MACAddress) then
    strMACAddress = objNetAdapter.MACAddress(0)
    WScript.Echo "MAC Address:      " & strMACAddress
   end if
   if Not IsNull (objNetAdapter.DNSDomainSuffixSearchOrder) then
    strDNSDomainSuffixSearchOrder = objNetAdapter.DNSDomainSuffixSearchOrder(0)
    WScript.Echo "DNS DOMAIN:       " & strDNSDomainSuffixSearchOrder
   end if
   if Not IsNull (objNetAdapter.WINSPrimaryServer) then
    strWins = objNetAdapter.WINSPrimaryServer
    objSCCM("OSDAdapter0EnableWINS") = true
    if Not IsNull (objNetAdapter.WINSSecondaryServer) then
     strWins = strWins & "," & objNetAdapter.WINSSecondaryServer
    end if
    WSCript.Echo "WINS Server:      " & strWins
    objSCCM("OSDAdapter0WINSServerList") = strWins
   else
    objSCCM("OSDAdapter0EnableWINS") = false
   end if
   objSCCM("OSDAdapterCount") = 1
  end if
 Next
End If
Bob

Answer 1

Here is a new version of the script, I think it has a few tweaks in it, it's been a while.  But I don't think it will solve your problem, neither will setting the variable in the collection.  Try this, it might help, run the script as cscript StaticIPBoot
and look at the output, it might give you some clue as to what's going on, or better yet change the script in the task sequence to:
cscript StaticIPBoot.vbs > c:\ip.txt
The script is fairly verbose, it might give you an idea of why it's not working.  The only reason I can see for that variable to be zero is that the script isn't finding any network adapters, or DHCP is enabled.
Set objWMIService = GetObject ("winmgmts:\\.\root\cimv2")
WQL = "Select * from Win32_NetworkAdapterConfiguration where IPEnabled = TRUE"
Set colNetAdapters = objWMIService.ExecQuery (WQL)
WScript.Echo "Number of adapters is " & colNetAdapters.Count
set objSCCM = CreateObject("Microsoft.SMS.TSEnvironment")
if objSCCM("OSDAdapter0IPAddressList") = "" then
 For Each objNetAdapter In colNetAdapters
  if objNetAdapter.DHCPEnabled then
   WScript.Echo "DHCP Enabled"
  else
   WScript.Echo "DHCP Disabled"
   objSCCM("OSDAdapter0EnableDHCP") = "false"
   if Not IsNull (objNetAdapter.IPAddress) then
    strIPAddress = objNetAdapter.IPAddress(0)
    WScript.Echo "IP Address:       " & strIPAddress
    objSCCM("OSDAdapter0IPAddressList") = strIPAddress
   end if
   if Not IsNull (objNetAdapter.IPSubnet) then
    strIPSubnet = objNetAdapter.IPSubnet(0)
    WScript.Echo "IP Subnet:        " & strIPSubnet
    objSCCM("OSDAdapter0SubnetMask") = strIPSubnet
   end if
   if Not IsNull (objNetAdapter.DefaultIPGateway) then
    strIPGateway = objNetAdapter.DefaultIPGateway(0)
    WScript.Echo "IP Gateway:       " & strIPGateway
    objSCCM("OSDAdapter0Gateways") = strIPGateway
   end if
   if Not IsNull (objNetAdapter.DNSServerSearchOrder) then
    strDNSServerSearchOrder = objNetAdapter.DNSServerSearchOrder(0)
    WScript.Echo "DNS Server:       " & strDNSServerSearchOrder
    objSCCM("OSDAdapter0DNSServerList") = strDNSServerSearchOrder
   end if
   if Not IsNull (objNetAdapter.MACAddress) then
    strMACAddress = objNetAdapter.MACAddress(0)
    WScript.Echo "MAC Address:      " & strMACAddress
   end if
   if Not IsNull (objNetAdapter.DNSDomainSuffixSearchOrder) then
    strDNSDomainSuffixSearchOrder = objNetAdapter.DNSDomainSuffixSearchOrder(0)
    WScript.Echo "DNS DOMAIN:       " & strDNSDomainSuffixSearchOrder
   end if
   if Not IsNull (objNetAdapter.WINSPrimaryServer) then
    strWins = objNetAdapter.WINSPrimaryServer
    objSCCM("OSDAdapter0EnableWINS") = "true"
    if Not IsNull (objNetAdapter.WINSSecondaryServer) then
     strWins = strWins & "," & objNetAdapter.WINSSecondaryServer
    end if
    WSCript.Echo "WINS Server:      " & strWins
    objSCCM("OSDAdapter0WINSServerList") = strWins
   else
    objSCCM("OSDAdapter0EnableWINS") = "false"
   end if
   objSCCM("OSDAdapterCount") = "1"
  end if
 Next
End If
Bob