If InGroup("Group1")
$Out = "Forced database to: Kroon Users"
$x = WriteLine (9 , $tab + $Out + @CRLF )
$dbini = ReadProfileString($datafile, "Databases","Group1")
$basisshare = $datashare + "\map\map1"
EndIf
If InGroup("Group2")
$Out = "Forced database to: Kroon dealerdatabase"
$x = WriteLine (9 , $tab + $Out + @CRLF )
$dbini = ReadProfileString($datafile, "Databases","Group2")
$basisshare = $datashare + "\map\map2"
$usergroup = "Usergroup"
$Force = "CT70"
Else
$Out = "Forced database to: Kroon Users/Kroon dealerdatabase - No Permissions!!!"
$x = WriteLine (9 , $tab + $Out + @CRLF )
$Out = "Rolling back ini update (if any)."
$x = WriteLine (9 , $tab + $Out + @CRLF )
$error = WriteProfileString ($userfile, "Stations", $StationUsers[$FirstEmpty,1], " ")
If $error <> 0
$Out = "Error writing to " + $userfile + ", quitting script"
$x = WriteLine (9 , $tab + $Out + @CRLF )
EndIf
Goto End
EndIf