This script gives me the client dns ip's that are there as well as
ones that haven't been there in a long time. one's i set and removed
awhile ago.
why is that?
thanks
On 8/15/05, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> What, you mean you don't trust my codes? Sheeeeesh! :-p
>
> 'Still using the same folder structure and input file as before, you will run
> this AFTER running the previous script
>
> 'Code Begins
> 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)
> Set FSOWrite=FSO.OpenTextFile(FILEPATH & "Output.txt", 8, True)
> Do While Not fsoInput.AtEndOfStream
> ComputerName = fsoInput.ReadLine
> FSOWrite.WriteLine ComputerName
> Call ChangeDNS_addy(ComputerName)
> Loop
> FSOWrite.Close
> Set FSOWrite = Nothing
> 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
> If Not IsNull(objNetCard.DNSServerSearchOrder) Then
> For i = 0 To UBound(objNetCard.DNSServerSearchOrder)
> FSOWrite.WriteLine vbTab & objNetCard.DNSServerSearchOrder(i)
> Next
> End If
> Next
> Set colNetCards = Nothing
> Set objWMIService = Nothing
> End Sub
>
> 'Code Ends
>
>
> 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: Mon 8/15/2005 7:57 AM
> To: [email protected]
> Subject: Re: [ActiveDir] ok, last one really
>
>
>
> 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/
>
>
> 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/
