请问如何在ACCESS中用VBA查看局域网所有电脑的开机运行时间,代码如何写?

真主

请问如何在ACCESS中用VBA查看局域网所有电脑的开机运行时间,代码如何写?

LucasLynn

我只知道net view命令获取整个工作组所有计算机的名字

真主

在EXCEL中可以用下列代码查看本机开机运行时间,请大家帮我看看如何写查看局域网中所有电脑的开机运行时间

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub getruntime()

Dim runtime As Long

Dim hour As Integer

Dim minute As Integer

Dim second As Integer

Dim aaa As String, bbb As String

runtime = GetTickCount \ 1000

hour = runtime \ 3600

aaa = hour & "小时"

minute = (runtime - hour * 3600) \ 60

bbb = minute & "分钟"

second = runtime - hour * 3600 - minute * 60

MsgBox "本机已开机运行时间" & aaa & bbb & second & "秒"

End Sub

[此贴子已经被作者于2005-8-6 16:07:25编辑过]