文字が含まれているか調べる@VBScript

VBSでお手軽に文字列を検索するスクリプト。
運用管理だとまだまだ独自のログを吐き出すアプリケーションは多くて、なんだかんだ便利に使っています。

'文字列の中に特定の文字列が含まれている場合に真を返す

If SearchWord("あいうえお","あいう") Then
	Wscript.Echo "あいうが含まれています。"
End If

'SearchWord(対象文字列,探したい文字列)
Function SearchWord(strSearchObject,strKeyword)
	Dim objRE
	
	Set objRE = New RegExp
	
	objRE.Pattern = strKeyword
	objRE.Global = True
	
	SearchWord = objRE.Test(strSearchObject)
	Set objRE = Nothing
End Function