Ok cheers.
Seems like the network info isn't getting picked up.
Create a new script called test.vbs (or whatever) containing
[code]strComputer = "."
Set wmiLocator = CreateObject("WbemScripting.SWbemLocator") Set objWMIService = wmiLocator.ConnectServer(strComputer, "root\cimv2")
''''''''''''''''''''''''''' ' Network Information ' ''''''''''''''''''''''''''' comment = "Network Info" if verbose = "y" then wscript.echo comment end if
Set colItems = objWMIService.ExecQuery("select * from win32_networkadapterconfiguration WHERE IPEnabled='TRUE' " _ & "AND ServiceName<>'AsyncMac' AND ServiceName<>'VMnetx' " _ & "AND ServiceName<>'VMnetadapter' AND ServiceName<>'Rasl2tp' " _ & "AND ServiceName<>'msloop' " _ & "AND ServiceName<>'PptpMiniport' AND ServiceName<>'Raspti' " _ & "AND ServiceName<>'NDISWan' AND ServiceName<>'NdisWan4' AND ServiceName<>'RasPppoe' " _ & "AND ServiceName<>'NdisIP' AND ServiceName<>'' AND Description<>'PPP Adapter.'",,48) For Each objItem in colItems net_ip = objItem.IPAddress(0) net_mac = objItem.MACAddress net_description = objItem.Description net_dhcp_enabled = objItem.DHCPEnabled net_dhcp_server = objItem.DHCPServer net_dns_host_name = objItem.DNSHostName net_dns_server = objItem.DNSServerSearchOrder(0) net_dns_server_2 = objItem.DNSServerSearchOrder(1) net_ip_subnet = objItem.IPSubnet(0) net_wins_primary = objItem.WINSPrimaryServer net_wins_secondary = objItem.WINSSecondaryServer Set colItems2 = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter WHERE MACAddress='" & objItem.MACAddress & "'",,48) For Each objItem2 in colItems2 net_adapter_type = objItem2.AdapterType net_manufacturer = objItem2.Manufacturer Next ' Below is to account for a NULL in various items if net_ip = "" then net_ip = "0.0.0.0" if isnull(net_dns_server_2) then net_dns_server_2 = "none" if isnull(net_dhcp_server) then net_dhcp_server = "none" if net_dhcp_server = "" then net_dhcp_server = "none" if isnull(net_dns_server) then net_dns_server = "none" if isnull(net_ip_subnet) then net_ip_subnet = "none" net_description = clean(net_description) ' IP Address padded with zeros so it sorts properly MyIP = Split(net_ip, ".", -1, 1) if MyIP(0) <> "169" AND MyIP(1) <> "254" then MyIP(0) = right("000" & MyIP(0),3) MyIP(1) = right("000" & MyIP(1),3) MyIP(2) = right("000" & MyIP(2),3) MyIP(3) = right("000" & MyIP(3),3) net_ip = MyIP(0) & "." & MyIP(1) & "." & MyIP(2) & "." & MyIP(3) if net_ip <> "000.000.000.000" then net_ip_address = net_ip end if end if if net_dhcp_server <> "255.255.255.255" then form_input = "network^^^" & net_mac & "^^^" & net_description & "^^^" & net_dhcp_enabled _ & "^^^" & net_dhcp_server & "^^^" & net_dns_host_name & "^^^" & net_dns_server _ & "^^^" & net_ip & "^^^" & net_ip_subnet & "^^^" & net_wins_primary _ & "^^^" & net_wins_secondary & "^^^" & net_adapter_type & "^^^" & net_manufacturer & "^^^" entry form_input,comment,objTextFile,oAdd,oComment form_input = "" if net_mac_uuid = "" then net_mac_uuid = net_mac end if end if Next
sub entry(form_input, comment,objTextFile,oAdd,oComment) WScript.echo form_input end sub
function clean(value) if isnull(value) then value = "" 'value = Replace(value, chr(34), "\'") 'value = Replace(value, chr(39), "\'") value = Replace(value, vbCr, "") value = Replace(value, vbLf, "") 'if right(value, 1) = "\" then ' value = value + " " 'end if clean = value end function[/code]
And run it on the shuttle computer. Let me know how it crashes out, which i'm hoping it will!
|