Author Topic: Tolong dong!!!  (Read 2256 times)

0 Members and 1 Guest are viewing this topic.

Offline Akang

  • Newbie
  • *
  • Posts: 16
Tolong dong!!!
« 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 ???

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: Tolong dong!!!
« Reply #1 on: June 05, 2009, 09:13:26 PM »
tekan tombol SEARCH diatas itu... dan ikuti petunjuk langkah2 selanjutnya

Offline Akang

  • Newbie
  • *
  • Posts: 16
Re: Tolong dong!!!
« Reply #2 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!!!

Offline rnd

  • Hero Member
  • *
  • Posts: 1.284
Re: Tolong dong!!!
« Reply #3 on: June 05, 2009, 09:52:32 PM »
kalo gitu coba search lagi

Offline rnd

  • Hero Member
  • *
  • Posts: 1.284
Re: Tolong dong!!!
« Reply #4 on: June 05, 2009, 10:02:34 PM »

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: Tolong dong!!!
« Reply #5 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


Offline GoodOne

  • Junior Member
  • *
  • Posts: 118
Re: Tolong dong!!!
« Reply #6 on: June 06, 2009, 12:30:22 PM »
Pak DEM, siiip, thanks alot

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: Tolong dong!!!
« Reply #7 on: June 06, 2009, 12:32:45 PM »
aaa... saya suka DEM itu, DVM ga nyambung

Offline sudanto

  • Newbie
  • *
  • Posts: 25
    • http://
Re: Tolong dong!!!
« Reply #8 on: June 06, 2009, 12:52:39 PM »
Kalo DVD Must ? :icon_thumleft:

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: Tolong dong!!!
« Reply #9 on: June 06, 2009, 01:29:06 PM »
DVD Must ?... ga ah, ntar ga bisa pake CD