取得系统磁盘的信息我有能本机的代码,其实取其它的只要获取那台PC机的名也同样可用此法的:
Dim MyInfo as string="系统磁盘驱动器的信息如下:"
Dim MySearcher as New ManagementObjectSearcher("Select * From Win32_SystemDriver where DisplayName=_
'磁盘驱动器'")
For Each MyObject as MangagementObject In MySearcher.Get()
MyInfo+=vbCrlf + Myobject.GetText(TextFormat.Mof)
Next
msgbox(MyInfo,0+48,"信息提示")