Retrieving Connected Mapped Network Drives - Revision history

Red Wine at 16:22, 25 July 2007

2007-07-25T16:22:03Z

â† Older revision		Revision as of 16:22, 25 July 2007
Line 98:		Line 98:
	it freely.		it freely.


	[[Category:Disk, Path & File Functions]]		[[Category:Disk, Path & File Functions]]

Red Wine at 14:20, 9 February 2007

2007-02-09T14:20:58Z

â† Older revision		Revision as of 14:20, 9 February 2007
Line 5:		Line 5:
	== Invoke the function ==		== Invoke the function ==
	<highlight-nsis>		<highlight-nsis>
	~~;call the function~~		!insertmacro FindNetDrives
	~~call~~ FindNetDrives		!insertmacro un.FindNetDrives
	~~;get the result~~
	~~Pop~~ $R0		Section "Install"
	~~;at this point~~ $R0 ~~contais error if no mapped drive found~~		${FindNetDrives} $R0
	DetailPrint '$R0'		DetailPrint "$R0"
			SectionEnd

			Section "Uninstall"
			${un.FindNetDrives} $R0
			DetailPrint "$R0"
			SectionEnd
	</highlight-nsis>		</highlight-nsis>

	== The Function ==		== The Function ==
	<highlight-nsis>		<highlight-nsis>
	Function FindNetDrives		!macro _FindNetDrivesCall UN _Result
			!verbose push
			!verbose 3
			Call ${UN}FindNetDrives
			Pop ${_Result}
			!verbose pop
			!macroend

			!macro FindNetDrives
			!verbose push
			!verbose 3
			!insertmacro _FindNetDrivesFunc ""
			!define FindNetDrives '!insertmacro _FindNetDrivesCall ""'
			!verbose pop
			!macroend

			!macro un.FindNetDrives
			!verbose push
			!verbose 3
			!insertmacro _FindNetDrivesFunc "un."
			!define un.FindNetDrives '!insertmacro _FindNetDrivesCall "un."'
			!verbose pop
			!macroend

			!macro _FindNetDrivesFunc UN
			Function ${UN}FindNetDrives

	Push $2		Push $2
	Push $1		Push $1
Line 39:		Line 71:
	Exch 2		Exch 2
	Exch		Exch
	goto end		goto end

	done: ;found mapped network drives		done: ;found mapped network drives
Line 51:		Line 83:
	Pop $1		Pop $1
	Pop $2		Pop $2

	FunctionEnd		FunctionEnd
			!macroend
	</highlight-nsis>		</highlight-nsis>

212.54.218.133 at 20:22, 8 February 2007

2007-02-08T20:22:27Z

â† Older revision		Revision as of 20:22, 8 February 2007
Line 5:		Line 5:
	== Invoke the function ==		== Invoke the function ==
	<highlight-nsis>		<highlight-nsis>
	~~Section "Install"~~		;call the function
	${FindNetDrives~~} $R0~~		call FindNetDrives
	~~DetailPrint "~~$R0"		;get the result
	~~SectionEnd~~		Pop $R0
			;at this point $R0 contais error if no mapped drive found
	~~Section "Uninstall"~~		DetailPrint '$R0'
	~~${un.FindNetDrives}~~ $R0
	DetailPrint "$R0"
	~~SectionEnd~~
	</highlight-nsis>		</highlight-nsis>

Line 19:		Line 16:
	<highlight-nsis>		<highlight-nsis>
	Function FindNetDrives		Function FindNetDrives

	~~!define FindNetDrives '!insertmacro _FindNetDrives ""'~~
	~~!define un.FindNetDrives '!insertmacro _FindNetDrives "un."'~~

	~~!macro _FindNetDrives UN _Result~~
	~~Call ${UN}FindNetDrives~~
	~~Pop ${_Result}~~
	~~!macroend~~

	Push $2		Push $2
	Push $1		Push $1
