|
|
|
|
|
|
Dim UserIP = Request.ServerVariables("REMOTE_ADDR")
Dim ServerIP = Request.ServerVariables("LOCAL_ADDR")
If UserIP = ServerIP Then
' ### Der Code ### '
End IfDamit der Code nur vom Server direkt ausgeführt werden kann.Dim config = WebConfigurationManager.OpenWebConfiguration("~")
Dim section = DirectCast(config.GetSection("connectionStrings"), ConnectionStringsSection)
Dim DefaultConnection As String = "Data Source={0};Initial Catalog={1};Persist Security Info=True;User ID={2};Password={3}"
section.ConnectionStrings("DefaultConnection").ConnectionString = String.Format(DefaultConnection, model.Servername, model.Datenbankname, model.Nutzer, model.Passwort)
Dim MyEntitiesCon As String = "metadata=res://*/Models.DataModel.csdl|res://*/Models.DataModel.ssdl|res://*/Models.DataModel.msl;provider=System.Data.SqlClient;provider connection string=""data source={0};initial catalog={1};persist security info=True;user id={2};password={3};multipleactiveresultsets=True;App=EntityFramework"""
section.ConnectionStrings("MyEntities").ConnectionString = String.Format(MyEntitiesCon, model.Servername, model.Datenbankname, model.Nutzer, model.Passwort)
config.Save()Damit wird die neue Datenbankverbindung in die "web.config" gespeichert.Dim db As New MyEntitiesLegt die Datenbank nach den Vorgaben des EF an. Dabei wird die in der "web.config" gespeicherte Verbindung genutzt.
If Not db.DatabaseExists Then
db.CreateDatabase()
' ### Code für z.B. Account anlegen ### '
End If
WebSecurity.InitializeDatabaseConnection("DefaultConnection", "UserProfile", "UserId", "UserName", autoCreateTables:=True)
WebSecurity.CreateUserAndAccount(model.AdminName, model.AdminPasswort)
Dim newRole As New webpages_Roles
db.webpages_Roles.AddObject(newRole)
db.UserProfiles.First.webpages_Roles.Add(newRole)
db.SaveChanges()Legt einen Adminaccount an.|
|
|
