Mengambil Suatu Nilai pada System Information

System Informasi berguna untuk menampilkan informasi-informasi mengenai user pengguna windows, nama domain yang digunakan, nama computer, jenis prossesor yang digunakan, dan lain-lain. Silahkan ikuti langkah-langkah sbb:

1.      Buatlah database baru, Save dengan nama “03_SystemInformasi.mdb”.

2.      Pada database Access, pilih object forms, kemudian klik New. Pilih design view.

3.      Tambahkan 10 text box dengan nama masing-masing text box tersebut sbb: txtNamaComputer, txtNamaUser, txtNamaDomain, txtWinDir, txtOS, txtArsProc, txtLevProc, txtIdenProc, txtRevProc, txtJumProc, txtNamaDatabase, txtLokasiDatabase.

4.      Tambahkan juga command button. Pada properties Name, isi dengan “cmdRun”. Pada event On Click, isi nilainya dengan kode sbb:

Private Sub cmdRun_Click()

    Me![txtNamaComputer] = Environ(“COMPUTERNAME”)

    Me![txtNamaUser] = Environ(“USERNAME”)

    Me![txtNamaDomain] = Environ(“USERDOMAIN”)

    Me![txtWinDir] = Environ(“WINDIR”)

    Me![txtOS] = Environ(“OS”)

    Me![txtArsProc] = Environ(“PROCESSOR_ARCHITECTURE”)

    Me![txtLevProc] = Environ(“PROCESSOR_LEVEL”)

    Me![txtIdenProc] = Environ(“PROCESSOR_IDENTIFIER”)

    Me![txtRevProc] = Environ(“PROCESSOR_REVISION”)

    Me![txtJumProc] = Environ(“NUMBER_OF_PROCESSORS”)

    Me![txtNamaDatabase] = CurrentProject.Name

    Me![txtLokasiDatabase] = CurrentProject.Path

End Sub

5.      Save form ini dengan nama “frmSystemInformasi”, kemudian Jalankan. Klik tombol “cmdRun”, maka akan mucul form sebagai berikut:


Gambar System Informasi pada PC yang sedang digunakan

Leave a Reply

%d bloggers like this: