WSH(VBScript)で正規表現を行うには「VBScript.RegExp」オブジェクトを利用する。
┌──────────────────────────────────────┐
│Dim REG                                                                     │
│Set REG = WScript.CreateObject("VBScript.RegExp")                           │
│REG.Pattern = "^.*\((\d+)\).*$"                                             │
│If REG.Test(入力) Then                                                      │
│    出力 = REG.Replace(入力, "$1")                                          │
│End If                                                                      │
└──────────────────────────────────────┘