Tuesday, March 20, 2012

Get File & Folder Information

I wrote a macro to get file and folder information.
This will give you complete list of all files and folder at certain location (wherever you want)
Click Here to download Excel


Once excel get downloaded, click get Info button and get complete list in one excel with complete folder information.

Saturday, March 17, 2012

How to Make Your XP base Computer as FTP Server

FTP server is used to transfer heavy files within each other. It can be done by installing FTP services on you machine and let other know your IP address and then they can share files with you using FTP server.

This Requires only one machine to be act as FTP server.

Below are the steps to create you own FTP server.


  1. First, you should start by retrieving your Windows XP CD.
  2. Next, click the Start button and go to the Control Panel.
  3. After that, select "Add/Remove Windows Components."
  4. Select "Internet Information Services" under "Windows Components."
  5. Click "details" and select the "File Transfer Protocol (FTP)" service. (Remember that this will also automatically select "Common Files" and "Internet Information Services Snap-In.")
  6. Click OK and follow the instructions for the install Wizard (or you can just push next if you don't feel like reading). Be prepared with your Windows XP CD, because it might prompt you for it if you haven't already installed it. Once it is done, you might have to restart your computer after this.
  7. After that, all you need to do is just paste the files you want to be public into "C:\INETPUB\FTPROOT." Note that by default, these files are read-only and public. Public meaning that anyone who knows the IP address may download copies from it.
  8. There's more to go! Now, you need to configure your router's firewall to let FTP traffic through. This can be done through your router's administration menu. Note that this will vary depending on your router.
  9. After letting your router firewall let FTP connections in, you will have to configure your regular firewall to let FTP connections in through a certain port.
  10. Finally, after done with everything, you may access your FTP site through your browser. All you need to do is type ftp://xxx.xxx.xxx.xxx/ in the URL where "xxx.xxx.xxx.xxx" is the WAN address of your computer.

Tuesday, February 21, 2012

How To make MOZILLA faster Browser

THIS IS A VERY SIMPLE TRICK. NO SOFTWARE REQUIRED.


1. Type "about:config" into the address bar and hit enter. Scroll down and look for the following entries:

2. Alter the entries as follows:

Set "network.http.pipelining" to "true"
Set "network.http.proxy.pipelining" to "true"

set "network.http.pipelining.maxrequests" to some number like 30. This means it will make 30 requests at once.

3. Lastly right-click anywhere and select New-> Integer. Name it "nglayout.initialpaint.delay" and set its value to "0". This value is the amount of time the browser waits before it acts on information it recieves.

Then only action to be take after all is to restart your Mozilla firefox and then you can feel the difference

Wednesday, August 17, 2011

LokPal Bill By Anna Hazaare


Friends,

To give our Hartley support to Anna hazaare we should understand that what is Lokpal Bill

Lokpal Bill: The Lokpal will be a three-member body with a chairperson who is or was a chief justice or Supreme Court judge, and two members who are or have been high courts judges or chief justices.
Implementation of the Lokpal bill will hopefully reduce corruption in India.
The basic idea of the Lokpal is borrowed from the office of the ombudsman in other countries.
It provides for filing complaints of corruption against the prime minister , other ministers and members of parliament with the ombudsman.
Anyone, except for a public servant , can file a complaint and the Lokpal has to complete the inquiry within six months.


Please click on the link given below to read first Draft of Lokpal Bill.

https://docs.google.com/viewer?a=v&pid=explorer&chrome=true&srcid=1ogjnXtZfzW2vkj5in1PiQDQjPBb633cR0MEqzGvXIyH9beNUqvwxl8m9AHcC&hl=en_US

Please Please read this document and give you support to Anna Hazaare by Giving comments or liking the Blog. This will make block Popular and all of our friends will came to know about Lokpal Bill. 

Tuesday, August 16, 2011

To Get all Internal Passwords of Protected Excel

All,

It Happen some times that we may forgot the password of the excel. we realize that when we about to perform some changes in the excel sheet and it will pop up with the message that this workbook is protected.

I have something interested to remove all passwords from the Excel workbook. This will work only when you can open the workbook.
To remove all password from the workbook follow the steps give below:

  1. Make new worksheet Named as Internal Password and save it as Macro Enable worksheet ( For office 2007)
  2. Open the worksheet you have created just now.
  3. Press Ctr + F11 to open VBA project window
  4. Go to Insert  > Select Module
  5. On the right hand side new page will open
  6. Copy below give Macro in the page
Option Explicit
Public Sub InternalPasswords()
    ' Breaks worksheet and workbook structure passwords.
    'Ankur Mishra
http://allhelpavailable.blogspot.com
   
    Const DBLSPACE As String = vbNewLine & vbNewLine
    Const AUTHORS As String = DBLSPACE & vbNewLine & _
            " Code Prepared only for Help Not for Hacking " & _
            " By Ankur Mishra"
    Const HEADER As String = "AllInternalPasswords User Message"
    Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
    Const REPBACK As String = DBLSPACE & "Please report failure " & _
            "to the microsoft.public.excel.programming newsgroup."
    Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
            "now be free of all password protection, so make sure you:" & _
            DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
            DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
            DBLSPACE & "Also, remember that the password was " & _
            "put there for a reason. Don't stuff up crucial formulas " & _
            "or data." & DBLSPACE & "Access and use of some data " & _
            "may be an offense. If in doubt, don't."
    Const MSGNOPWORDS1 As String = "There were no passwords on " & _
            "sheets, or workbook structure or windows." & AUTHORS & VERSION
    Const MSGNOPWORDS2 As String = "There was no protection to " & _
            "workbook structure or windows." & DBLSPACE & _
            "Proceeding to unprotect sheets." & AUTHORS & VERSION
    Const MSGTAKETIME As String = "After pressing OK button this " & _
            "will take some time." & DBLSPACE & "Amount of time " & _
            "depends on how many different passwords, the " & _
            "passwords, and your computer's specification." & DBLSPACE & _
            "Just be patient! Make me a coffee!" & AUTHORS & VERSION
    Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
            "Structure or Windows Password set." & DBLSPACE & _
            "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
            "Note it down for potential future use in other workbooks by " & _
            "the same person who set this password." & DBLSPACE & _
            "Now to check and clear other passwords." & AUTHORS & VERSION
    Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
            "password set." & DBLSPACE & "The password found was: " & _
            DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
            "future use in other workbooks by same person who " & _
            "set this password." & DBLSPACE & "Now to check and clear " & _
            "other passwords." & AUTHORS & VERSION
    Const MSGONLYONE As String = "Only structure / windows " & _
             "protected with the password that was just found." & _
             ALLCLEAR & AUTHORS & VERSION & REPBACK
    Dim w1 As Worksheet, w2 As Worksheet
    Dim i As Integer, j As Integer, k As Integer, l As Integer
    Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
    Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
    Dim PWord1 As String
    Dim ShTag As Boolean, WinTag As Boolean
   
    Application.ScreenUpdating = False
    With ActiveWorkbook
        WinTag = .ProtectStructure Or .ProtectWindows
    End With
    ShTag = False
    For Each w1 In Worksheets
            ShTag = ShTag Or w1.ProtectContents
    Next w1
    If Not ShTag And Not WinTag Then
        MsgBox MSGNOPWORDS1, vbInformation, HEADER
        Exit Sub
    End If
    MsgBox MSGTAKETIME, vbInformation, HEADER
    If Not WinTag Then
        MsgBox MSGNOPWORDS2, vbInformation, HEADER
    Else
      On Error Resume Next
      Do      'dummy do loop
        For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
        For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
        For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
        For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
        With ActiveWorkbook
          .Unprotect Chr(i) & Chr(j) & Chr(k) & _
             Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
             Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
          If .ProtectStructure = False And _
          .ProtectWindows = False Then
              PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
                Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
                Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
              MsgBox Application.Substitute(MSGPWORDFOUND1, _
                    "$$", PWord1), vbInformation, HEADER
              Exit Do  'Bypass all for...nexts
          End If
        End With
        Next: Next: Next: Next: Next: Next
        Next: Next: Next: Next: Next: Next
      Loop Until True
      On Error GoTo 0
    End If
    If WinTag And Not ShTag Then
      MsgBox MSGONLYONE, vbInformation, HEADER
      Exit Sub
    End If
    On Error Resume Next
    For Each w1 In Worksheets
      'Attempt clearance with PWord1
      w1.Unprotect PWord1
    Next w1
    On Error GoTo 0
    ShTag = False
    For Each w1 In Worksheets
      'Checks for all clear ShTag triggered to 1 if not.
      ShTag = ShTag Or w1.ProtectContents
    Next w1
    If ShTag Then
        For Each w1 In Worksheets
          With w1
            If .ProtectContents Then
              On Error Resume Next
              Do      'Dummy do loop
                For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
                For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
                For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
                For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
                .Unprotect Chr(i) & Chr(j) & Chr(k) & _
                  Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
                  Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
                If Not .ProtectContents Then
                  PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
                    Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
                    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
                  MsgBox Application.Substitute(MSGPWORDFOUND2, _
                        "$$", PWord1), vbInformation, HEADER
                  'leverage finding Pword by trying on other sheets
                  For Each w2 In Worksheets
                    w2.Unprotect PWord1
                  Next w2
                  Exit Do  'Bypass all for...nexts
                End If
                Next: Next: Next: Next: Next: Next
                Next: Next: Next: Next: Next: Next
              Loop Until True
              On Error GoTo 0
            End If
          End With
        Next w1
    End If
    MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub


  1. Save the Module
  2. Close VBA project Window
  3. Save workbook.
Now the workbook is ready to remove all password from the Excel. To run this Macro:
1.      Open the Workbook you have just created (Internal Password.xlsm)
2.      Open the workbook for which you want to get all internal password.
3.      Click Ctr + F8
4.      window will appear having option to run Macro
5.      Select Macro and Click Run
This will take some time depends on the length of Password and your computer respond speed.


Monday, August 15, 2011

Guide To Install XP Using Flash Drive

If you want to install Windows XP, but your notebook (or PC) has no CDROM, you should install Windows XP using USB Flash disk/Flash Drive/Thumb drive...
just follow this guide :
Once all the step will be completed you can use your Flash drive as an installable for XP.

Buy an USB Flash Drive (at least 2GB).
When you do this tutorial, please make sure your computer/laptop/PC has a CD-ROM (or DVD).
Step 2:
Download this software pack (Komku-SP-usb.exe - Download) 1.47MB
UPDATE 1 :
Anonymous said…
your download at mediafire keeps timing out, any other hosts available?
Mirror Depositfiles
Mirror Rapidshare
Mirror Easy-Share
Mirror Megaupload

this software pack contains 3 application :

-BootSect.exe (Boot Sector Manipulation Tool)
-PeToUSB (http://GoCoding.Com)
-usb_prep8 (Prepares Windows XP Setup LocalSource for Copy to USB-Drive)

Step 3:
Double click Komku-SP-usb.exe

a window will appear... and click Install

Step 4:
Insert your USB Flash Drive.
When I made this tutorial, I was using 4GB Transcend USB FlashDrive...

Locate folder C:\Komku\PeToUSB\
double click PeToUSB.exe

a window will appear like this...
Destination Drive : select USB Removable
check on Enable Disk Format
check on Quick Format
check on Enable LBA (FAT 16x)
Drive Label : XP-KOMKU (or whatever you want)
then click Start

Click Yes to continue....

"You are about to repartition and format a disk. Disk: .... All existing volumes and data on that disk will be lost. Are You Sure You Want To Continue?"
click Yes

Wait a few seconds...

Click OK, and you can close PeToUSB window.

Step 5:
Open Command Prompt ...
Click Start > Run > type cmd > click OK

On Command Prompt window, go to directory C:\Komku\bootsect\how to do this?
first type this cd\ and press Enter

then type cd komku\bootsect and press Enter

the result...

Don't close Command Prompt window, and go to step 6...

Step 6:
on command prompt window, type bootsect /nt52 H:

H: is drive letter for my USB Flash Drive, it may be different with yours...
and press Enter

the result... "Successfully updated filesystem bootcode. Bootcode was succesfully updated on all targeted volumes."

Step 7:now type this cd.. and press Enter
then type cd usb_prep8 and press Enter

type usb_prep8 again... and pres Enter

Step 8:Your command prompt window will look like this


Press any key to continue...
usb_prep8 welcome screen will appear
Prepares Windows XP LocalSource for Copy to USB-Drive:

0) Change Type of USB-Drive, currently [USB-stick]
1) Change XP Setup Source Path, currently []
2) Change Virtual TempDrive, currently [T:]
3) Change Target USB-Drive Letter, currently []
4) Make New Tempimage with XP LocalSource and Copy to USB-Drive
5) Use Existing Tempimage with XP LocalSource and Copy to USB-Drive
F) Change Log File - Simple OR Extended, currently [Simple]
Q) Quit
Enter your choice:_

