Проблемы System.Management.ManagementObjectSearcher

[Predator]

При написании программы мне надо получить следующие данные

Код: Выделить всё

Dim diskClass As New System.Management.ManagementObjectSearcher("Select * FROM Win32_DiskDrive")
        Dim disk As System.Management.ManagementObject
        Dim s As String = ""
               For Each disk In diskClass.Get()
                     AAA(i) = disk("SerialNumber")
            i = i + 1

        Next disk

если на компе стоит Win7 то все ок
если на тот же комп поставить XP sp2-sp3 то данный код вызывает ошибку.

System.Management.ManagementException не обработано
Message="Не найден "
Source="System.Management"
StackTrace:
в System.Management.ManagementException.ThrowWithExtendedInfo(ManagementStatus errorCode) в System.Management.PropertyData.RefreshPropertyInfo() в System.Management.PropertyDataCollection.get_Item(String propertyName) в System.Management.ManagementBaseObject.GetPropertyValue(String propertyName) в System.Management.ManagementBaseObject.get_Item(String propertyName) в NLE_TEL.Menu_vb.loadsystem() в C:\Documents and Settings\likhoded\Рабочий стол\NLE TEL\NLE TEL\Menu_vb.vb:строка 17 в NLE_TEL.Menu_vb.Menu_vb_Load(Object sender, EventArgs e) в C:\Documents and Settings\likhoded\Рабочий стол\NLE TEL\NLE TEL\Menu_vb.vb:строка 307 в System.EventHandler.Invoke(Object sender, EventArgs e) в System.Windows.Forms.Form.OnLoad(EventArgs e) в System.Windows.Forms.Form.OnCreateControl() в System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible) в System.Windows.Forms.Control.CreateControl() в System.Windows.Forms.Control.WmShowWindow(Message& m) в System.Windows.Forms.Control.WndProc(Message& m) в System.Windows.Forms.ScrollableControl.WndProc(Message& m) в System.Windows.Forms.ContainerControl.WndProc(Message& m) в System.Windows.Forms.Form.WmShowWindow(Message& m) в System.Windows.Forms.Form.WndProc(Message& m) в System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) в System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) в System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) в System.Windows.Forms.SafeNativeMethods.ShowWindow(HandleRef hWnd, Int32 nCmdShow) в System.Windows.Forms.Control.SetVisibleCore(Boolean value) в System.Windows.Forms.Form.SetVisibleCore(Boolean value) в System.Windows.Forms.Control.set_Visible(Boolean value) в System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) в System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) в System.Windows.Forms.Application.Run(ApplicationContext context) в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) в NLE_TEL.My.MyApplication.Main(String[] Args) в 17d14f5c-a337-4978-8281-53493378c1071.vb:строка 81 в System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args) в System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args) в Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly() в System.Threading.ThreadHelper.ThreadStart_Context(Object state) в System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) в System.Threading.ThreadHelper.ThreadStart()
InnerException:


в чем косяк?

[MIT]

Что за ошибка мы, видимо, должны угадать?

[1Steps]

В ХР этот код не сработает пока не добавишь референс(System.Management) в проэкт.
Но для полного ответа нужно видеть весь код.

[1Steps]

Да и вообще, что бы получить сериал номер, нужно проделать не слабые телодвижения.
У меня это происходит так:

Код: Выделить всё

        Dim _mbo As ManagementBaseObject
        Dim _mo As ManagementObject

        If TypeOf obj Is ManagementBaseObject Then
            _mbo = CType(obj, ManagementBaseObject)
            _caption = _mbo("Caption").ToString
            _name = _mbo("Name").ToString
        Else
            _mo = CType(obj, ManagementObject)
            _caption = _mo("Caption").ToString
            _name = _mo("Name").ToString
        End If

        If ejected Then Exit Sub

        _name = Replace(_name, "\", "\\")
        Dim partitionQuery As New ObjectQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _name & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
        Dim diskQuery As ObjectQuery
        Try
            For Each partition As ManagementObject In New ManagementObjectSearcher(partitionQuery).Get()
                diskQuery = New ObjectQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & partition("DeviceID").ToString & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
                For Each disk As ManagementObject In New ManagementObjectSearcher(diskQuery).Get()
                    _name = disk("Name").ToString
                Next
            Next
            _mo = New ManagementObject("Win32_LogicalDisk.DeviceID='" & _name & "'")
            _mo.Get()
            _volumeName = _mo("VolumeName").ToString
            _serialNumber = _mo("VolumeSerialNumber").ToString
            _totalSize = _mo("Size").ToString
            _freeSpace = _mo("FreeSpace").ToString
        Catch err As ManagementException
            MessageBox.Show(err.Message)
        End Try

ХР, FW 3.5, 2008, SP3

[Predator]

В ХР этот код не сработает пока не добавишь референс(System.Management) в проэкт.

она там есть....

Код: Выделить всё

Dim diskClass As New System.Management.ManagementObjectSearcher("Select * FROM Win32_DiskDrive")
        Dim disk As System.Management.ManagementObject
        Dim s As String = ""
   
        For Each disk In diskClass.Get()
                AAA(i) = disk("SerialNumber")
            i = i + 1
       Next disk

это и есть весь участок кода
в переменную AAA(i) мне надо получить список все серийников хардов компа.

я воткнул туда другую переменную и код сработал.
http://msdn.microsoft.com/en-us/library/aa394132%28VS.85%29.aspx

может как то можно без ядреного кода решить задачу? я просто в Win32_DiskDrive Class не нашел VolumeSerialNumber?

[MIT]

может как то можно без ядреного кода решить задачу?

Что в твоём понимании есть ядерный код?

я просто в Win32_DiskDrive Class не нашел VolumeSerialNumber

А я нашёл. Правда SerialNumber там не Volume, а физический.

[Predator]

XP почему то не находит SerialNumber.... - физический...
а мне нужно получить именно его... и желательно именно таким способом перебором всех HDD И помещением их в массив данных...