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.

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.

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

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. 

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: Make new worksheet Named as Internal Password and save it as Macro Enable worksheet ( For office 2007) Open the worksheet you have created just now. Press Ctr + F11 to open VBA project window Go to Insert  > Select Module On the right hand side new page will open 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 Save the Module Close VBA project Window 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.

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.47MBUPDATE 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 appearPrepares 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.