Office中国论坛/Access中国论坛

标题: 请问如何在ACCESS中用VBA查看局域网所有电脑的开机运行时间,代码如何写? [打印本页]

作者: 真主 时间: 2005-8-6 22:57
标题: 请问如何在ACCESS中用VBA查看局域网所有电脑的开机运行时间,代码如何写?
请问如何在ACCESS中用VBA查看局域网所有电脑的开机运行时间,代码如何写?

作者: LucasLynn 时间: 2005-8-6 23:49
我只知道net view命令获取整个工作组所有计算机的名字

作者: 真主 时间: 2005-8-7 00:05
在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编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)