Watch for line wraps; you'll want to put your code between a While/Wend
loop.
Dim fso, ts
Const ForReading = 1
Set fso = CreateObject("Scripting. FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.txt", ForReading, True)
While NOT ts.AtEndOfStream
strComputer = ts.ReadLine()
<rest of your code goes here>
Wend
ts.Close()
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Tom Kern
Sent: Friday, August 12, 2005 2:32 PM
To: [email protected]
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/sgWorkingWithFil
> es.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/
