Индификатор компьютера

[nsklital]

Как можно узнать индификатор компьютера?

[keks-n]

Поясни, какой индификатор? (сетевое имя, серийный номер чего- либо и т. д.)

[HotKitten]

двойные топики тоже создавать нельзя

[nsklital]

Серийный номер компьютера. Каждому комьпьютеру присваевается серийный номер, так же как на материнской плате и на всем остальном.

[GM]

Серийный номер компьютера. Каждому комьпьютеру присваевается серийный номер, так же как на материнской плате и на всем остальном.

Это ты откуда взял, что в твоем понимании есть компьютером

[keks-n]

Он про корпус... Нее, серийник корпуса програмно не узнаваем

[nsklital]

Тупые шутки. Скажите когда смеятся?
Я не о корпусе. Как можно серыйный номер материнской платы программно вытянуть с биоса?

[FaKk2]

nsklital
Так все таки серийный номер мамки а не "компьютера"

[HotKitten]

на счет материнской платы не знаю я вот s/n винта - в поиск по форуму

[AndreyIl]

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
For Each objItem in colItems
Wscript.Echo "BiosCharacteristics: " & objItem.BiosCharacteristics
Wscript.Echo "BuildNumber: " & objItem.BuildNumber
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CodeSet: " & objItem.CodeSet
Wscript.Echo "CurrentLanguage: " & objItem.CurrentLanguage
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "IdentificationCode: " & objItem.IdentificationCode
Wscript.Echo "InstallableLanguages: " & objItem.InstallableLanguages
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "LanguageEdition: " & objItem.LanguageEdition
Wscript.Echo "ListOfLanguages: " & objItem.ListOfLanguages
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "OtherTargetOS: " & objItem.OtherTargetOS
Wscript.Echo "PrimaryBIOS: " & objItem.PrimaryBIOS
Wscript.Echo "ReleaseDate: " & objItem.ReleaseDate
Wscript.Echo "SerialNumber: " & objItem.SerialNumber
Wscript.Echo "SMBIOSBIOSVersion: " & objItem.SMBIOSBIOSVersion
Wscript.Echo "SMBIOSMajorVersion: " & objItem.SMBIOSMajorVersion
Wscript.Echo "SMBIOSMinorVersion: " & objItem.SMBIOSMinorVersion
Wscript.Echo "SMBIOSPresent: " & objItem.SMBIOSPresent
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next

[keks-n]

Скриптовик хренов... А ты в курсе, что твой "winmgmts" иногда прикрывается спец. утилитами в целях безопасности.

[alibek]

Неверно.

[Vladimir!]

ИнДИФИКАТОР или идентификатор
Так-то deficatio (лат.) - означает ходить в туалет по большому.
Как это применимо к компьютеру?

[bayasaa]

Не знаю пригодиться ли это но я использовал это для решения trial версии своих программ.

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


' код формы
Private Sub Form_Load()
Text1.Text = getComputerID()
End Sub

' код модуля

Public Function getComputerID() As String
Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName("C:\")))
getComputerID = d.SerialNumber
Set fso = Nothing
Set d = Nothing
End Function


[Antonariy]

bayasaa
Не пригодится. Это серийный номер ТОМА, а не винта. Меняется при форматировании.

[alibek]

Не знаю пригодиться ли это но я использовал это для решения trial версии своих программ.

Примитивно, т.к. легко обходится, но вполне годится, когда программу не жалко.

[nsklital]

Вот что-то типа такого как писал bayasaa решения trial версии. Только по круче както защетить можно?

[bayasaa]

Вот что-то типа такого как писал bayasaa решения trial версии. Только по круче както защетить можно?

можно например прицепить к какому нибудь железку. например к диску или к другому устройству.