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/
