$user_settings = "C:\test.txt"

;Record Printers
$strComputer = "."
$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\$strComputer\root\cimv2")

$colInstalledPrinters =  $objWMIService.ExecQuery ("Select * from Win32_Printer")

Pipe2File($USER_SETTINGS, "[PRINTERS]",1)
For Each $objPrinter in $colInstalledPrinters

	;If $objPrinter <> ""
	If InStr($objPrinter,"\\") = 1
		If $objPrinter.Default = -1
			Pipe2File($USER_SETTINGS, $objPrinter.Name + " *default")
		Else
			Pipe2File($USER_SETTINGS, $objPrinter.Name)
		EndIf
		
	EndIf
	;EndIf
	
Next 

;Record Network Connections
Pipe2File($USER_SETTINGS, "[NETWORK]",1)
$drivedata = EnumNetworkDrives()
If Ubound($DriveData) <> -1
	For $Di = 0 to Ubound($DriveData)
		$DriveMap = Split($DriveData[$Di],",",-1)
		If $DriveMap[0] <> ""
			Pipe2File($USER_SETTINGS, $DriveMap[0] + Chr(9) + $DriveMap[1])
		EndIf
	Next
Else
	Pip2File($USER_SETTINGS, "No drive mappings found.")
EndIf