Re: Correct me, Please !

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: andrea (andrea_at_discussions.microsoft.com)
Date: 12/03/04

  • Next message: Viatcheslav V. Vassiliev: "Re: convert wmi script to .net" 
    Date: Fri, 3 Dec 2004 13:09:05 -0800

    Thank You!
    i don't understood. Post final script:

    '--------------------8<----------------------
    Const ForReading = 1, ForWriting = 2
    Dim fso, f, RigaLetta

    Set wshShell = CreateObject("Wscript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile("allowed.txt", ForReading, True)
    RigaLetta = ""

    Do Until f.AtEndOfStream
       RigaLetta = f.Readline
       WScript.Echo RigaLetta
    Loop
    '--------------------8<----------------------

    Kisses

    "Torgeir Bakken (MVP)" wrote:

    > andrea wrote:
    >
    > > Torgeir, Tom,
    > > many thans to correct error but,
    > > you tell me that for this list:
    > >
    > > System
    > > smss.exe
    > > csrss.exe
    > > winlogon.exe
    > > services.exe
    > > lsass.exe
    > > [snip]
    > >
    > > i cannot have a decent echo output video?
    > >
    > > (all lines, 1 by 1, in a box [sorry for my english])
    > Hi
    >
    > Yes, you can, just remove the f.Skipline line, as Tom wrote in his
    > post, like this:
    >
    > Do Until f.AtEndOfStream
    > RigaLetta = f.Readline
    > WScript.Echo RigaLetta
    > Loop
    >
    >
    >
    > --
    > torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
    > Administration scripting examples and an ONLINE version of
    > the 1328 page Scripting Guide:
    > http://www.microsoft.com/technet/scriptcenter/default.mspx
    >

  • Next message: Viatcheslav V. Vassiliev: "Re: convert wmi script to .net"

    Relevant Pages

    • Re: Correct me, Please !
      ... > that will handle your end of file problem in all cases: ... > Dim fso, f, RigaLetta ... > torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway ...
      (microsoft.public.windows.server.scripting)
    • Re: Correct me, Please !
      ... > this script open a file, read and display line, then jump 1 line and repeat. ... Dim fso, f, RigaLetta ... -- torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway Administration scripting examples and an ONLINE version of the 1328 page Scripting Guide: ...
      (microsoft.public.windows.server.scripting)
    • Re: Correct me, Please !
      ... > many thans to correct error but, ... WScript.Echo RigaLetta ... -- torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway Administration scripting examples and an ONLINE version of the 1328 page Scripting Guide: ...
      (microsoft.public.windows.server.scripting)
    • Re: Correct me, Please !
      ... Dim fso, f, RigaLetta ... Set wshShell = CreateObject ... Set f = fso.OpenTextFile("allowed.txt", ForReading, True) ...
      (microsoft.public.windows.server.scripting)
    • Correct me, Please !
      ... this script open a file, read and display line, then jump 1 line and repeat. ... Dim fso, f, RigaLetta ... Set fso = CreateObject ...
      (microsoft.public.windows.server.scripting)