Reading registry remotely & send output to a text file.

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Reading registry remotely & send output to a text file.

Logged in as: Guest

arrSession:exec spGetSession 2,2,49029

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

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Reading registry remotely & send output to a text 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 >>

Reading registry remotely & send output to a text file. - 7/3/2007 10:07:03 PM

blakeph

Posts: 17
Score: 0
Joined: 5/28/2006
Status: offline

hi everyone,
i have a script below that will read the remote registry for two fonts if it exist or not in the HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts, the following fonts that am looking for are as follows:

"Code39HalfInchTT-Regular (TrueType)"="C39HALF.TTF"
"Code39QuarterInchTT-Regular (TrueType)"="C39QRTR.TTF"

i successfully have the script reading server names from a .txt file. that works.
what i cant get to work is the script to output the result to a text file (result.txt), for example, in the "result.txt" file, i want the contents to look this:

COMPUTER01
Code39HalfInchTT-Regular (TrueType) - found
Code39QuarterInchTT-Regular (TrueType) - not found

COMPUTER02
Code39HalfInchTT-Regular (TrueType) - found
Code39QuarterInchTT-Regular (TrueType) - found

COMPUTER03
Code39HalfInchTT-Regular (TrueType) - not found
Code39QuarterInchTT-Regular (TrueType) - not found

COMPUTER04
Code39HalfInchTT-Regular (TrueType) - not found
Code39QuarterInchTT-Regular (TrueType) - found

any help would be appreciated. thanks.

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
Set objTextFile = objFSO.OpenTextFile("c:\audit\computers.txt", ForReading)
Const REGQ = "REG QUERY "
Do Until objTextFile.AtEndOfStream
  strComputer = objTextFile.ReadLine
'This is my list of font's to run the script against
      Set fTF = objFSO.OpenTextFile("c:\audit\fontList.txt",ForReading)
          Do Until fTF.AtEndOfStream
              strTF = fTF.ReadLine
              strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\" & strTF   
              Set objExec = objShell.Exec("cmd /c " & REGQ & strRegKey & " \\" & strComputer)
                  Do While Not objExec.StdOut.Atendofstream
                      val = Trim(objExec.StdOut.ReadLine)
'This part added to clear up the output and list font's that are not installed/found in registry
                      If Left(val,10)<>"Connecting" Then
                          If Left(val,10)="The system" Then
                              myVal = myVal & strTF & " not found" & vbcrlf
                          Else
                              myVal = myVal & val & vbcrlf
                          End If
                      End If
                  Loop
          Loop
          Set fs = CreateObject("Scripting.FileSystemObject")
          Set file = fs.OpenTextFile("C:\audit\Result.txt", 8, True)
              file.Write "       "& strComputer & vbCrLf
              file.Write myVal & vbCrLf
              file.close
              myVal = ""
              val = ""
Loop
objTextFile.Close
wscript.echo "Done"
wscript.quit

computers.txt
========
COMPUTER01
COMPUTER02
COMPUTER03
COMPUTER04

fontList.txt
=======
Code39HalfInchTT-Regular (TrueType)
Code39QuarterInchTT-Regular (TrueType)

< Message edited by blakeph -- 7/3/2007 10:12:11 PM >

Post #: 1

RE: Reading registry remotely & send output to a text f... - 7/4/2007 12:41:11 AM

dm_4ever

Posts: 2663
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

I would recommend that you search for StdRegProv to read remote registry entries. You should find plenty of examples.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to blakeph)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Reading registry remotely & send output to a text file.

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts