Outputting ComputerName into text file?

[2marshall8]

I need a way to output the computer name of a machine to a text file w/o the carriage return at the end. I know how to do this using batch files and echo but it includes this carriage return which messes other parts of my script up. If you have any advice on this I would greatly appreciate it. Here is what I have, but I just need a way to direct this echo command into a text file

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objItem In colItems
computerName = objItem.name
wscript.echo computerName
Next


marshall

 

[acewilli]

Hope this helps. I assumed you had more script so I didn't try to add this to yours. Thanks.

const fsoForWriting = 2
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Open the text file
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("C:\YourDirectory\nameoffile.txt", fsoForWriting, True)

'Write computer name to file nameoffile.txt
objTextStream.WriteLine computername

'Close the file and clean up
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

 

[2marshall8]

this helped a lot, thanks. I got the name into the txt file but for some reason I still get the space after this is entered into the file. Is there a way to remove the carriage return after this is entered so that there isn't any blank line created?

thanks

 

[2marshall8]

never mind, I got it. thanks

 

[acewilli]

I saw this code at the link provided if you still need any help. This code here only trims the blanks lines. It doesn't keep it from happening but could be incorporated with the other code to to make sure that you have no blank lines in your text files.

Code Source:

http://www.microsoft.com/technet/scriptcenter/resources/qanda/jan06/hey0103.mspx

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading)

Do Until objFile.AtEndOfStream
    strLine = objFile.Readline
    strLine = Trim(strLine)
    If Len(strLine) > 0 Then
        strNewContents = strNewContents & strLine & vbCrLf
    End If
Loop

objFile.Close

Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForWriting)
objFile.Write strNewContents
objFile.Close