Line 51:		Line 39:
	Exch 2		Exch 2
	Exch		Exch
	goto end		goto end

	done: ;found mapped network drives		done: ;found mapped network drives
Line 63:		Line 51:
	Pop $1		Pop $1
	Pop $2		Pop $2

	FunctionEnd		FunctionEnd
	</highlight-nsis>		</highlight-nsis>

212.54.218.133 at 20:14, 8 February 2007

2007-02-08T20:14:21Z

â† Older revision		Revision as of 20:14, 8 February 2007
Line 5:		Line 5:
	== Invoke the function ==		== Invoke the function ==
	<highlight-nsis>		<highlight-nsis>
	~~;call the function~~		Section "Install"
	~~call~~ FindNetDrives		${FindNetDrives} $R0
	~~;get the result~~		DetailPrint "$R0"
	~~Pop~~ $R0		SectionEnd
	~~;at this point~~ $R0 ~~contais error if no mapped drive found~~
	DetailPrint '$R0'		Section "Uninstall"
			${un.FindNetDrives} $R0
			DetailPrint "$R0"
			SectionEnd
	</highlight-nsis>		</highlight-nsis>

Line 16:		Line 19:
	<highlight-nsis>		<highlight-nsis>
	Function FindNetDrives		Function FindNetDrives

			!define FindNetDrives '!insertmacro _FindNetDrives ""'
			!define un.FindNetDrives '!insertmacro _FindNetDrives "un."'

			!macro _FindNetDrives UN _Result
			Call ${UN}FindNetDrives
			Pop ${_Result}
			!macroend

	Push $2		Push $2
	Push $1		Push $1
Line 39:		Line 51:
	Exch 2		Exch 2
	Exch		Exch
	goto end		goto end

	done: ;found mapped network drives		done: ;found mapped network drives
Line 51:		Line 63:
	Pop $1		Pop $1
	Pop $2		Pop $2

	FunctionEnd		FunctionEnd
	</highlight-nsis>		</highlight-nsis>

Red Wine at 05:56, 17 January 2007

2007-01-17T05:56:55Z

@@ Line 53: / Line 53: @@
 FunctionEnd
 </highlight-nsis>
 [[Category:Disk, Path & File Functions]]

Red Wine at 14:38, 2 January 2007

2007-01-02T14:38:00Z

â† Older revision		Revision as of 14:38, 2 January 2007
Line 3:		Line 3:
	Just a simple function that retrieves from registry the mapped network drives on a system, and returns only those that are actually connected.<BR>		Just a simple function that retrieves from registry the mapped network drives on a system, and returns only those that are actually connected.<BR>

	== ~~Invoking~~ the function ==		== Invoke the function ==
	<highlight-nsis>		<highlight-nsis>
	;call the function		;call the function

Red Wine at 14:31, 2 January 2007

2007-01-02T14:31:05Z

New page

{{PageAuthor|Red Wine}}
== Description ==
Just a simple function that retrieves from registry the mapped network drives on a system, and returns only those that are actually connected.<BR>

== Invoking the function ==
<highlight-nsis>
;call the function
call FindNetDrives
;get the result
Pop $R0
;at this point $R0 contais error if no mapped drive found
DetailPrint '$R0'
</highlight-nsis>

== The Function ==
<highlight-nsis>
Function FindNetDrives
Push $2
Push $1
Push $0

StrCpy $2 ''
StrCpy $0 0

loop:
EnumRegKey $1 HKCU Network $0
StrCmp $1 "" exit
IfFileExists '$1:\*' 0 +2
StrCpy '$2' '$2 $1'
IntOp $0 $0 + 1
goto loop

exit:
StrCmp $2 '' nonetdrv done

nonetdrv: ;not found mapped network drive
Push 'error'
Exch 3
Exch 2
Exch
goto end

done: ;found mapped network drives
Push '$2'
Exch 3
Exch 2
Exch

end:
Pop $0
Pop $1
Pop $2
FunctionEnd
</highlight-nsis>

[[Category:Disk, Path & File Functions]]