Love this program.

2007-04-12T04:19:58Z

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

DriverPacks.net Forum - Love this program.

Love this program.