'自己设置要检测的数据库例子
dbpath = "data.mdb"

Dim Conn
Dim ConnectionString
Set Conn = CreateObject("ADODB.Connection")
WScript.Echo "开始进行 ODBC 引擎测试............"
ConnectionStringOdbc = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & dbpath
WScript.Echo "正在连接数据库............"
Conn.Open ConnectionStringOdbc
If Err.Number <> 0 Then
strodbc = False  
WScript.Echo Err.Description
Else
strodbc = True
WScript.Echo "数据库连接成功，ODBC 数据源引擎没有问题。" & vbcrlf & vbcrlf & vbcrlf
End If
Conn.Close


WScript.Echo "开始进行JET OLEDB引擎测试............"
ConnectionStringOledb = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbpath
WScript.Echo "正在连接数据库............"
Conn.Open ConnectionStringOledb
If Err.Number <> 0 Then
stroledb = False  
WScript.Echo Err.Description
Else
stroledb = True
WScript.Echo "数据库连接成功，JET OLEDB 数据源引擎没有问题。"& vbcrlf& vbcrlf
End If
Conn.Close
Set Conn = Nothing

Function strselect()
Set Conn = CreateObject("ADODB.Connection")
WScript.Echo "测试数据库源读写............"& vbCrLf
Conn.ConnectionString  = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbpath
Conn.Open
Set rs = CreateObject("ADODB.RecordSet")
'自己设置要查询的数据库表，我这里是ip表
sql = "select top 1  * from ip"
rs.Open sql,Conn,1,1
If Err.Number <> 0 Then  
strSelect = False  
WScript.Echo Err.Description
Else
'自己设置要返回的关键字段名，我的是addj。
   If Not rs.EOF Then WScript.Echo "查询数据库返回结果：" & rs("addj")
strSelect = True
WScript.Echo "数据库源读写操作正常"& vbcrlf& vbcrlf
End If
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
End Function


If strodbc = True And stroledb = True And strSelect Then
WScript.Echo "MDAC测试正常，数据库驱动没有问题"
End If
  

Dim objWmi, objGet
objWmi = GetObject("winmgmts:/root/MicrosoftIISv2");
objGet = objWmi.get("IIsWebVirtualDirSetting='W3SVC/1/ROOT'");
'输出当前值：  
WScript.Echo "输出当前值： " & objGet .AspMaxRequestEntityAllowed  
'设置属性：  
objGet .AspMaxRequestEntityAllowed=204800000' 将属性更改保存在配置数据库中：  
objGet .Put_()  
'输出更改后的值  
WScript.Echo "输出更改后的值： " & objGet .AspMaxRequestEntityAllowed  

'*************************************************************************
' 用ADSI设置IIS ASPMaxRequestEntityAllowed值,解析上传超过200K的问题
' 要IIS重启之后，设置才会生效
'*************************************************************************
Dim intASPMaxRequestEntityAllowed, objIIS
intASPMaxRequestEntityAllowed = 20480000    '设置为您要的数值
set  objIIS = GetObject("IIS://localhost/W3svc")
WScript.Echo "输出当前值： " &  objIIS.ASPMaxRequestEntityAllowed
objIIS.Put "ASPMaxRequestEntityAllowed", intASPMaxRequestEntityAllowed
' 或者可以使用下面这个语句，效果一样
' objIIS.ASPMaxRequestEntityAllowed ＝ intASPMaxRequestEntityAllowed
objIIS.SetInfo
WScript.Echo "输出更改后的值 " &  objIIS.ASPMaxRequestEntityAllowed

Dim objWmi, objGet
objWmi = GetObject("winmgmts:/root/MicrosoftIISv2");
objGet = objWmi.get("IIsWebVirtualDirSetting='W3SVC'");
'输出当前值：  
WScript.Echo "输出当前值： " & objGet .AspMaxRequestEntityAllowed  
'设置属性：  
objGet .AspMaxRequestEntityAllowed=204800000' 将属性更改保存在配置数据库中：  
objGet .Put_()  
'输出更改后的值  
WScript.Echo "'输出更改后的值 ：" & objGet .AspMaxRequestEntityAllowed  

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

由于系统错误 126 (Microsoft Access Driver (*.mdb))，指定驱动程序无法加载。

/boyuan/product/conn.asp，行 5