こんな感じ、
==== ここから =========================================
strCarrier = ""
strModel = ""
strUseragent = Request.ServerVariables("HTTP_USER_AGENT")
if Left(strUseragent, 6) = "DoCoMo" then
strCarrier = "DOCOMO"
strModel = Mid(strUseragent, 12)
if InStr(1, strModel, "/")>0 then strModel = Left(strModel, InStr(1, strModel, "/")-1)
if InStr(1, strModel, "(")>0 then strModel = Left(strModel, InStr(1, strModel, "(")-1)
elseif (Left(strUseragent, 7) = "J-PHONE") or (Left(strUseragent, 8) = "Vodafone") then
strCarrier = "vodafone"
myAry = Array()
myAry = Split(strUseragent, "/")
strModel = myAry(2)
elseif InStr(1, strUseragent, "UP.Browser")>0 then
strCarrier = "au"
strModel = Mid(strUseragent, InStr(1, strUseragent, "-")+1)
strModel = Left(strModel, InStr(1, strModel, " ")-1)
else
end if
==== ここまで =========================================
ただし、auは機種名はデバイスIDなので、機種名への変換はもう一捻り必要。
上記ユーザエージェントの内容は、各キャリアのサイトで「HTTP_USER_AGENT」で検索すれば出てくると思うよ。