MdbAddr = "\\win-pc\vbs\1.mdb"
Miaoshu = 1 '定义秒数等于1
Shijian = Miaoshu*1000 '间隔时间等1乘1000毫秒


Dim WMI'定义变量

Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
'建立wmi服务连接。
'完整格式是："winmgmts:[{SecuritySettings}!][\\ComputerName][\Namespace][:ClassName][.KeyProperty='Value']" winmgmts:"是前缀， 表示为WMI服务；第二部分用来验证权限和假冒级别的；

'获取计算机名
Set colComputers = WMI.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
    PcName = objComputer.Name
Exit For
Next

'查找活动连接
Set colItems = WMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled='TRUE'")
For Each objItem In colItems
    NetName =  Replace(objItem.Description,"/","_") '获取网卡名
    MacAddr = objItem.MacAddress '获取mac地址
	For Each objAddress in objItem.IPAddress
	If objAddress <> "" then
	IpAddr = objAddress '获取ip地址
	Exit For
	End If
	Next
Next
Set colItems = Nothing '释放对象colItems
UserName= CreateObject("wscript.network").username


'将控制权传递给函数Network
Call Network(Name) 

Function Network(Names)
  '判断数据库文件是否存在
 If CreateObject("Scripting.FileSystemObject").FileExists(MdbAddr) Then
	'MsgBox "数据库文件已经存在"
 Else 
	'MsgBox "数据库文件不存在，创建数据库"
	'创建数据库
	CreateObject("ADOX.Catalog").Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & MDBaddr
	'创建表以及字段
	Set connObj = CreateObject("ADODB.Connection")
	connObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & MdbAddr
	connObj.Execute "CREATE TABLE Speed(计算机名 varchar(255),用户名 varchar(255),IP地址 varchar(255),下载速度 varchar(255),上传速度 varchar(255),时间 varchar(255),MAC地址 varchar(255),网卡名称 varchar(255))"
	connObj.Close
	Set connObj = Nothing
 End If
 '循环开始
 Do
 Dim A
 Set A = WMI.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface Where Name = '"& NetName &"'")
 For Each B In A
    R1 = B.BytesReceivedPersec '接收包
    S1 = B.BytesSentPersec '发送包
    T1 = B.BytesTotalPersec '总流量
    If T0 ="" Then :T0 = B.BytesTotalPersec :End If
 Next
 Set A = Nothing '释放A的对象
 WScript.Sleep(Shijian) '延迟时间获取数据
 Set A = WMI.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface Where Name = '"& NetName &"'")
 For Each B In A
    R2 = B.BytesReceivedPersec 
    S2 = B.BytesSentPersec 
    T2 = B.BytesTotalPersec 
 Next
 Set A = Nothing
 Down=CheckSize((R2-R1)/Miaoshu) &"/s" '计算下载速率
 Up=CheckSize((S2-S1)/Miaoshu) &"/s" '计算上传速率

 '数据库更新
 Dim rsObj
 Set connObj = CreateObject("ADODB.Connection") '前面虽然已经定义，但是后来释放了
	 connObj.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & MdbAddr
     connObj.Open
 Set rsObj = CreateObject("ADODB.RecordSet") '数据的操作，主要靠的是ADODB.RecordSet对象
	rsObj.Open "select * FROM Speed where MAC地址 = '"& MacAddr & "'", connObj, 1, 3 
 If Not rsObj.Eof Then
	'MsgBox rsObj("MAC地址")&"已有数据，更新信息" 
	rsObj("计算机名") = pcname 
	rsObj("用户名") = username
	rsObj("IP地址") = ipaddr
	rsObj("下载速度") = down
	rsObj("上传速度") = up
	rsObj("时间") = Now()
	rsObj.Update
	rsObj.Close
	connObj.Close
 Else 
	'MsgBox "没有数据，添加新数据"
	rsObj.Close
	connObj.Close
	connObj.open
	rsObj.Open "select * FROM Speed", connObj, 1, 3
	rsObj.AddNew 
	If Not rsObj.Eof Then
		rsObj("计算机名") = PcName
		rsObj("用户名") = UserName
		rsObj("IP地址") = IpAddr
		rsObj("下载速度") = Down
		rsObj("上传速度") = Up
		rsObj("时间") = Now()
		rsObj("MAC地址") = MacAddr
		rsObj("网卡名称") = NetName
		rsObj.Update
		rsObj.Close
		connObj.Close
	End If
 End If
 Set rsObj = Nothing
 Set connObj = Nothing 
 Loop
End Function

'函数checksize
Function CheckSize(SZ)
On Error Resume Next
If SZ => 1073741824 Then
   SZ = FormatNumber(SZ/1073741824) & " GB"
   ElseIf SZ => 1048576 Then
   SZ = FormatNumber(SZ/1048576) & " MB"
   ElseIf SZ => 1024 Then
   SZ = FormatNumber(SZ/1024) & " KB"
Else
   SZ = SZ & " B"
End If
CheckSize=Right("      " & SZ,10)
End Function
复制代码

Win7 x64 操作系统不支持Microsoft OLE DB Provider for Jet驱动程序，也不支持更早的Microsoft Access Driver (*.mdb)方式连接。
解决：1. 在MSHTA中使用VBS编程；2. 使用VBA编程
复制代码

'WhoAmI
Msgbox CreateObject("WScript.Shell").ExpandenVironmentStrings("%COMPUTERNAME%\%USERNAME%")
复制代码

1. 程序语法结构不整洁
2. 变量 NetName 与 Name 
3. SQL插入、更新操作尽量使用Insert Into、Update语句。这里可以不用ADODB.RecordSet，使用ADODB.Connection的objConn.Execute(strSql)即可。
4. 猜测楼主是想要这个程序实现，将多台电脑的网卡流量状态实时写入这个Windows共享的Access数据库，这实在不是什么好主意……
复制代码