Scripting - Renaming Files Sequentially

VB script to automatically rename files sequentially in a folder:

' Automatically rename files in current folder

' -- This needs to be updated:
str_path_start = "C:\Users\X\Pictures\photo_new\201707_Cruise_Family"
str_filename_prefix = "201707_Cruise_Family_"
str_padding = "00"
int_padding = 2

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

Set objFolder = objFSO.GetFolder(str_path_start)
Set objAllFiles = objFolder.Files
str_filenames = ""
str_filenames_new = ""
count = 1
For Each objFile in objAllFiles
str_filename = objFile.Name
If str_filename <> "Thumbs.db" Then
str_filenames = str_filenames & str_filename & vbCrLf
str_filename_new = str_filename_prefix & Right(str_padding & count, int_padding) & ".JPG"
str_filenames_new = str_filenames_new & str_filename_new & vbCrLf
objFSO.MoveFile str_path_start & "\" & str_filename, str_path_start & "\" & str_filename_new
count = count + 1
End If
Next
'WScript.Echo "Found " & count & " files:" & vbCrLf & str_filenames
'WScript.Echo "New file names:" & vbCrLf & str_filenames_new

Set objShell = Nothing
Set objFSO = Nothing