Tuesday, April 28, 2015

ఇంక చాలు ఆపేద్దాం ...

తెలియనిదేదో వెతుకుతూ
అదీ ఇదీ చదువుతావు
నిన్ను నువ్వు చదువకుంటే
ఎన్ని చదివి ఏం లాభం ?

మనసు మండపంలో
అడుగుపెట్టకున్న
మసీదులు మందిరాలు
చూపలేవు ఏ సత్యం !

నిత్యం పోరాటమే
మతం కోసం మోక్షం కోసం
అహం పై ఆ యుద్ధం
అరంభించేదెన్నటికో ??

దిక్కులు వెలిగించే
మదిలో వెలుగులు మరిచిపోయి
చిమ్మ చీకటిలో చుక్కలు
అందుకొనాలని పరుగులు తీసేవు

ఇంక చాలు ఆపేద్దాం
ఎక్కడెక్కడని వెతకడం
ఇక్కడే ఉన్న నిన్ను నువ్వు
తెలుసుకునే సంగతేదో చూద్దాం! 

ఆయ్యినది తలువకు
రేపటిని బ్రమించకు
అతిగా ఆలోచించకు
ప్రతీదీ పరిక్షించకు
అన్నిటిని సరిచెయ్యాలని చూడకు
కాస్త ఊపిరి తీసుకో
ఉక్కిరిబిక్కిరి అవుతున్నావ్
కాస్త బతకడం నేర్చుకో !
-బుల్లే షా అనువాదం



Friday, January 9, 2015

Code to kill all the other wscripts running on the system Except current wscript || Vb Script || shell

    'Create windows management object
    Dim objWinMgmts
    Dim process_List
    Set objWinMgmts = GetObject("WinMgmts:Root\Cimv2")
    'Get the list of all the wscripts running in the system
    Set process_List = objWinMgmts.ExecQuery("Select * From Win32_Process where name='wscript.exe'")
    'Get the process id of the current executing wscript ('this' object)
    Dim cpid, cpst
    cpid = 0
    cpst = FormatDateTime("01/01/1900")
    For Each objProcess In process_List
        If objProcess.CreationDate > cpst Then
            cpid = objProcess.ProcessId
            cpst = objProcess.CreationDate
        End If
    Next
    'Except current wscript, kill all the other wscripts running on the system
    For Each objProcess In colProcess
        If cpid <> objProcess.ProcessId Then
            objProcess.Terminate
        End If
    Next
    Set process_List = Nothing
    Set objWinMgmts = Nothing