VBS、正規表現でドメインを取りたい。

質問

VBScriptで開発をしています。
文字列からドメインだけを取得したくて、ネットで調べて以下のような
コードを書いてみましたが、うまくいきません。
正規表現がうまくマッチしてこないようなのですが、初心者故よくわからず…。

おかしい点、修正すべき点を教えていただけないでしょうか。

Dim reg
Set reg = Server.CreateObject("VBScript.RegExp")
reg.Pattern = "/^[httpsfile]+:\/{2,3}([0-9a-zA-Z\.\-:]+?):?[0-9]*?\//i"

Dim testUrl
testUrl = "http://www.test.co.jp/test.html"
Set Matches = ObjRegExp.Execute(testUrl)
Dim Matches
Dim Match
Dim StrTest

For Each Match in Matches
StrTest = Match.value
Next

回答No.1

n-jun · ベストアンサー

サーバー系はよくわかりませんが、
たんなるVBSって事なら。

Dim reg
Dim Matches
Dim testUrl

Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "/{2}([^/]+)/"

testUrl = "http://www.test.co.jp/test.html"

Set Matches = reg.Execute(testUrl)

msgbox Replace(Matches(0).Submatches(0),"www.","")

こんな感じかな？