Delphi SNMP

SNMP di Delphi XE2 menggunakan Indy. Berikut ini adalah contoh sederhana cara penggunaanya.

GET Request:

procedure TForm3.Button1Click(Sender: TObject);
var
  mib : string;
begin
  IdSNMP1 := TIdSNMP.Create;
  mib := '1.3.6.1.4.1.6247.24.1.2.3.1.0';
  try
    IdSNMP1.Host := '192.168.2.10';
    IdSNMP1.Community := 'wublic';
    IdSNMP1.Query.Clear;
    IdSNMP1.Query.PDUType := PDUGetRequest;
    IdSNMP1.Query.MIBAdd(mib,'');
    if IdSNMP1.SendQuery then
      Edit2.Text := IdSNMP1.Reply.MIBGet(mib);
  finally
    IdSNMP1.Free;
  end;
end;

GET Request bisa juga menggunakan QuickSend :

procedure TForm2.Button1Click(Sender: TObject);
begin
  IdSNMP1 := TIdSNMP.Create;
  try
    IdSNMP1.QuickSend('1.3.6.1.4.1.6247.24.1.2.3.1.0', 'wublic', '192.168.2.10', val);
    ShowMessage(val);
  finally
    IdSNMP1.Free;
  end;
end;


SET request:

procedure TForm3.Button2Click(Sender: TObject);
begin
  IdSNMP1 := TIdSNMP.Create;

  try
    IdSNMP1.Host := '192.168.2.10';
    IdSNMP1.Community := 'private';
    IdSNMP1.Query.Clear;
    IdSNMP1.Query.PDUType := PDUSetRequest;                          IdSNMP1.Query.MIBAdd('1.3.6.1.4.1.6247.24.1.2.3.1.0', '71000000', 2);
    if IdSNMP1.SendQuery then ShowMessage('Success');
  finally
    IdSNMP1.Free;
  end;

end;

Mengembalikan boot.ini Windows XP

File boot.ini gak tau gimana ceritanya bisa hilang. Biasanya ada di root folder (C:). Contohnya:
[boot loader]
timeout=30
default=multi(0)disk(0)rdisk(0)partition(1)\WINDOWS
[operating systems]
multi(0)disk(0)rdisk(0)partition(1)\WINDOWS="Microsoft Windows XP Professional" /noexecute=optin /fastdetect

Kalau sedang menggunakan Recovery Console bisa diperbaiki dengan perintah BOOTCFG /rebuild



NTLDR is missing

Windows XP gak bisa start, cuman muncul NTLDR is missing press Ctrl+Alt+Del to restart. Bagaimana cara memperbaikinya.
  1. Start komputer dengan CD installer Windows XP.
  2. Tekan R setelah muncul Welcome to Setup dan ada pilihan press R to start the Recovery Console
  3. Muncul pilihan Windows.Ketik 1 dan tekan Enter
  4. Masukkan password administrator atau tekan Enter
  5. Ketik perintah ini dan ganti X dengan nama CD ROM drive misalnya D atau E
    COPY X:\i386\NTLDR C:
    COPY X:\i386\NTDETECT.COM C:
  6. Ketik exit

MS Office SKU011.CAB hilang

Kemarin nemu problem pada MSOffice 2003, kalau dibuka muncul pesan kesalahan SKU011.CAB missing. Karena gak ada CD instalasinya akhirnya utak-atik registry saja:
  1. Buka regedit. Klik Start-> Run -> ketik regedit.
  2. Buka HKEY_LOCAL_MACHINE -> Software -> Microsoft -> Office -> 11.0 -> Delivery
  3. Ada direktori dibawah Delivery namanya {90000409-6000-11D3-8CFE-0150048383C9}. Pilih direktori ini, kemudian disebelah kanan ada CDCache. Klik 2 kali pada CDCache dan ganti value data menjadi 0.

Memperbarui Product Key Windows XP

Bagaimana cara mengganti produk key dari Windows XP yang sudah terpasang ? Ini caranya:
  1. Klik Start -> Run
  2. Ketik Regedit dan klik OK
  3. Cari registry ini: HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\Current Version\WPAEvents bisa juga dengan klik Edit->Find dan masukkan kata 'WPAEvents'
  4. Klik dua kali pada OOBETimer dan ganti salah satu huruf misalnya FF jadi DD kemudian klik OK
  5. Klik Start -> Run
  6. Ketik %systemroot%\system32\oobe\msoobe.exe /a
  7. Klik Yes,I want to telephone a customer service representative to activate Windows kemudian klik Next
  8. Klik Change Product key
  9. Isikan product key yang baru dan klik Update
  10. Klik Remind me later
  11. Restart komputer
  12. Jalankan lagi %systemroot%\system32\oobe\msoobe.exe /a untuk memastikan suksesnya, pesan Windows is already activated. Click OK to exit akan muncul kalau sukses.
Atau bisa juga menggunakan Windows Product Key Update Tool dari Microsoft

Instalasi Recovery Console Windows XP

Saya sering menemui problem Windows XP yang bisa diatasi dengan Recovery Console dari CD instalasi Windows XP. Ternyata Recovery Console juga bisa dipasang di hard disk dan dimunculkan pada pilihan boot. Cara instalasinya:
1. Masukkan CD ke drive
2. Klik Start -> Run
3. Ketik perintah berikut ( dimana X: adalah nama CD drive) kemudian tekan ENTER
X:\i386\winnt32.exe /cmdcons
4. Klik OK dan ikuti instruksi untuk menyelesaikan setup.