VBScript: Access Computers on a network and count specific files types

[umass]

Hey all,

 

I am trying to write a script that connects to a number of computers and counts the number of file types (i.e. .GIF, .JPEG, .MP3, etc...) that are under a specific directory such as My Documents. I have looked around, but thought I'd come here and expand my resources for this project, since time is of the essence. If anyone could point me in the right direction, or to the right book/link, I'd appreciate it a bunch.

[ChrisH]

You want to do a Vbscript with a wmi query looking specifically file the files types or extensions. The queries look a bit like a SQL query. There is probably a nice way to do it in Powershell as well but I don't know that off hand.

[umass]

Hey Chris,

 

I had a feeling that this task would require me to involve the WMI stuff, but here is a code that might be useful for this. All I need to do is to specify the UNC for the server through the strDirectory parameter. (found at: VBScript Function to Manage Windows Networks - Scripts for Administrators)

 

Option Explicit

Const retvalUnknown = 1

 

' ///////////////////////////////////////////////////////////////////////////////

 

Function CheckMp3Files( strDirectory )

Dim numMp3Files, objFso, objFolder

 

Set objFso = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFso.GetFolder("c:\temp")

 

numMp3Files = CountMp3Files( objFolder )

If( numMp3Files > 0 ) Then

EXPLANATION = numMp3Files & " MP3 files detected"

CheckMp3Files = False

Else

EXPLANATION = "No MP3 files detected"

CheckMp3Files = True

End If

End Function

 

' ///////////////////////////////////////////////////////////////////////////////

 

Function CountMp3Files( objFolder )

Dim objSubFolders, objSubFolder

Dim objFiles, objFile

Dim iFileNum

 

iFileNum = 0

CountMp3Files = 0

 

Set objFiles = objFolder.Files

If objFiles.Count <> 0 Then

For Each objFile In objFiles

If( InStr( UCase( objFile.Name ), ".MP3" ) <> 0 ) Then

iFileNum = iFileNum + 1

End If

Next

End If

 

Set objSubFolders = objFolder.SubFolders

If objSubFolders.Count <> 0 Then

For Each objSubFolder In objSubFolders

iFileNum = iFileNum + CountMp3Files( objSubFolder )

Next

End If

 

CountMp3Files = iFileNum

End Function

 

What do you think?

[ChrisH]

That does the same sort of thing but a WMI query looks a bit like this:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" _
   & strComputer & "\root\cimv2")
Set colFiles = objWMIService. _
   ExecQuery("Select * from CIM_DataFile where Extension = 'mp3'")
For Each objFile in colFiles
   Wscript.Echo "File Name: " & objFile.Name & "." & objFile.Extension
   Wscript.Echo "Path: " & objFile.Path
Next

 

They are usually chosen between because of speed. Your example is better in some circumstances than mine although I can't think of a good example.

[umass]

Yea. I was just talking to my boss and he pointed me in the exact same direction as you. I'm about to leave work so won't be dealing with this until Tuesday, so I'll get back to you as soon as I get something.

 

Thanks a lot and have a good weekend.

 

That does the same sort of thing but a WMI query looks a bit like this:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" _
   & strComputer & "\root\cimv2")
Set colFiles = objWMIService. _
   ExecQuery("Select * from CIM_DataFile where Extension = 'mp3'")
For Each objFile in colFiles
   Wscript.Echo "File Name: " & objFile.Name & "." & objFile.Extension
   Wscript.Echo "Path: " & objFile.Path
Next

 

They are usually chosen between because of speed. Your example is better in some circumstances than mine although I can't think of a good example.

[tumbleweed]

Have a look a the Gnuwin32 package - a port of unix goodies that windows is sadly lacking in.

the 'find' command-line utility could be what you need.

[umass]

I have finalized the script and everything is working fine. If any of you ever run into problems related to this post, feel free to contact me and I'll show you what I've got.

 

Thank you for all your support btw.