Now how can I write a script or modify that to tell me it worked?
Do i need to write a new script to query the client dns ip's and feed
it the same file and spit that out to a text file so i can see it
took?
thanks
On 8/14/05, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> Let's say the new DNS servers are 192.168.11.250 and 192.168.11.251
> Let's say you have a folder called Myscripts in C:\
>
> You create a file called Server-List.txt that contains all your servers'
> names, listed one per line and put it in C:\myscripts
> Then you copy the following code, put it in a file and call the file, say,
> change-dns.vbs
>
> Off you go.
>
> 'Code starts here
>
> Const FILEPATH = "C:\MyScripts\"
>
> 'Get the input file
> Set FSO = CreateObject("Scripting.FileSystemObject")
> Set fsoFile = FSO.GetFile(FILEPATH & "Server-List.txt")
> strFilePath = fsoFile.Path
> Set fsoInput = FSO.OpenTextFile(strFilePath, 1)
> Do While Not fsoInput.AtEndOfStream
> ComputerName = fsoInput.ReadLine
> Call ChangeDNS_addy(ComputerName)
> Loop
> Set fsoInput = Nothing
> Set fsoFile = Nothing
> set FSO=Nothing
> Sub ChangeDNS_addy(ComputerName)
>
> On Error Resume Next
> Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
> Set colNetCards = objWMIService.ExecQuery _
> ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled =
> True")
> For Each objNetCard in colNetCards
> arrDNSServers = Array("192.168.11.250", "192.168.11.251")
> objNetCard.SetDNSServerSearchOrder(arrDNSServers)
> Next
> Set colNetCards = Nothing
> Set objWMIService = Nothing
> End Sub
>
> 'code ends
>
> Enjoy.
>
> Sincerely,
>
> Dèjì Akómöláfé, MCSE+M MCSA+M MCP+I
> Microsoft MVP - Directory Services
> www.readymaids.com - we know IT
> www.akomolafe.com
> Do you now realize that Today is the Tomorrow you were worried about
> Yesterday? -anon
>
> ________________________________
>
> From: [EMAIL PROTECTED] on behalf of Tom Kern
> Sent: Sat 8/13/2005 4:41 PM
> To: [email protected]
> Subject: Re: [ActiveDir] ok, last one really
>
>
>
> what I really want to do, is modify that script to read all my servers
> with static ip's from a text file and change their dns ip's to point
> to 2 new dns servers and get rid of the old ones.
> we have about 500 servers and they all have static ip's and we're
> changing over our dns to 2 new servers.
> i'd like to script pointing them to the new servers. either remotely
> or from a login script.
> the script i sent will do that but you have to enter the server
> names/ip's in the script and it prints info to stdout.
> i'd rather it read from a text file and only log errors or info to a
> seperate file.
>
> is this doable?
> thanks a lot!
>
> On 8/12/05, [EMAIL PROTECTED] <[EMAIL PROTECTED]>
> wrote:
> > How about
> >
> > While ts.AtEndOfStream
> > strcomputer=ts.readline
> > wend
> > ts.close
> >
> > James R. Day
> > Active Directory Core Team
> > Office of the Chief Information Officer
> > National Park Service
> > 202-230-2983
> > [EMAIL PROTECTED]
> >
> >
> > |---------+---------------------------------->
> > | | Tom Kern |
> > | | <[EMAIL PROTECTED]> |
> > | | Sent by: |
> > | | [EMAIL PROTECTED]|
> > | | tivedir.org |
> > | | |
> > | | |
> > | | 08/12/2005 04:32 PM AST|
> > | | Please respond to |
> > | | ActiveDir |
> > |---------+---------------------------------->
> >
> >----------------------------------------------------------------------------
> --------------------------------------------------|
> > |
> |
> > | To: [email protected]
> |
> > | cc: (bcc: James Day/Contractor/NPS)
> |
> > | Subject: Re: [ActiveDir] ok, last one really
> |
> >
> >----------------------------------------------------------------------------
> --------------------------------------------------|
> >
> >
> >
> >
> > how would you write that to loop thru every line in a file?
> >
> > thanks
> >
> > On 8/12/05, Alain Lissoir <[EMAIL PROTECTED]> wrote:
> > > On MSDN, you can find some sample scripts to read from a file.
> > > See at
> > >
> >
> http://msdn.microsoft.com/library/en-us/script56/html/sgWorkingWithFiles.asp
> >
> > >
> > > For instance,
> > >
> > > Dim fso, ts
> > > Const ForReading = 1
> > > Set fso = CreateObject("Scripting. FileSystemObject")
> > > Set ts = fso.OpenTextFile("c:\test.txt", ForReading, True)
> > > strComputer = ts.ReadLine()
> > > ts.Close()
> > >
> > > Depending on the format of your file, you can read a single line and
> > split
> > > the comma separated computer names or
> > > You can loop and read lines one-by-one if you have a computer name per
> > line.
> > > Your call ...
> > >
> > > For a book on scripting and WMI, you can always have a look at my web
> > site
> > > ;) http://www.lissware.net
> > >
> > > -----Original Message-----
> > > From: [EMAIL PROTECTED]
> > > [mailto:[EMAIL PROTECTED] On Behalf Of Tom Kern
> > > Sent: Friday, August 12, 2005 7:46 AM
> > > To: activedirectory
> > > Subject: [ActiveDir] ok, last one really
> > >
> > > How can i change this script so i can just feed it a file of computer
> > names
> > > so i can automate the changing of dns servers in the client properties?
> > >
> > > SCRIPT-
> > >
> > > On Error Resume Next
> > >
> > > strComputer = "."
> > > arrNewDNSServerSearchOrder = Array("192.168.0.1", "192.168.0.2")
> > >
> > > Set objWMIService = GetObject("winmgmts:" _ &
> > > "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set
> > > colNicConfigs = objWMIService.ExecQuery _ ("SELECT * FROM
> > > Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
> > >
> > > WScript.Echo VbCrLf & "Computer: " & strComputer
> > >
> > > For Each objNicConfig In colNicConfigs
> > > WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index
> > > WScript.Echo " DNS Server Search Order - Before:"
> > > If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
> > > For Each strDNSServer In objNicConfig.DNSServerSearchOrder
> > > WScript.Echo " " & strDNSServer
> > > Next
> > > End If
> > > intSetDNSServers = _
> > > objNicConfig.SetDNSServerSearchOrder(arrNewDNSServerSearchOrder)
> > > If intSetDNSServers = 0 Then
> > > WScript.Echo " Replaced DNS server search order list."
> > > Else
> > > WScript.Echo " Unable to replace DNS server search order list."
> > > End If
> > > Next
> > >
> > > WScript.Echo VbCrLf & String(80, "-")
> > >
> > > Set colNicConfigs = objWMIService.ExecQuery _ ("SELECT * FROM
> > > Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
> > >
> > > For Each objNicConfig In colNicConfigs
> > > WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index
> > > WScript.Echo " DNS Server Search Order - After:"
> > > If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
> > > For Each strDNSServer In objNicConfig.DNSServerSearchOrder
> > > WScript.Echo " " & strDNSServer
> > > Next
> > > End If
> > > Next
> > >
> > > END OF SCRIPT
> > >
> > >
> > > also, can anyone recommend a good VBscript book for Windows admining so i
> > > can leave you guys alone?
> > >
> > > thanks
> > > List info : http://www.activedir.org/List.aspx
> > > List FAQ : http://www.activedir.org/ListFAQ.aspx
> > > List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
> > >
> > > List info : http://www.activedir.org/List.aspx
> > > List FAQ : http://www.activedir.org/ListFAQ.aspx
> > > List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
> > >
> > List info : http://www.activedir.org/List.aspx
> > List FAQ : http://www.activedir.org/ListFAQ.aspx
> > List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
> >
> >
> > List info : http://www.activedir.org/List.aspx
> > List FAQ : http://www.activedir.org/ListFAQ.aspx
> > List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
> >
> List info : http://www.activedir.org/List.aspx
> List FAQ : http://www.activedir.org/ListFAQ.aspx
> List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
>
>
> List info : http://www.activedir.org/List.aspx
> List FAQ : http://www.activedir.org/ListFAQ.aspx
> List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
>
List info : http://www.activedir.org/List.aspx
List FAQ : http://www.activedir.org/ListFAQ.aspx
List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
