Write Computername to txt file

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Write Computername to txt file

Logged in as: Guest

arrSession:exec spGetSession 2,2,37575

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Write Computername to txt file
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Write Computername to txt file - 9/7/2006 11:52:47 PM

zwap

Posts: 10
Score: 0
Joined: 2/9/2006
Status: offline

What i want is:

a vbs script that write the computername into a text file and save it on a share file name:'computername.txt' . I found a scrupt but i works not.

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

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

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

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

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

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\"computerName".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:\"computerName".txt", ForWriting)
objFile.Write strNewContents
objFile.Close

can you help?

Thanks in advance

Post #: 1

RE: Write Computername to txt file - 9/8/2006 1:12:48 AM

mikeock

Posts: 124
Score: 1
Joined: 6/8/2006
Status: offline

the issue is quite simple

any line that has something like this: Set objFile = objFSO.OpenTextFile("C:\"computerName".txt", ForReading)
need to look like this Set objFile = objFSO.OpenTextFile("C:\" & computerName & ".txt", ForReading)

This will glue the quoted string and the variable together so that they are interpolated properly!

_____________________________

My sig sucks!

(in reply to zwap)

Post #: 2

RE: Write Computername to txt file - 9/8/2006 2:05:09 AM

zwap

Posts: 10
Score: 0
Joined: 2/9/2006
Status: offline

Thanks man! it works great!!!

(in reply to mikeock)

Post #: 3

RE: Write Computername to txt file - 9/8/2006 2:10:20 AM

zwap

Posts: 10
Score: 0
Joined: 2/9/2006
Status: offline

I have a new question:

I want a check if the value is 020 in a ini file on the third line:

it is located on C:\Program Files\Exact Software\bin\wupdate.ini

Can someone help me?

< Message edited by zwap -- 9/8/2006 2:12:21 AM >

(in reply to zwap)

Post #: 4

RE: Write Computername to txt file - 9/8/2006 4:12:46 AM

DiGiTAL.SkReAM

Posts: 1139
Score: 6
Joined: 9/6/2005
From: Florida, USA
Status: offline

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to zwap)

Post #: 5

RE: Write Computername to txt file - 9/11/2006 7:38:51 PM

zwap

Posts: 10
Score: 0
Joined: 2/9/2006
Status: offline

Thanks!!!

Can Someone help me with this script.

This script looks if a file exitst and the he removes the Offline folder in the systemroot!

I get an error on line 47

Option Explicit

Dim objNetwork, objSysInfo, strUserDN
Dim objGroupList, objUser, objFSO
Dim strComputerDN, objComputer
Dim strUserName, WshShell 
Dim lServer, strDirectory
Dim objShell, WshSysEnv

Set objNetwork = CreateObject("Wscript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.userName
strComputerDN = objSysInfo.computerName
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("PROCESS")

'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objShell = WScript.CreateObject("WScript.Shell")

If objFSO.FileExists ("c:\windows\system32\polregcl.dll") Then

objFSO.DeleteFile "c:\windows\CSC\*.*"
       objFSO.DeleteFolder "c:\windows\CSC\*.*"
       strComputer = "."
       Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
       Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
       For Each objItem In colItems
       computerName = objItem.name
       next

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

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

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

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

Const ForReading = 1
       Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
       Set objFile = objFSO.OpenTextFile("C:\computerName.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:\computerName.txt", ForWriting)
       objFile.Write strNewContents
       objFile.Close

objFSO.CopyFile "c:\Computername.txt", "\\wz-dc01\Gezamenlijk CelaVita\Iedereen toegang\Offline\"
       On Error Resume Next

else if objFSO.FileExists ("c:\winnt\system32\polregcl.dll") Then

objFSO.DeleteFile "c:\winnt\CSC\*.*"
       objFSO.DeleteFolder "c:\winnt\CSC\*.*"

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

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

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

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

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

Const ForReading = 1
       Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
       Set objFile = objFSO.OpenTextFile("C:\computerName.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:\computerName.txt", ForWriting)
       objFile.Write strNewContents
       objFile.Close

objFSO.CopyFile "c:\Computername.txt", "\\wz-dc01\Gezamenlijk CelaVita\Iedereen toegang\Offline\"
       On Error Resume Next
End If

' Clean up.
Set objNetwork = Nothing
Set objFSO = Nothing
Set objSysInfo = Nothing
Set objGroupList = Nothing
Set objUser = Nothing
Set objComputer = Nothing

Thanks in advance!!!!

(in reply to DiGiTAL.SkReAM)