Копирование в базу Access информации о компьютере

01.06.2010, 13:56. **Показов** 1619. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Здравствуйте ...
Есть необходимость сбора информации о ПК в базу MDB (Имя компа...Имя юзера...IP)
Перерыл очень много статей. Примерно написал вот это:

Visual Basic

Set objConnection = CreateObject("ADODB.Connection")
 
objConnection.Open _
        "Provider= Microsoft.Jet.OLEDB.4.0; " & _
            "Data Source=C:\1.mdb"
 
Sql = "INSERT INTO info ( PCNAME, User ) "
Sql = Sql & "SELECT 'Hello' AS Device, 'Man' AS Location "
 
objConnection.Execute Sql
objConnection.Close

Если кто может помочь ... Нужно чтобы в таблицу Info в поля PCNAME и User вставлялись вместо Hello и Man ... Имя компьютера и Юзер который за ним сидит ...

Не судите строго ... Начал совсем недавно ...
Спасибо большое ...

@Abu · 14.06.2010, 14:02

Visual Basic

Dim colComputer, objWMIService
Dim cName, uName
Set objWMIService = GetObject("winmgmts:\" & "." & "\root\CIMV2")
Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
    cName = objComputer.Name
    uName = objComputer.UserName    
Next

Вместо Hello и Man подставьте cName и uName

	14.06.2010, 14:02