PC Installs

1. Cybersitter.com
   
2. RegCleaner
   
3. Divx
   
4. CrapCleaner
   
5. Java VM
   
6. Code Stuff Starter
   
7. SpywareBlaster
   
8. Spybot S/D
   
9. AVG
   
10. CodeStuff Starter
    
11. PowerArchiver
    
12. MusicMatch
    
13. iTunes
    
14. CutePDF
    
15. GUIPConfig
    
16. DirectX9.0 CPL
    
17. MSOfficeWebComponents
    
18. Avery Software
    
19. MS RDP Client
    
20. Word-Excel-PPoint Viewers
    
21. Flash
    
22. Shockwave
    
23. Acrobat Reader
    
24. MSN Messenger
    
25. AOL AIM
    
26. Picasa
    
27. Quicktime
    
28. eBlaster
    
29. W32Time Service -- time-b.nist.gov
    
30. SMTP Setup
    
31. FAVs "whatismyip.com"
    
32. IE7 Phishing Filter Patch
    
33. Asterisklogger
    
34. File Space Viewer
    
35. Belarc Advisor
    
36. All MS Patches/Updates
    

PC Reimage

1. Use green ghost boot disk (also in ext HD)
2. Enable c:\"CPU" share (copy ghost file here)
3. Boot CPU w/boot disk
4. Logon to boot disk w/default user

Find Middle Point

Dim strTotalLineLength, intTotalLineLength, strRcptSentence
runAll

'******************************************************************************
Sub runAll

    promptLineLength
    promptRcptSentence
    MsgBox(findStartPoint(intTotalLineLength,strRcptSentence))

End Sub
'*******************************************************************

'******************************************************************************
Sub promptLineLength

    strTotalLineLength = InputBox("Enter Total Line Length")
    checkMeNumeric(strTotalLineLength)
    checkMeEmpty(strTotalLineLength)
    convertStringToInteger(strTotalLineLength)

End Sub
'*******************************************************************

'******************************************************************************
Sub promptRcptSentence

    strRcptSentence = InputBox("Enter Your Receipt Sentence")
    checkMeEmpty(strRcptSentence)

End Sub
'*******************************************************************

'******************************************************************************
Sub convertStringToInteger(linelength)

    If Len(linelength) > 7 Then
       MsgBox "Your Number is too Large!"
       promptLineLength
    Exit Sub
    Else
       intTotalLineLength = CInt(linelength)
       If intTotalLineLength > 1000 Or intTotalLineLength < 0 Then
       quitscript
    End If
    End If

End Sub
'******************************************************************* 

'******************************************************************************
Function findStartPoint(linelength,rcptsentence)

    intLengthRcptSentence = Len(rcptsentence)
    intMiddlePoint = Int(linelength / 2)
    intBackspaceBy = Int(intLengthRcptSentence / 2)           
    intStartWritingHere = (intMiddlePoint - intBackspaceBy)
    
    findStartPoint = intStartWritingHere _
       & " <----- Start Writing your sentence here"

End Function
'*******************************************************************

'******************************************************************************
Sub checkMeEmpty(x)

    If x = "" Then
       quitscript
    End If

End Sub
'*******************************************************************

'******************************************************************************
Sub checkMeNumeric(x)

    If Not IsNumeric(x) Then
       MsgBox "Enter Numbers Only!"
       promptLineLength
    End If

End Sub
'*******************************************************************

'******************************************************************************
Sub quitscript

    MsgBox "Quitting Now"
    Wscript.Quit

End Sub
'*******************************************************************

Win2k SP4 Download link...

http://www.microsoft.com/windows2000/downloads/servicepacks/sp4/default.asp