Fox-id.org :: Komunitas FoxPro Indonesia

General Category => General/Umum/OOT => Topic started by: Akang on June 05, 2009, 09:01:53 PM

Title: Tolong dong!!!
Post by: Akang on June 05, 2009, 09:01:53 PM
FoxPro Mania,
Tolong dong... Gimana programnya untuk mengambil atau membaca nomor seri Hard Disk yang digunakan??? Please help me ???
Title: Re: Tolong dong!!!
Post by: davidmustakim on June 05, 2009, 09:13:26 PM
tekan tombol SEARCH diatas itu... dan ikuti petunjuk langkah2 selanjutnya
Title: Re: Tolong dong!!!
Post by: Akang on June 05, 2009, 09:19:48 PM
tekan tombol SEARCH diatas itu... dan ikuti petunjuk langkah2 selanjutnya

Sebelumnya Saya sudah search, tapi gak ketemu!!!
Title: Re: Tolong dong!!!
Post by: rnd on June 05, 2009, 09:52:32 PM
kalo gitu coba search lagi
Title: Re: Tolong dong!!!
Post by: rnd on June 05, 2009, 10:02:34 PM
http://fox-id.org/smf/index.php/topic,3741.0.html
sudah dicariin
Title: Re: Tolong dong!!!
Post by: davidmustakim on June 05, 2009, 11:23:25 PM
Cuman kalo ga salah itu untuk VOLUME serial number yang bisa berubah kalau hd diformat ulang... Ini simpanan lama lupa udah comot dari mana

*** s/n HD
loWBEMLocator = Createobject("wbemScripting.SwbemLocator")
loWMIService = loWBEMLocator.ConnectServer('', '\root\cimv2')

If !Isnull(loWMIService)
  loLogicalDrives = loWMIService.ExecQuery('Select * from Win32_LogicalDisk')
  ? 'Logical disk'
  For Each loLogicalDrive In loLogicalDrives
    ? loLogicalDrive.Description, ;
      loLogicalDrive.DeviceID, ;
      loLogicalDrive.VolumeName, ;
      loLogicalDrive.VolumeSerialNumber
  ENDFOR
  ?
  ? 'Physical Disk'
  loPhyDrives = loWMIService.ExecQuery('Select * from Win32_PhysicalMedia')
  For Each loPhyDrive In loPhyDrives
    ? loPhyDrive.Tag,;
      loPhyDrive.SerialNumber
  Endfor
Endif


*** s/n CPU
CLEAR
lcComputer = "."
loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_BaseBoard")
For Each loItem In colItems
   For Each lcOption In loItem.ConfigOptions
      ?"Configuration Option: " + lcOption
   Next
   ?"Depth: " + loItem.Depth
   ?"Description: " + loItem.Description
   ?"Height: " + Transform(loItem.Height)
   ?"Hosting Board: " + Transform(loItem.HostingBoard)
   ?"Hot Swappable: " + Transform(loItem.HotSwappable)
   ?"Manufacturer: " + loItem.Manufacturer
   ?"Model: " + loItem.Model
   ?"Name: " + loItem.Name
   ?"Other Identifying Information: " + loItem.OtherIdentifyingInfo
   ?"Part Number: " + loItem.PartNumber
   ?"Powered On: " + Transf(loItem.PoweredOn)
   ?"Product: " + loItem.Product
   ?"Removable: " + loItem.Removable
   ?"Replaceable: " + loItem.Replaceable
   ?"Requirements Description: " + loItem.RequirementsDescription
   ?"Requires DaughterBoard: " + loItem.RequiresDaughterBoard
   ?"Serial Number: " + loItem.SerialNumber
   ?"SKU: " + loItem.SKU
   ?"Slot Layout: " + loItem.SlotLayout
   ?"Special Requirements: " + loItem.SpecialRequirements
   ?"Tag: " + loItem.Tag
   ?"Version: " + loItem.Version
   ?"Weight: " + loItem.Weight
   ?"Width: " + loItem.Width
Next

Title: Re: Tolong dong!!!
Post by: GoodOne on June 06, 2009, 12:30:22 PM
Pak DEM, siiip, thanks alot
Title: Re: Tolong dong!!!
Post by: davidmustakim on June 06, 2009, 12:32:45 PM
aaa... saya suka DEM itu, DVM ga nyambung
Title: Re: Tolong dong!!!
Post by: sudanto on June 06, 2009, 12:52:39 PM
Kalo DVD Must ? :icon_thumleft:
Title: Re: Tolong dong!!!
Post by: davidmustakim on June 06, 2009, 01:29:06 PM
DVD Must ?... ga ah, ntar ga bisa pake CD