请教！如何检测计算机中安装的什么系统，安装在那个分区，以及系统目录？

sxgaobo

同题！！！

wu8313

Sub sys()
'求机器名
        MsgBox "您的机器名称为：" & Environ("COMPUTERNAME")
      '求用户名
        MsgBox "当前登陆用户名称为：" & Environ("USERNAME")
     '求操作系统
        MsgBox "本机所安装的操作系统为：" & Environ("OS")
   '求win目录
        MsgBox "本机的WINDOWS安装目录为：" & Environ("windir")
End Sub

sxgaobo

谢谢 wu8313!

正是我所需啊！！！

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