> Hi,
>
> If this is the wrong newsgroup for this question, please direct me to some
> more appropriate microsoft.public newsgroups.
>
> On a WXP SP2 Home system with WiFi access to the internet through a router
> connected to a cable modem, I foolishly ran some VBScripts from the Ed
> Wilson book "Microsoft Windows Scripting Self-Paced Learning Guide".
> Shortly thereafter, I found that this system could no longer access the
> internet.
>
> My learning pace has ground to a halt, and so far, I can't find where Ed may
> have provided scripts to undo the system changes made by the scripts in his
> book.
>
> The symptoms are that I can ping localhost, but pinging the computer's name
> tells me it is attempting to ping 192.168.1.102, but all requests time out.
> When I attempt to use IE to access an internet URL, I get a page that ends
> with:
> Cannot find server or DNS Error
> Internet Explorer
>
> When booted into safe mode, or from an OS installed in a different
> partition, pinging the computer's name succeeds and the internet can be
> accessed.  I have not attempted to to connect to the router through a Cat 5
> cable.
>
> I have searched the internet for how to recover from changes made by the
> scripts in this book, with no success.  I realize I can probably fix things
> by restoring from a restore point, but I'd like to make this a learning
> experience.
>
> Here is what I think is the problematic script:
> Option Explicit
> Dim target
> Dim oWMIService
> Dim colNetAdapters
> Dim oNetAdapter
> Dim DNSDomainErr
> Dim DNSsearchErr
> Dim DNSServer
>
> Target = "."
> DNSserver=Array("128.1.2.1", "129.1.2.2")
> Set oWMIService = GetObject("winmgmts:\\" & target & "\root\cimv2")
> Set colNetAdapters = oWMIService.ExecQuery _
>     ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
> For Each oNetAdapter In colNetAdapters
>     DNSDomainErr = oNetAdapter.SetDNSDomain("NWTraders.com")
>     DNSsearchErr=oNetAdapter.SetDNSServerSearchOrder(DNSserver)
>     WScript.Echo "DNSDomain returned " & (DNSDomainErr)
>  WScript.Echo "DNSsearchOrder returned " & (DNSsearchErr)
> Next
>
> I suspect that one or both of the following two lines made a change that has
> screwed up my internet access:
>
>     DNSDomainErr = oNetAdapter.SetDNSDomain("NWTraders.com")
>     DNSsearchErr=oNetAdapter.SetDNSServerSearchOrder(DNSserver)
>
> I'm hoping to fix my problem by changing "NWTraders.com" to an empty string
> and DNSserver to an empty array, and running the script again.  But first
> I'd like to understand what effect each of these lines should have on a WXP
> Home system.  I've read URL
> http://msdn.microsoft.com/en-us/library/aa393294(VS.85).aspx, which
> basically says:
>
> The SetDNSDomain WMI class method allows for the setting of the DNS domain.
> This is an instance-dependent method call that applies on a per-adapter
> basis. The setting applies to the targeted adapter.
>
> [the argument is] Domain with which the DNS is associated, represented by an
> organization name followed by a period and an extension that indicates the
> type of organization.
>
> It gives no information as to what the effect of changing from an empty
> string to something like "NWTraders.com" might be.
>
> Similarly, http://msdn.microsoft.com/en-us/library/aa393295(VS.85).aspx
> talks about the SetDNSServerSearchOrder method, but nothing about what the
> effects of changing from an empty array to something like Array("128.1.2.1",
> "129.1.2.2") might be.
>
> I'm hoping that someone can advise me on whether changing "NWTraders.com" to
> an empty string and DNSserver to an empty array, and running the script
> again are likely to fix my problems, or can provide URL or book references
> or brief explaination in layman's terms as to how changes to these
> properties affect how WXP Home accesses the internet.
>
> Thanks for any help you can give me.
>
> -Paul Randall