Sign in to follow this  
Followers 0
kpu

Getting error in my script

7 posts in this topic

#1 ·  Posted (edited)

Below is the code and the error message.

When I change $path to = @TempDir & "\temp\" I get the following error on the second time around. The file Classes.nfo is basically a text file with regkeys taht I'm exporting. If I change $path to just "" so no change, it works fine when I run it from the same directory classes.nfo is in.

Error:

$line = FileReadLine($line)

Error: Invalid file handle used.

DirCreate(@TempDir & "\temp")
$path = @TempDir & "\temp\"
_exportClassesRegKeys()

Func _ExportClassesRegKeys()
    $file = FileOpen($path & "classes.nfo", 0)
    If $file = -1 Then
        MsgBox(0, "Error: Classes", "Unable to open "& $path & $file)
        Exit
    EndIf
    $i = 0
    While 1
        $i = $i + 1
        $exportfile = $path & "export" & $i & ".reg"
        $line = FileReadLine($file)
        If @error = -1 Then ExitLoop
        $cmd_export = "reg export " & $hkcu & $rKey1 & $line & " " & $exportfile
        RunWait(@ComSpec & " /c " & $cmd_export, "", @SW_HIDE)
    WEnd
EndFunc  ;==>_ExportClasses

Anyone have any ideas?

Edited by kpu

Share this post


Link to post
Share on other sites



When I change $path to = @TempDir & "\temp\" I get the following error on the second time around.

What do you mean "on the second time around"?

Dale


Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Share this post


Link to post
Share on other sites

What do you mean "on the second time around"?

Dale

On the second loop in the "While 1" It reads the file line in the classes.nfo and exports regkeys until there are no more lines. So on the second loop it errors. It only export 1 file "export1.reg" then errors out and dies.

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Try this, I changed the line where you set $cmd_export nfor my testing. You'll probably have to play with that again. Other than that this should work for you, I was able to export three keys, no errors.

Classes.nfo File-

.323

.386

.3g2

DirCreate(@TempDir & "\temp")
$path = @TempDir & "\temp\"
_exportClassesRegKeys()

Func _ExportClassesRegKeys()
    $file = FileOpen($path & "classes.nfo", 0)
    If $file = -1 Then
        MsgBox(0, "Error Classes", "Unable to open " & $path & "classes.nfo" & @CR & "Return Code: " & $file)
        Exit
    EndIf
    $i = 0
    While 1
        $i = $i + 1
        $exportfile = $path & "export" & $i & ".reg"
        $line = FileReadLine($file, $i)
        If @error = -1 Then ExitLoop
        $cmd_export = "reg export HKCR\" & $line & " " & $exportfile
        RunWait(@ComSpec & ' /C "' & $cmd_export & '"', @SystemDir , @SW_HIDE)
    WEnd
EndFunc
Edited by ken82m

My Contributions _StringMultiReplace PC Builders Console - Secure PDF Creator - Cisco VPN Installer MS DNS Server Backup Script - MS DHCP Backup Script IT Admin Console - Toggle Admin Mode - MyMovies-Add Discs Script - IT Help Desk and System Information Tool - Set On Lid Close Power Option - Streaming Media Server & Website "I believe that when we leave a place, part of it goes with us and part of us remains... Go anywhere, when it is quiet, and just listen.. After a while, you will hear the echoes of all our conversations, every thought and word we've exchanged.... Long after we are gone our voices will linger in these walls for as long as this place remains."

Share this post


Link to post
Share on other sites

Try this, I changed the line where you set $cmd_export nfor my testing. You'll probably have to play with that again. Other than that this should work for you, I was able to export three keys, no errors.

Classes.nfo File-

.323

.386

.3g2

DirCreate(@TempDir & "\temp")
$path = @TempDir & "\temp\"
_exportClassesRegKeys()

Func _ExportClassesRegKeys()
    $file = FileOpen($path & "classes.nfo", 0)
    If $file = -1 Then
        MsgBox(0, "Error Classes", "Unable to open " & $path & "classes.nfo" & @CR & "Return Code: " & $file)
        Exit
    EndIf
    $i = 0
    While 1
        $i = $i + 1
        $exportfile = $path & "export" & $i & ".reg"
        $line = FileReadLine($file, $i)
        If @error = -1 Then ExitLoop
        $cmd_export = "reg export HKCR\" & $line & " " & $exportfile
        RunWait(@ComSpec & ' /C "' & $cmd_export & '"', @SystemDir , @SW_HIDE)
    WEnd
EndFunc
might be a good idea to toss in a FileClose($file)

1100111 00001011101111 00011101101111 00010111100100 00001111110100 00110111110010 00101101111001 0011100i didn't make up this form of encryption, but i like it.credit to the lvl 6 challenge on arcanum.co.nz

Share this post


Link to post
Share on other sites

might be a good idea to toss in a FileClose($file)

Thanks.. Forgot about this one

I found it! It was in another part of my code. For some reason it would error on the line I mentioned, but it was actually because of a way I was closing another File...

Thanks for your help!

Share this post


Link to post
Share on other sites

Thanks.. Forgot about this one

I found it! It was in another part of my code. For some reason it would error on the line I mentioned, but it was actually because of a way I was closing another File...

Thanks for your help!

cool. glad you got it working...

1100111 00001011101111 00011101101111 00010111100100 00001111110100 00110111110010 00101101111001 0011100i didn't make up this form of encryption, but i like it.credit to the lvl 6 challenge on arcanum.co.nz

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0