Tuesday, October 20, 2015

TERMINAL SERVER DI WINDOWS SERVER 2008 R2

Remote Desktop, menjadi andalan beberapa administrator server untuk bekerja dari jarak jauh. setelah berhasil mengaktifkan RDS (Remote Desktop Service) ada masalah yang sering "mengganggu" kantong, License.. He, urusan satu ini, Microsoft memang jagonya bisnis.

Secara default, Remote Desktop Licensing sudah aktif dan bisa digunakan secara penuh tanpa ada fitur yang dikurangi, hanya jika jumlah user remote desktop hanya 1 User, dan itupun hanya berumur 120 Hari. Setelah lebih dari 120 Hari, akan muncul peringatan remote desktop tidak bisa lagi digunakan, kecuali membeli license dari microsoft.







Dari beberapa sumber, ada 1 cara agar error tersebut hilang, bukan menjadi legal, hanya meminta dengan sangat kepada microsoft untuk memperpanjang masa "pinjam" yang semula hanya 120 hari, menjadi 10 tahun.. (Maaf, saya tidak bilang menjadi legal, atau meng-crack, hanya bermaksud memperpanjang masa trial)

Oke, langsung saja begini caranya.

1. Buka register editor, sebagai administrator (Ketik : "regedit")

2. Masuk ke alamat register ini
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\RCM\GracePeriod

3. Anda harus menghapus nilai REG_BINARY yang tertera disitu, tapi kemungkinan akan ada sedikit masalah jika anda langsung menghapus tanpa previlege.
4. Jika anda tidak punya kewenangan, maka lakukan perubahan ownership pada folder GracePeriode dengan cara, klik kanan - properties, pada jendela Permissions For Grace Periode, arahkan pointer pada user Administrator, Kemudian klik tombol Advance

5. Klik pada tab Owner, kemudian check pada Replace Owner on subcontainers and Object
6. Klik OK, Kemudian kembali ke Jendela Registry Editor, Hapus REG_BINARY pada GracePeriode
7. Restart System Anda, Ingat, action ini hanya akan memperpanjang masa trial menjadi 120 hari kedepan.
8. Jika anda menginginkan lebih lama, Maka sebelum restart rubah dulu tanggal system menjadi 10 tahun kedepan, Kemudian Restart, dan kembalikan tanggal system sesuai tanggal sekarang.
9. Anda sekarang akan menikmati RDS Terminal Server License trial selama 10 Tahun kedepan.

Semoga Membantu, Salam..

Friday, October 16, 2015

Menampilkan Bulan dalam Tanggal

Saya akan berbagi tips kecil untuk menampilkan tanggal dalam format 21 Februari 2014 dalam visual Foxpro. Mungkin ada cara yang lebih singkat, tapi saya lebih senang membuat dengan cara saya sendiri.

Oke mari kita mulai.

Type data date (tanggal) tertulis 21/02/14 jika kita menganut sistem british (SET DATE BRIT) dan menghilangkan century (SET CENT OFF). seringkali orang lebih senang melihat nota kwitansi bertuliskan tanggal 21 Februari 2014 dalam format dan berbahasa indonesia, bukan 21 February 2014.

Ini adalah prosedur yang saya maksud,

LPARAMETERS dTgl 
nDate   = DAY(dTgl)
nMonth  = MONTH(dTgl)
nYear = YEAR(dTgl)
charbln = "JANUARI   FEBRUARI  MARET     APRIL     MEI       JUNI      JULI      AGUSTUS   SEPTEMBER OKTOBER   NOPEMBER  DESEMBER"
cNamaBulan = ALLTRIM(SUBSTR(charbln,(nMonth*10)-9,10))
IF !EMPTY(dTgl)
cTgl = ALLTRIM(STR(nDate))+' '+ALLTRIM(cNamaBulan)+' '+ALLTRIM(STR(nYear))
RETURN cTgl
ELSE 
RETURN {}
ENDIF

Simpan prosedur dengan nama getnmbulan, untuk mendeteksi kebenaran prosedurnya, panggil prosedur dari command window dengan perintah

?getnmbulan(DATE())

Karena saat saya tulis ini adalah tanggal 20/03/2014 maka hasilnya adalah,

20 MARET 2014

Gimana, Suka ?... Eits.. tunggu dulu, ada hal yang SANGAT PENTING yang harus diperhatikan dalam prosedur singkat tersebut.

PERHATIKAN:
charbln = "JANUARI   FEBRUARI  MARET     APRIL     MEI       JUNI      JULI      AGUSTUS   SEPTEMBER OKTOBER   NOPEMBER  DESEMBER"

Deretan nama bulan diatas, tidak sembarangan ditulis, tapi setiap nama bulan menempati 10 space (kotak yang disediakan), jika nama bulan kurang dari 10 karakter, untuk menuliskan bulan berikutnya harus dimulai pada kolom digit ke 11, hal ini dikarenakan untuk membaca bulan rangkaian karakter penyusun bulan digunakan formula di bawah ini,

cNamaBulan = ALLTRIM(SUBSTR(charbln,(nMonth*10)-9,10))

pasti semua ingat fungsi SUBSTRING kan ?.. variable nMonth adalah nomor bulan yang dimaksud dikalikan 10, karena digit yang disediakan untuk tiap bulan adalah 10 digit, dikurangi 9, adalah awal digit harus dibaca oleh fungsi SUBSTRING, sejauh 10 digit berikutnya.  Mudah kan ?

Mungkin sebagian yang lain menggunakan array untuk membuat prosedur yang sama, tapi kalau saya lebih suka ini, karena simple. Silahkan berkreasi..