8 replies to this topic

[blckpythn]

Hey guys, back from the grave here(long time no see)

I've got a little utility for many of my clients to see and copy-to-clipboard basic computer information for our ticketing system.

In this script I want to include any mapped drives during the ClipPut command.

Unfortunately I'm not quite sure how to enumerate and convert to text these drives. I can get them to print to console just fine, but I want to include in the ClipPut function.


Here is the jist of it.

$drives = DriveGetDrive("NETWORK")
If @error Then
ConsoleWrite("An error occured while retrieving the drives.")
Else
For $i = 1 To $drives[0]
ConsoleWrite(StringUpper($drives[$i]) & " " & DriveMapGet($drives[$i]) & @CRLF)
Next
EndIf

Func Copy()
ClipPut("Drives: " & )

EndFunc ;==>Copy

Forgive me if I screwed up the autoit-in-forum tags.

So at the 3rd to last line after "Drives: " I want it to show each drive letter and path like the ConsoleWrite command does.

Any ideas of how to do this without manhandling an array value repeatedly?
I'm assuming there has to be a way to do a For...To loop within the ClipPut parenthesis, yes?

Edited by blckpythn, 07 August 2012 - 02:54 PM.

[Xenobiologist]

After that press CTRL+V

Local $drives = DriveGetDrive("NETWORK")
Local $tmp
If @error Then
ConsoleWrite("An error occured while retrieving the drives.")
Else
For $i = 1 To $drives[0]
;~ ConsoleWrite(StringUpper($drives[$i]) & " " & DriveMapGet($drives[$i]) & @CRLF)
$tmp &= StringUpper($drives[$i]) & " " & DriveMapGet($drives[$i]) & @CRLF
Next
ClipPut($tmp)
EndIf

[blckpythn]

Ah, thank you! That makes so much sense.

[blckpythn]

Unfortunately I'm now getting a syntax error at the end of the @CRLF, says it's missing Next. If I put Next on the same line then it says my EndFunc is ending the For loop.

[Xenobiologist]

Show your code, please.

[blckpythn]

Show your code, please.

$drives = DriveGetDrive("NETWORK")


$clipboard = ""

For $i = 1 To $drives[0]
$clipboard &= StringUpper($drives[$i] & " " & DriveMapGet($drives[$i]) & @CRLF
Next


$clipboard &= "[/code]"
ClipPut($clipboard)

[Xenobiologist]

$drives = DriveGetDrive("NETWORK")
$clipboard = ""

For $i = 1 To $drives[0]
$clipboard &= StringUpper($drives[$i]) & " " & DriveMapGet($drives[$i]) & @CRLF
Next


$clipboard &= "[/code]"
ClipPut($clipboard)

You forgot to close the ) from StringUpper.

[blckpythn]

Ha, thank you, I feel stupid.

[Xenobiologist]

Little mistake, nothing really stupid.
Glad I could help.