Now, insert your original Windows XP CD to your CD/DVD ROM
and back to Command Prompt window
type 1 then press Enter...
"Browse for Folder" window will appear, select your CD/DVD drive and click OK

the result... "XP Setup Source Path" changed to G:\ (Yours may be different)

now for point 2, if letter T is currently assigned to a drive in your computer, you must change it.... if not, leave it as it is
how to change it?
Type 2 and press Enter...

"Enter Available Virtual Drive Letter"
for example you doesn't have drive Sso you type S and press Enter

back to usb_prep8 welcome screen...
now type 3 and press Enter...

"Please give Target USB-Drive Letter e.g type U" Enter Target USB-Drive Letter:
because my Flash drive letter is Hso, type H and press Enter...

after back to usb_prep8 welcome screen...
now type 4 and press Enter to make new temporary image with XP LocalSource and copy it to USB Flash Drive
please wait a few seconds..

"WARNING, ALL DATA ON NON-REMOVABLE DISK
DRIVE T: WILL BE LOST! Proceed with Format (Y/N)?"
type Y and press Enter
please wait....
when format virtual disk complete, press any key to continue...

please wait... making of LocalSource folder is in progress...

when "Making of LocalSource folder $WIN_NT$.~LS Ready"
Press any key to continue...
"Copy TempDrive Files to USB-Drive in about 15 minutes = Yes OR STOP = End Program = No"
Click Yes, and wait...

"Would you like USB-stick to be preferred Boot Drive U: bla... bla..."
Click Yes

"Would you like to unmount the Virtual Drive?"
Click Yes, wait a few seconds, and press any key....
press any key again to close usb_prep8...

Now, your USB Flash Drive is ready...

step 9:
Now, insert your USB Flash Drive/Flash Disk/Thumb Drive to your notebook go to BIOS and make USB HDD (or USB ZIP in some other machine) as primary boot device....

then boot form your USB Flash Drive....
and select "TXT Mode Setup Windows XP, Never unplug USB-Drive Until After Logon"
After Hard Disk detected, delete all partition, create single partition... and install Windows XP on that partition...
and wait...

Once text mode setup is complete, computer will restart....
this time select "GUI Mode setup Windows XP, Continue Setup + Start XP"

Continue Windows XP setup.... and done!
Windows XP Installed....

This Guide can be used on any type of machine supporting USB port.
Please give your Valuable comments once you used this guide.