VBScript Check File Name

CheckFileName.vbs

' Check File Name
Function IsAcceptableFileName(fileName)
    Set objRegExp = New RegExp
        objRegExp.IgnoreCase = True
        objRegExp.Global = False
    objRegExp.Pattern =  _
      "^(?!^(PRN|AUX|CLOCK\$|CONFIG\$|" & _
      "NUL|CON|COM\d|LPT\d|\..*)" & _
      "(\..+)?$)[^\x00-\x1f\\?*:\"";|/]+$"
    IsAcceptableFileName = objRegExp.Test(fileName)
    Set objRegExp = Nothing
End Function