在开发移动应用时，了解用户的设备型号和厂商信息是非常重要的。这可以帮助为不同的设备提供定制化的服务和体验。本文将介绍如何使用VBScript编写一个简单的WAP应用程序，用于获取这些信息，并将其存储到文本文件中。
最初，打算使用Java开发一个应用程序来获取这些信息，但考虑到用户需要下载并安装应用，这会增加使用的门槛。因此，决定使用更简单的WML编码ASP页面来实现这个功能。
接下来，将讨论如何存储手机型号和厂商信息。首先，将展示一个基本的UAProfile属性获取例程，这里使用的是Msxml2.dll，它没有内部依赖。以下是示例代码：
Function GetValue()
' 用于HTTP POST/GET和XML解析
Function GetValue(ByVal url, ByVal name)
End Function
Function GetWidth()
' 获取移动屏幕宽度
Function GetWidth()
End Function
Function GetHeight()
' 获取移动屏幕高度
Function GetHeight()
End Function
Function Is_PDA()
' 如果请求来自Windows PDA浏览器，则返回true
Function Is_PDA()
End Function
Function HandSetMode()
' 获取设备型号和厂商，并存入文本文件
Function HandSetMode()
End Function
<html>
<head>
<title>移动设备信息</title>
</head>
<body>
<p>获取设备信息</p>
</body>
</html>