Mari berhitung

May 3, 2007

A B C D E F G H I J K L M N O P Q R S T U V
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
W X Y Z
23 24 25 26

Mari kita hitung sama-sama:

H A R D W O R K ( kerjakeras )
8 1 18 4 23 15 18 11 = 98 % Only

K N O W L E D GE ( pengetahuan )
11 14 15 23 12 5 4 7 5 = 96 % Only

L O B B Y I N G ( pendekatan )
12 15 2 2 25 9 14 7 = 86 % Only

L U C K ( keberuntungan )
12 21 3 11 = 47 % Only

ternyata … semua nilai dari usaha-usaha kita di
atas nggak bisa mengalahkan yang satu ini:

A T T I T U D E ( sikap / tingkah laku )
1 20 20 9 20 21 4 5 = 100 %

Tapi ini rumus yang berlaku di negeri bule sono.
Kalau di Indonesia sih,itung-itungannya begini:

G I G I H (hardwork):
7 9 79 8 = 40 persen

I L M U (Knowledge)
9 12 13 21 = 55 persen

L O B I (Lobbying)
12 15 2 9 = 38 persen

M U J U R (Luck)
13 21 10 21 18 = 83 persen

S I K A P (Attitude)
19 9 11 1 16 = 46 persen

K O R U P S I
11 15 18 21 16 19 9 = 109 persen

Jadi kalo di Indonesia yang paling penting bukan
attitude, tapiiiii Korupsi
He…..he…..he


TITANIC………….

May 3, 2007

+ Versi asli, Titanic Version (versi setia sampe mati)
- You jump… I jump !

Nah kalo di IT, gimana ya???
+ Versi PM & Programmer
- You jump… tell me if it is ok… then I jump. (nebak siapa yo..??)

+ Versi programmer
- If (you.jump()) then (I.jump())

+ Versi System Analys
- If you jump then I jump that means if you don’t jump I might still jump.

+ Versi End User
- We will jump after you jump. (maksudnya loe pake dulu baru gue hi..hi…)

+ Versi BD
- Di-jump-in tidak error .. error tidak di-jump-in…!!!


Puisi Karyawan Stress… siapa ya??

May 3, 2007

Akulah karyawan paling rajin di dunia,
Berani berkorban nggak nonton Piala Champion,
Meski hati merana tapi tetap berdedikasi ,
Meski hari sabtu gini aku tetap berdasi , 

Akulah karyawan paling pantes dapet promosi,
Selalu paling depan ngisi daftar absensi ,
Di antara rekan akulah yang paling rajin ,
Temen yang nggak masuk pun aku absenin 

Jam 8 kurang udah masuk kantor ,
Tidak lupa membeli koran,
Di koran banyak berita koruptor ,
Kenapa gua nggak kebagian ? 

Sekarang hidup bener-bener nggak aman ,
Pake handphone di mobil digedor kapak merah ,
Itulah kenapa aku nggak beli mobil dan handphone , 

Tahun pertama ngantor masih tinggal di kost,
Tahun ketujuh ngantor udah pindah tempat kost,
Tahun pertama pergi-pulang nebeng tukang pos,
Di saat krismon pergi-pulang nebeng boss, 

Akulah karyawan yang paling setia,
Sedari peletakan batu pertama kantor, aku jadi kulinya,
Sampai kantor punya komputer, aku jadi helpdesk-nya,
Sampai kantor pakai .NET, aku jadi programmer-nya,
Sampai kantor diledakin , aku jadi otaknya… !!


Citrix: Drive Mapping Script – Sample

May 3, 2007

‘************************************************
‘ File:     MFDRIVES.vbs  
‘ Author:   Deddy Iswara
‘************************************************
Option Explicit

Dim WshShell
Dim objEnv
Dim Syntax
Dim ObjArgs
Dim InputBoxCancel
Dim InputBoxOK
Dim tmp
Dim WSHNetwork
Dim Share
Dim Drive

Const SERVER=”\\CLIENT\

Set objArgs  = WScript.Arguments
InputBoxCancel  = “User input canceled!”
InputBoxOK  = “You entered:” & vbCrLf
Const ForWriting = 2
Syntax = “Syntax:” & vbCrLf
Syntax = Syntax & “MFDRIVE [Drive Letter]” & vbCrLf
Syntax = Syntax & “MFDRIVE supports mapping local drivers C: – F:” & vbCrLf & vbCrLf
Syntax = Syntax & “Example:  MFDRIVE A” & vbCrLf
Syntax = Syntax & “Maps the \\CLIENT\A$ to A:” & vbCrLf & vbCrLf
Syntax = Syntax & “Example:  MFDRIVE C” & vbCrLf
Syntax = Syntax & “Maps the \\CLIENT\C$ to V:” & vbCrLf & vbCrLf

if ObjArgs.Count <= 0 then
   tmp = MsgBox(Syntax, 0, “Syntax”)
   wScript.quit 1
else
   Share = SERVER + ObjArgs(0) + “$”
   Select Case UCase(ObjArgs(0))
      Case “A”
         Drive = “A:”
      Case “B”
         Drive = “B:”
      Case “C”
         Drive = “V:”
      Case “D”
         Drive = “U:”
      Case “E”
         Drive = “S:”
      Case “F”
         Drive = “R:”
      Case Else
         tmp = MsgBox(“The Zeus utility only supports mapping drivers C: – F:.  The ” + Ucase(ObjArgs(0)) + “: drive is not supported.”, 0+16, “MFDRIVES Error”)
         Wscript.quit 1
   End Select
   ‘wscript.echo share
   ‘Wscript.echo Drive
   set WsHNetwork = CreateObject(“WScript.Network”)
   On Error Resume Next
   WshNetwork.MapNetworkDrive Drive, Share, FALSE
   ‘wscript.echo Err.Number
   Select Case Err.Number
     Case -2147024841
        tmp = MsgBox(“The ” + UCase(Drive) + ” does not exist on your local PC.”, 0+16, “MFDRIVES Error”)
        Wscript.Quit 1
     Case -2147024811
        tmp = MsgBox(“The ” + UCase(Drive) + ” is already in use.”, 0+16, “MFDRIVES Error”)
        Wscript.Quit 1
     ‘Case Else
         ‘tmp = MsgBox(“An unexpected error occured. ” + Err.Number, 0+16, “MFDRIVES Error”)
         ‘wscript.echo Err.number
         ‘Wscript.Quit 1
   End Select
   On Error goto 0

   tmp = MsgBox(“Your local ” + Ucase(ObjArgs(0)) + “: drive has been mapped to ” + UCase(Drive) + “.”, 0+64, “MFDRIVES Error”)

End If