Set re = New RegExp re.Pattern = "http://([0-9a-z]+)\.2ch\.net/test/read\.cgi/([a-z]+)/([0-9]+)" s = WScript.Arguments.UnNamed(0) Set oMatches = re.Execute(s) Set oMatch = oMatches(0) server = oMatch.SubMatches(0) board = oMatch.SubMatches(1) thread = oMatch.SubMatches(2) CreateObject("WScript.Shell").Run "http://sunos.saita.ma/inspired/?" & server & "+" & board & "+" & thread