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