-- Collection of code snippets by Arne Vajhøj 
-- (likely posted to comp.os.vms/INFO-VAX, INFO-TPU, MACRO32, eksperten.dk, newz.dk, LinkedIn or other place sometime between 1990 and now) 
DECLARE @ApplicationId UNIQUEIDENTIFIER
EXEC aspnetdb.dbo.aspnet_Applications_CreateApplication 'SecureFun', @ApplicationId out
DECLARE @UserId UNIQUEIDENTIFIER
EXEC aspnetdb.dbo.aspnet_Membership_CreateUser 'SecureFun', 'supermand', 'hemmeligt', 'blabla', 'arne@vajhoej.dk', NULL, NULL, 1, '20071223', '20071223', NULL, 0, @UserId out
DECLARE @PathId UNIQUEIDENTIFIER
EXEC aspnetdb.dbo.aspnet_Paths_CreatePath @ApplicationId, '/', @PathId out
EXEC aspnetdb.dbo.aspnet_Membership_UnlockUser 'SecureFun', 'supermand'
GO
