写一个函数
成都创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于网站设计、网站制作、古冶网络推广、小程序定制开发、古冶网络营销、古冶企业策划、古冶品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联公司为所有大学生创业者提供古冶建站搭建服务，24小时服务热线：18980820575，官方网址：www.cdcxhl.com
function nettime(ip)
open app.path "\nt.bat" for output as #1
print #1,"@net time \\" ip " nt.dat"
close #1
shell app.path "\nt.bat",vbhide
doevents
'这里你查查相关资料，关于shell的WAIT，可能用doevents不能等到执行完成，所以可能得不到需要的数据， 里有资料
open app.path "\nt.dat" for intput as #1
dim x as sting
do until eof(1)
input #1,x
nettime=nettime x
loop
nettime=replace(nettime,vbcrlf,"")
nettime=replace(nettime," ","")
end function
调用就可以了，得到什么我不知道，没有可用的服务器
Shell "cmd /c net view", vbNormalFocus 这样就可以了不过DOS窗口只是一闪而过。
VB.net语言
1、创建组件定义
新建一个Probject，在代码中写入：
Public Interface IDemo
Function Test() As String
End Interface
2、实现组件定义
新建一个Probject，添加对上述Probject的引用后，在代码中写入
Public Class Demo
Implements IDemo.IDemo
Public Function Test() As String Implements IDemo.IDemo.Test
Test = "Hello World!"
End Function
End Class
3、编译出Demo.dll组件
4、使用.net的工具 Visual Studio .Net 2003 Command Prompt，输入以下命令
Regasm Demo.dll /tlb:Demo.tlb
把Demo.dll注册为一个com对象（这个com对象不等同于普通的用VB编写的Com对象），并导出类型库Demo.tlb
5、新建一个VB工程，添加对Demo.tlb和IDemo.tlb的引用
6、定义两个全局变量
Dim vbDemo As Demo.Demo
Dim vbIDemo as IDemo.IDemo
7、在Form_Load事件中初始化
'初始化实体类
Set vbDemo = New Demo.Demo
'将实体类引用到抽象类
Set vbIDemo = vbDemo
8、然后，我们就可以用 vbIDemo.Test 这样的方法了
