Windows Management Instrumentation (WMI) information

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28498
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Windows Management Instrumentation (WMI) information

Mesaj gönderen velociraptor » 02 Eyl 2008, 02:59

Bir vbscript ile Windows Management Instrumentation (WMI) information u ögrenelim

asagidakini bir text dosyasina paste edip uzantisini .vbs yapin

Kod: Tümünü seç

Dim objWMI : Set objWMI = GetObject("winmgmts:")
Dim colSettingsComp : Set colSettings = objWMI.ExecQuery("Select * from Win32_ComputerSystem")
Dim colSettingsBios : Set colSettingsBios = objWMI.ExecQuery("Select * from Win32_BIOS")
Dim objComputer, strModel, strSerial
For Each objComputer in colSettings
  strModel = objComputer.Model
Next
For Each objComputer in colSettingsBios
  strSerial = objComputer.SerialNumber
Next
wscript.echo strModel
wscript.echo strSerial
Kaynak kod download:

Kod: Tümünü seç

http://www.windowsitpro.com/articles/download/compquery.zip
ALINTIDIR
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free



Cevapla