Office中国论坛/Access中国论坛

标题: 请教！如何检测计算机中安装的什么系统，安装在那个分区，以及系统目录？ [打印本页]

作者: sxgaobo 时间: 2005-4-7 22:14
标题: 请教！如何检测计算机中安装的什么系统，安装在那个分区，以及系统目录？
同题！！！

作者: wu8313 时间: 2005-4-8 06:33
Sub sys()
'求机器名
      MsgBox "您的机器名称为：" & Environ("COMPUTERNAME")
   '求用户名
      MsgBox "当前登陆用户名称为：" & Environ("USERNAME")
   '求操作系统
      MsgBox "本机所安装的操作系统为：" & Environ("OS")
'求win目录
      MsgBox "本机的WINDOWS安装目录为：" & Environ("windir")
End Sub

作者: sxgaobo 时间: 2005-4-8 17:40
谢谢 wu8313!

正是我所需啊！！！

[此贴子已经被作者于2005-4-8 9:41:01编辑过]

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