$100K Earning Worker Lived in Company Shed for Three Years People keep saying a million bucks just ain’t what it used to be. Well, obviously that means that earning $100K a year isn’t quite what it used to be either - especially when you decide living in a house or apartment costs just too much money while living in the company shed would make […]
People keep saying a million bucks just ain’t what it used to be. Well, obviously that means that earning $100K a year isn’t quite what it used to be either - especially when you decide living in a house or apartment costs just too much money while living in the company shed would make more sense.
Sure, the article says the shed had a couch, microwave, and refrigerator, but I see no mention of a television - so that rules me out. Actually, they also mention that the man is now living with his wife, which begs the question: what the heck was the wife doing this whole time? Great way to say I love you - rather than staying at home with your wife, you choose a shed on company property.
File that under shed timeshares are selling like hotcakes.
Tags: paint shed, New York
Source: www.officehumorblog.comMy 2+6th B It was my 26th , but arithmetically, it was my 8th and I enjoyed it like a 8 year kid!
I got gifts like…
- Bow and Arrow(Dhanush Baan)
- Drawing Book
- Crayons
- Spiderman wala folder
- Sipper
- Micky Mouse Pen Stand
- Happy BDay Pencil
- lot’s of stickers
- floor puzzle,
- Hair Bands and, last but not the least!
- ThunderBird (gifted by myself!)
This was one of the best day of my life, when my friends returned back my childhood and I got my macho bike “ThunderBird”!
Though this was my first BDay with out my family, but I’ve got whole new world with family of families, and I’m a proud member of it! I’ve got a new dimension of life, and I’ve became a better person in course!
I’m evolving and enjoying the course of evolution!!
Thanks a ton guys!
U people rock 
Happy BDay to me
Source: geekswithblogs.netMore Prankers Than Prankees While about 80% of you said that you’ve pranked a coworker, only 55% have actually being on the receiving end of a work prank. Have you ever been pranked by a coworker? Yes (55%, 24 Votes) No (45%, 20 Votes) I did expect the number of “prankees” to be a bit less than the 80% found for prankers, but […]
While about 80% of you said that you’ve pranked a coworker, only 55% have actually being on the receiving end of a work prank.
Have you ever been pranked by a coworker?
- Yes (55%, 24 Votes)
- No (45%, 20 Votes)
I did expect the number of “prankees” to be a bit less than the 80% found for prankers, but apparently the difference is actually quite a lot. It must be nice to be able to pull off an office prank without retaliation - though you’re victims may all be plotting their revenge at this very moment!
Source: www.officehumorblog.comFew useful Installation Script(VBScript) functions After so long I’m posting something, lately I was working on installation script of our project, and came across few good things. I’m sharing few of them here:
‘ *****************************************************************************
‘Global variables
Dim objFSO, objLogFile, WsShell
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set WsShell = CreateObject(“WScript.Shell”)
‘Getting Program Files path
Const PROGRAM_FILES = &H26&
Dim objShell, objFolder, objFolderItem, strProgramFilesPath
Set objShell = CreateObject(“Shell.Application”)
Set objFolder = objShell.Namespace(PROGRAM_FILES)
Set objFolderItem = objFolder.Self
strProgramFilesPath = objFolderItem.Path
WScript.Echo strProgramFilesPath
‘For getting Documents and Settings\<UserName>
Dim strUserProfileFolder
strUserProfileFolder = WsShell.Environment(“PROCESS”)(“UserProfile”)
WScript.Echo strUserProfileFolder
‘Getting Desktop folder
Dim objDesktop
objDesktop = WsShell.SpecialFolders(“Desktop”)
WScript.Echo objDesktop
‘Rename File
Function RenameFile(oldName, newName)
If(objFSO.FileExists(oldName)) Then
objLogFile.WriteLine( oldName & “File found and renaming/moving it to “ & newName)
DeleteFile newName
objFSO.MoveFile oldName, newName
objLogFile.WriteLine( oldName & “File renamed/moved successfully “ & newName)
Else
objLogFile.WriteLine( oldName & ” File does not exist.”)
End If
End Function
‘Rename Folder
Function RenameFolder(oldName, newName)
If(objFSO.FolderExists(oldName)) Then
If(objFSO.FolderExists(newName)) Then
objFSO.DeleteFolder newName, True
End If
objFSO.MoveFolder oldName, newName
End If
End Function
‘Delete File
Function DeleteFile(filePath)
If objFSO.FileExists(filePath) Then
objFSO.DeleteFile filePath, True
objLogFile.WriteLine(“File : “ + filePath + ” deleted successfully”)
End If
End Function
‘Calling an Excel Macro
Function CallExcelMacro(filePath, macroName)
Dim objExcel
Dim objWorkbook
Set objExcel = CreateObject(“Excel.Application”)
objExcel.Visible = False
If objFSO.FileExists(filePath) Then
objExcel.EnableEvents = False
set objWorkbook = objExcel.Workbooks.Open (filePath)
objExcel.EnableEvents = True
objLogFile.WriteLine(“Calling Macro :: “ & macroName)
objExcel.Run “‘” & objFSO.GetFileName(filePath) & “‘!” & macroName
objWorkbook.Close True
Else
objLogFile.WriteLine( filePath & ” File does not exist.”)
End If
objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing
End Function
‘Registering .NET Components
Function RegisterComponents(assemblyPath, assemblyName)
Dim winDir
Dim param,program
Dim assemblyFullPath
assemblyFullPath = assemblyPath + “\”+ assemblyName
winDir = objFSO.GetSpecialFolder(0)
program = winDir + “\Microsoft.NET\Framework\v2.0.50727\RegAsm.exe “
If objFSO.FileExists(program) Then
objLogFile.WriteLine( “Registering… “ + assemblyName)
‘ Register/UnRegiter Filename
param = ” /unregister “ + chr(34) + assemblyFullPath + chr(34)
WsShell.Run program + param , 0, True
param = ” /tlb “ + chr(34) + assemblyFullPath + chr(34) + ” /codebase”
WsShell.Run program + param , 0, True
objLogFile.WriteLine( “Successfully Registered… “ + assemblyName)
Else
objLogFile.WriteLine( “Failed to register assembly, as this machine does not have .NET Framework 2.0 runtime installed!”)
End If
End Function
‘Unregistering .NET Components
Function UnRegisterComponents(assemblyPath, assemblyName)
Dim winDir
Dim param,program
Dim assemblyFullPath
assemblyFullPath = assemblyPath + “\”+ assemblyName
winDir = objFSO.GetSpecialFolder(0)
program = winDir + “\Microsoft.NET\Framework\v2.0.50727\RegAsm.exe “
If objFSO.FileExists(program) Then
objLogFile.WriteLine( “UnRegistering… “ + assemblyName)
‘ Register/UnRegiter Filename
param = ” /unregister “ + chr(34) + assemblyFullPath + chr(34)
WsShell.Run program + param , 0 , True
objLogFile.WriteLine( “Successfully UnRegistered… “ + assemblyName)
Else
objLogFile.WriteLine( “Failed to unregister assembly, as this machine does not have .NET Framework 2.0 runtime installed!”)
End If
End Function
‘Copy Folder
Function CopyFolderToDestinationFolder(strSourcePath, strDestinationPath, strFolderToCopy)
Dim strTempSource
Dim strTempDestination
strTempSource = strSourcePath & strFolderToCopy
strTempDestination = strDestinationPath & strFolderToCopy
If Not (objFSO.FolderExists(strTempDestination))Then
CreateFolder(strTempDestination)
End If
If objFSO.FolderExists(strTempSource) Then
objLogFile.WriteLine( “Copy “ & strFolderToCopy & ” Folder : Start”)
If objFSO.FolderExists(strTempDestination) Then
objFSO.DeleteFolder strTempDestination, True
End If
objFSO.CopyFolder strTempSource, strTempDestination
objLogFile.WriteLine( “Copy “ & strFolderToCopy & ” Folder : End”)
Else
objLogFile.WriteLine( strTempSource & “Folder does not exist.”)
End If
End Function
‘Copy File
Function CopyFileToDestinationFolder(strSourcePath, strDestinationPath, strFileName)
If objFSO.FileExists(strSourcePath & strFileName) Then
objFSO.CopyFile strSourcePath & strFileName, strDestinationPath, True
objLogFile.WriteLine( “File : “ & strSourcePath & strFileName & ” copied successfully to “ & strDestinationFolder & strFileName)
Else
objLogFile.WriteLine( strDestinationFolder & strFileName & ” does not exist.”)
End If
End Function
‘Clearing Read only attribute of a file
Function ClearReadOnlyAttribute(filePath)
Dim file
If objFSO.FileExists(filePath) Then
Set file = objFSO.GetFile(filePath)
If file.Attributes Then
file.Attributes = 0
objLogFile.WriteLine(“File : “ + filePath + ” attributes cleared successfully!”)
End If
Else
objLogFile.WriteLine(“File : “ + filePath + ” does not exists”)
End If
End Function
‘Create Desktop Shortcut
Function CreateDesktopShortcut(fullFilePath, shortcutName)
‘ ———————————————————-’
Dim objDesktop, objLink
Dim strIconPath
‘ ————————————————–
‘ Here are the variables that to change if you are making a ‘real’ script
’strIconPath = “%SystemRoot%\system32\SHELL32.dll,5″
objDesktop = WsShell.SpecialFolders(“Desktop”)
Set objLink = WsShell.CreateShortcut(objDesktop & “\” & shortcutName & “.lnk”)
‘ —————————————————
‘ Section which adds the shortcut’s key properties
objLink.Description = shortcutName
‘objLink.HotKey = “CTRL+SHIFT+X”
‘objLink.IconLocation = strIconPath
objLink.TargetPath = fullFilePath
objLink.WindowStyle = 3
‘objLink.WorkingDirectory = filePath
objLink.Save
‘ End of creating a desktop shortcut
End Function
‘ *****************************************************************************
Happy Coding 
Source: geekswithblogs.net http://www.wowmails.com
