Logging computer names with incorrect file sizes

[vpascuzzi]

Hello all,

My first post as a SysAdmin (I am more used to C* programming).

What I am trying to do is create a script that will scan PCs on my network and check for a file and verify that it's size is correct.

If the file size is != 1,101,824bytes in size, the name of that PC should be logged - that's it.

I am just not too used to VBScripting and am not very aware of functions, how to call them, and etc.

This is what I have been trying to throw together for the last 20 minutes or so - kind of pressed for time...

'---------LogToFile Configuration---------
'NOTE: Copy the configuration section To
'the beginning of an existing script. The
'values specified here must be set before
'calling the LogToFile sub.
 
'You can disable logging globally by
'setting the bEnableLogging option to false.
bEnableLogging = True
 
'Setting this to true will time stamp Each
'message that is logged to the log file
'with the current date and time.
bIncludeDateStamp = True
 
'Specify the log file location here. Path
'must contain a trailing backslash. If you
'would like to log to the same location as
'the currently running script, set this
'value to "relative" or uncomment out the
'line below.
sLogFileLocation = "C:\temp\log\"
sLogFileLocation = "relative"
 
'Specify the log file name here.
sLogFileName = "noble4jslog.txt"
 
'You can set whether or not you would like
'the script to append to an existing file,
'or if you would like it to overwrite
'existing copies. To overwrite set the
'sOverWriteORAppend variable to "overwrite"
sOverWriteORAppend = "append"
 
path = "C:\Program Files\Windows Media Connect 2\WMCCFG.exe"
 
'-------END LogToFile Configuration-------
 
Sub LogToFile(Message)
    'LogToFile.vbs 10-18-07
 
    If bEnableLogging = False Then Exit Sub
 
    Const ForReading = 1
    Const ForWriting = 2
    Const ForAppending = 8
 
    Set oLogFSO = CreateObject("Scripting.FileSystemObject")
 
    If sLogFileLocation = "relative" Then
        Set oLogShell = CreateObject("Wscript.Shell")
        sLogFileLocation = oLogShell.CurrentDirectory & "\"
        Set oLogShell = Nothing
    End If
 
    sLogFile = sLogFileLocation & sLogFileName
 
    If sOverWriteORAppend = "overwrite" Then
        Set oLogFile = oLogFSO.OpenTextFile(sLogFile, ForWriting, True)
        sOverWriteORAppend = "append"
    Else
        Set oLogFile = oLogFSO.OpenTextFile(sLogFile, ForAppending, True)
    End If
 
    If bIncludeDateStamp Then
        Message = Now & "   " & Message
    End If
 
    oLogFile.WriteLine(Message)
    oLogFile.Close
 
    oLogFSO = Null
End Sub
 
Private Function FileLen(byVal path)
    Dim objFSO, objFile
    On Error Resume Next
    Set objFSO    = Server.CreateObject("Scripting.FileSystemObject")
    Set objFile    = objFSO.GetFile(path)
    If Err Then
        FileLen = Null
    Else
        FileLen = CLng( objFile.Size )
    End If
    Set objFile    = Nothing
    Set objFSO    = Nothing
    On Error GoTo 0
End Function
 

Thank you all in advance! This should help me with learning how to work with scripts a bit better. I will keep posting any new information I find out or that I think may help with this problem.

Any help you can give as soon as you can will be greatly appreciated.

[vpascuzzi]

Okay,

After going through my code and making some changes, I have come up with the following:

Option Explicit
Dim Shell, FSO, path, fFile, fSize, LocalComputer
Set Shell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
path = "c:\temp\vinpa.dat"
 
If FSO.FileExists(path) Then
        Set fFile = FSO.GetFile(path)
        fSize = fFile.Size            
        If fSize = 1101824 Then
            WScript.Quit
        Else
               Localcomputer = UCase(Shell.ExpandEnvironmentStrings("%COMPUTERNAME%"))
           End If
End If
 

Now I believe the only thing left for me to do is to somehow get the:

 Localcomputer = UCase(Shell.ExpandEnvironmentStrings("%COMPUTERNAME%")) 

to append to a text file.

Any ideas?

[vpascuzzi]

Dim fFile, fSize
 
Name = "FourJs"
Path = <path>
OutputFileName = "E:\batfile\"& Name & "\desks.txt"
 
If Fso.FileExists(Path) Then
        Set fFile = Fso.GetFile(Path)
        fSize = fFile.Size
        If Not fSize = 1101824 Then
            Set File = Fso.openTextFile(OutputFileName, ForAppending, True)
            File.WriteLine Computer_Name
            File.Close
           End If
End If
 
Name = ""
Path = ""
OutputFileName = ""
 

That's all folks! It's my main function/method - everything is declared at the top of my file.

Thanks for nothin'... :)

[bartonc]

Thanks for nothin'... :)

As you say, this is a Sys Admin forum. Not many used to VBScripting around here.

Thanks for posting your solution, though.