Index: Tools/SQLExporter.cls.xml
===================================================================
diff -u -r3155 -r3158
--- Tools/SQLExporter.cls.xml	(.../SQLExporter.cls.xml)	(revision 3155)
+++ Tools/SQLExporter.cls.xml	(.../SQLExporter.cls.xml)	(revision 3158)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="Tools.SQLExporter">
 <Description>
-Do ##class(Tools.SQLExporter).ExportUsers()</Description>
+Do ##class(Tools.SQLExporter).ExportUsers("C:\temp\users.xml")</Description>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
@@ -27,20 +27,25 @@
 	While (UserName '= ""){
 		
 		S UserProperties = ##class(%Library.SQLCatalog).Roles(UserName)				
-		zn "%SYS"		
-		Set UserName = $O(^%SYS("sql","users","1",UserName))
 		
-		zn OriginalNamespace
 		If (UserName '[ "_") {
 			Set User = ##class(Tools.dto.SQL.User).%New()
 			Set User.Naam = UserName
+			w "Geef het paswoord voor gebruiker '"_User.Naam_"' : " 
+			Read Paswoord
+			Set User.Paswoord = Paswoord
+			w ! 
 			for i=3:1:$ll(UserProperties) {
 				Set Role = ##class(Tools.dto.SQL.Role).%New()
 				Set Role.Naam = $LG(UserProperties,i)
 				Do User.Roles.Insert(Role)
 			}
-		}	
-		Do Settings.Users.Insert(User)
+			Do Settings.Users.Insert(User)
+		}			
+		
+		zn "%SYS"		
+		Set UserName = $O(^%SYS("sql","users","1",UserName))		
+		zn OriginalNamespace
 	}
 	
 	DO Bestand.WriteXML(Settings)