probably because those addresses are still in the registry and have not been whacked. 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 12:11 PM To: [email protected] Subject: Re: [ActiveDir] ok, last one really 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/ 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/
