powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Как адаптировать код wmi под код visual studio 2010
17 сообщений из 17, страница 1 из 1
Как адаптировать код wmi под код visual studio 2010
    #38991185
minioracle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброе время суток всем.
Подскажите пожалуйста для новичка, что бы можно было разобраться, как адаптировать код wmi под код visual studio 2010
Есть напримере код
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root

\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_BaseBoard",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_BaseBoard instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Product: " & objItem.Product
Next



Как его адаптировать для .net что бы можно было полученные данные objItem.Product можно было занасить в label
А то если его в таком виде вставлять в код формы получается много ошибок.
А как это делать для кода WMI я не знаю.
Подскажите пожалуйста новичку.
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991187
minioracle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
minioracle,
Если пишу так

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Public Class Form1
    Dim Computer As String
    Dim WMI As Object
    Dim Items As Object
    Dim Item As Object
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        Computer = "."
        WMI = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")
        Items = objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard", , 48)
        For Each Item In Items
            Debug.Print(Item.SerialNumber)
            Exit For
        Next
    End Sub
End Class


то у меня ошибка
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991204
Сон Веры Павловны
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991424
minioracle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
При таком вводе он интересуется где у меня return
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991430
minioracle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Сон Веры Павловны,

вот так
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991505
Сон Веры Павловны
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
minioracleПри таком вводе он интересуется где у меня return
Ну, почитайте книжки по языку. Этот вопрос уже не относится к WMI.
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991543
minioracle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Сон Веры Павловны,

Если бы подсказали книжку куда свой взор обратить?!
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991549
minioracle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Сон Веры Павловны,

Я ж спрашиваю не про код что ниже, а про то как адаптировать, что бы понять как работать с WMI и выводить данные на форму
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991592
Фотография pation
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
minioracleКак его адаптировать для .net что бы можно было полученные данные objItem.Product можно было занасить в label
А то если его в таком виде вставлять в код формы получается много ошибок.
А как это делать для кода WMI я не знаю.
Подскажите пожалуйста новичку.

что конкретно вызывает трудности?
как в label вывести текст?
о каких ошибках речь?
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991672
minioracle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
pation,

Трудности в том что как код из WMI code creator вставить в форму, что бы можно было выводить данные в label

ТУТ
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Public Class Form1
    Dim Computer As String
    Dim WMI As Object
    Dim Items As Object
    Dim Item As Object
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        Computer = "."
        WMI = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")
        Items = objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard", , 48)
        For Each Item In Items
            Debug.Print(Item.SerialNumber)
            Exit For
        Next
    End Sub
End Class


ругается на objWMIServic
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991684
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
minioracle,

WMI code creator умеет создавать код, как для VBScript, так и для C# и VB.NET (работающий с .NET классами, а не COM). Может всё таки их (классы) и использовать?
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991687
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Imports System
Imports System.Management
Imports System.Windows.Forms

Namespace WMISample

    Public Class MyWMIQuery

        Public Overloads Shared Function Main() As Integer

            Try
                Dim searcher As New ManagementObjectSearcher( _
                    "root\CIMV2", _
                    "SELECT * FROM Win32_BaseBoard") 

                For Each queryObj As ManagementObject in searcher.Get()

                    Console.WriteLine("-----------------------------------")
                    Console.WriteLine("Win32_BaseBoard instance")
                    Console.WriteLine("-----------------------------------")
                    Console.WriteLine("SerialNumber: {0}", queryObj("SerialNumber"))
                Next
            Catch err As ManagementException
                MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
            End Try
        End Function
    End Class
End Namespace
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991690
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не заметил, код уже нашли.... А выводить форму, label1.Text = CStr(queryObj("SerialNumber")), разве нет?
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991732
minioracle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
VSVLAD,
Уже пробовал. Вот тут просит вставить Return
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38991746
minioracle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
VSVLAD,
если перевожу на visual basic .net
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38992506
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
minioracleVSVLAD,
если перевожу на visual basic .net


Возможно поврежден класс Win32_BIOS. На других классах ошибки есть?
...
Рейтинг: 0 / 0
Как адаптировать код wmi под код visual studio 2010
    #38992510
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
minioracleVSVLAD,
Уже пробовал. Вот тут просит вставить Return


Так вставьте "return 0" или уберите "as Integer" в заголовке функции
...
Рейтинг: 0 / 0
17 сообщений из 17, страница 1 из 1
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Как адаптировать код wmi под код visual studio 2010
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]