高考问答蓝海基业集团:vbscript除了window,document还有那些对象
来源：百度文库 编辑：高考问答 时间：2024/04/20 21:50:24
http://www.sman.cn/blog/article.asp?id=55
下个DHTML手册
你说的window,document是HTML中的对象,在VBScript中可以使用.而在VBScript中有两个最为重要的对象就是Request请求对象和Response响应对象.
请求对象Request用来与客户端交互,收集客户端信息或服务器端的环境变量,然后将收集的这些信息发送给服务器端或其它asp页面,称为发送请求,服务器收到请求后就会做出适当的响应,即:对这些信息进行处理,然后将结果返回给客户端浏览器,利用Request对象可以很容易的获取客户端的一些信息,比如:
form 方法,主要用来获取表单中的信息;
querystring方法,主要获取附加在url后面的信息;
servervariabes方法,主要获取客户的IP地址等环境变量;
......
Response对象用于响应客户端浏览器发送的请求,比如:
Response.write 为客户端输出信息
Response.end 中止asp程序并返回当时的状态
Response.redirect 引导客户浏览器到另一个页面
......
Dictionary对象
Dictionary对象
CompareMode
Count
Item
<html>
<head>
<title>Welcome…</title>
<Script Language="VBScript">
<!--
Function FindKey()
Dim gyc
Set gyc=CreateObject("Scripting.Dictionary")
gyc.Add "0","星期日"
gyc.Add "1","星期一"
gyc.Add "2","星期二"
If gyc.Exists("2") Then
FindKey=True
Else
FindKey=False
End If
MsgBox FindKey
End Function
-->
</Script>
vbscript 用的是DHTML中的对象
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_AccountSID",,48)
For Each objItem in colItems
WScript.Echo "Element: " & objItem.Element
WScript.Echo "Setting: " & objItem.Setting
WScript.Echo ""
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_1394ControllerDevice",,48)
For Each objItem in colItems
WScript.Echo "AccessState: " & objItem.AccessState
WScript.Echo "Antecedent: " & objItem.Antecedent
WScript.Echo "Dependent: " & objItem.Dependent
WScript.Echo "NegotiatedDataWidth: " & objItem.NegotiatedDataWidth
WScript.Echo "NegotiatedSpeed: " & objItem.NegotiatedSpeed
WScript.Echo "NumberOfHardResets: " & objItem.NumberOfHardResets
WScript.Echo "NumberOfSoftResets: " & objItem.NumberOfSoftResets
WScript.Echo ""
Next
.............................
多了，你可以直接编一个*.vbs的脚本来运行但那里可就没有你说的window，document对象了