Topic: Love this program.

I use this program almost a daily basis and I am trying to raise some funds for donation for it. I thought that since I haven't raised any money yet I would donate this instead. I know it is simple but anything to help out a great cause.

It is a progam I created with AutoIT3. It expands on the method 1 idea a little by adding Devpath.exe and the "D" folder created by method 1 to an autorun cd. It also checks to see if .Net framwork 1.1 is installed. If it isn't it will install it silently.

I have used this almost everyday with about 99% effectiveness.

I wasn't sure about posting the file but here is the source code. If it is okay, I can post a link to download this.

This only tested on Win XP English btw.

;~ Written by Rance "Rankor" Risley
;~ Created with AutoIT3
;~ Created on 4/07/07
;~ To be used at your oun risk


; Set some vars
Global Const $ProgramName = 'Devpath.exe'
Global Const $Directory = @ScriptDir & 'D'
Global $Program = @ScriptDir & $ProgramName & ' ' & $Directory
; Detects if .Net Framework 1.1 is installed
Global $varFrame11 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322", "Install")

;Detects OS version
If @OSVersion = "WIN_XP" Then
    ; If .Net Framwwork is not installed prompt to install or not.
    if    $varFrame11 = "-1" Then
        $msg = MsgBox(52,"WARNING","It does not look like .Net Framework 1.1 is installed. This can cause problems with some drivers. Install it?")
        Select
        Case $msg = 6
            ; Install .Net Framework 1.1 quietly
            TrayTip("","Extracting .Net Framework 1.1","30")
            Run("1_0dotnetframework.exe /q:a /c /t:" & @TempDir & "\dotnet1", "")
            ProcessWaitClose("1_0dotnetframework.exe")
            TrayTip("","Installing .Net Framework 1.1","30")
            $PID = Run(@TempDir & "\dotnet1\install.exe /q")
            ProcessWaitClose($PID)
        Case $msg = 7
            ;Do not install it and prompt user.
            MsgBox(48, "WARNING", "You have been warned.")
        EndSelect
    EndIf
    ; Run DevPath.exe and let user know that it is ready.
    run($Program)
    $msg = MsgBox(68, $ProgramName, $ProgramName & " has been directed to " & $Directory & " and is ready to go. Do you need instructions?")
    Select ; If user wants to read some instructions on how to use this display the readme.txt
    Case $msg = 6
        run("notepad.exe Readme.txt")
    Case $msg = 7
           MsgBox(64,"","If you need information please read " & @ScriptDir &"Readme.txt")
    EndSelect
Else
    ; Prevents it from being ran on anything but an XP system
    MsgBox(0,"HEY YOU", "This can only be ran on an XP System.")
    Exit
Endif

Exit