I need a Batch or VBS Script that will look for *.nsf and then get the Modified Date from that file and then dump computer name and date to a text file

Here's one I wrote not too long ago that does just that.
It may require some tweaking, so let me know if you need something changed.

As-is it searches drives C: & E: for NSF files and reports the info to C:\NSFsFound.txt

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFile : Set objFile = objFSO.CreateTextFile("C:\NSFsFound.txt")
 
arrDrives =  Array("C:", "E:")
 
For Each drv in arrDrives
  GetFolders (objFSO.GetFolder(drv & "\"))
Next
 
objFile.Close
 
Set objFile = Nothing
Set objFSO = Nothing
 
wscript.quit
 
Sub GetFolders(objFld)
  GetFiles (objFld.Files)
  For Each fld in objFld.SubFolders
    GetFolders (objFSO.GetFolder(fld))
  Next
End Sub
 
Sub GetFiles(arrFiles)
  For Each file in arrFiles
    strExt = LCase(objFSO.GetExtensionName(file.Name))
    If strExt = "nsf" Then
      objFile.WriteLine file.Name & "," & file.Path & "," & file.DateLastModified 
    End If
  Next
End Sub

Select allOpen in new window

The FileExists function doesn't allow wildcard characters, so you have to iterate through all the files in the notes folder to find the .nsf file yourself.
Try this function in your code. You pass it the notes folder that you need to scan, and it will return the full path to the NSF file if it finds one, otherwise it returns an empty string.  So instead of calling FileExists, use the following syntax in your code:

Change:
IF objFSO.FileExists(strPath) THEN

To:
strNSFFile = getNotesFileName(strPath)
If strNSFFile <> "" Then

Make sure to change the strPath variables to be only the path, (don't include the wildcard in it).  And also dim the strNSFFile variable:
DIM strPath, compName, strDiff, loFile, ldLast, strNSFFile
strPath = "C:\Program Files\lotus\notes\data\mail\"

Hopefully that helps you.

Function getNotesFileName(strPath)
	
	Dim objFSO, objFolder, objFile
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFSO.getFolder(strPath)
	For Each objFile in objFolder.Files
	  If LCase(objFSO.GetExtensionName(objFile)) = "NSF" Then
	     getNotesFileName = objFile.Path
	     Exit For
	  End If
	Next
	Set objFile = Nothing
	Set objFSO = Nothing
	Set objFolder = Nothing
	
End Function

Select allOpen in new window

Thanks Guys! Bigjokey I like how your defined the NSF file but I cannot get my script to work with it. Would it be possible for you to re-write my script to include your script. I guess its a Monday and I'm failing to comprehend on how to include your script into mine.

Thanks.

Thanks Bigjokey, the script doesn't error out anymore, unfortunately now all it will return is a text file called noexistusernsf.txt. Can you explain this scenario? I know the file exists in this location but now it is not seeing it, or is it just writing to the noexistusernsf.txt by default and the file is actually there???

Please help.

Thanks

Found only one issue with the script the NSF needed to be changed to lower case nsf and it worked fine.