Reset DotNetNuke windows authentication back to normal.

In my previous posts (here and here)  I described the problems that I had to implemented mixed Authentication for DotNetNuke.
Important step for administrator is “Before switching to Windows Authentication ensure that your LAN acoount has host/administrative permissions for the portal.”.

If it wasn't done, you can't access administrative features. It is possible to use SQL command to re- activated Windows Authentication.

I am using call to SP  ModuleSettings_SiteSettings_Save that I've created previously.

exec dnn_ModuleSettings_SiteSettings_Save 'WindowsAuthentication','false'

Note that DNN admin SQL page is not available and administrator should use some other SQL client to access your DNN database.

 SP ModuleSettings_SiteSettings_Save is the following:

CREATE PROCEDURE {databaseOwner}.[{objectQualifier}ModuleSettings_SiteSettings_Save]

      -- Add the parameters for the stored procedure here

      @SettingName nvarchar(50),

      @SettingValue nvarchar(2000)

AS

BEGIN

 

declare @SiteSettingsModuleId int

select @SiteSettingsModuleId={objectQualifier}Modules.ModuleID

FROM    dnn_Modules  INNER JOIN

                      {databaseOwner}dnn_ModuleDefinitions ON {objectQualifier}Modules.ModuleDefID = {objectQualifier}ModuleDefinitions.ModuleDefID INNER JOIN

                      {databaseOwner}dnn_DesktopModules ON {objectQualifier}ModuleDefinitions.DesktopModuleID = {objectQualifier}DesktopModules.DesktopModuleID

WHERE     ({objectQualifier}DesktopModules.FriendlyName = N'Site Settings')

 

if NOT exists (select * from dbo.{objectQualifier}ModuleSettings WHERE  ({objectQualifier}ModuleSettings.SettingName = @SettingName) AND {objectQualifier}ModuleSettings.ModuleID =@SiteSettingsModuleId )

      INSERT INTO   {objectQualifier}ModuleSettings (ModuleID,SettingName,SettingValue)

      values(@SiteSettingsModuleId,@SettingName,@SettingValue)   

else

      update    {objectQualifier}ModuleSettings

      set SettingValue=@SettingValue

      FROM         {objectQualifier}ModuleSettings

      WHERE     ({objectQualifier}ModuleSettings.SettingName = @SettingName) AND  {objectQualifier}ModuleSettings.ModuleID =@SiteSettingsModuleId

END

 

go

 

problems attempting to install a 2002 access deployment package on a machine with Windows 2003

Someone asked me with relation to my post Access 2003 Package Wizard - a big step BACK.
“I was wondering if you have run into problems attempting to install a 2002 access deployment package on a machine with 2003.  Does not seem to work.“

I've emailed him the following answer:

You should check MSDN article :http://support.microsoft.com/?id=837150 "You may receive error messages when you install an Access 2002 runtime deployment package on a computer that is running Windows XP SP2 or Windows Server 2003"

 I am using batch file Win2003Setup.bat:

@rem Required to run to avoid error during "Access 2002" Setup
@rem "Office System Pack could not be installed on this computer as it requires Windows NT Service pack 6 or later."
copy ..\..\TroubleShootings\dbmsadsn.dll %windir%\system32\
@rem Required to exclude registration of MSCAL.OCX  to avoid error during "Access 2002" Setup
cscript MSCAL_NoRegister.vbs
Setup.exe

where dbmsadsn.dll  is located in  ..\..\TroubleShootings subfolder on my installation

and MSCAL_NoRegister.vbs file is the following:

Option Explicit
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
ReplaceLineTest

Sub ReplaceLineTest()

Dim FSO 'As FileSystemObject
Dim fSrc, fTrgt 'As TextStream
Dim sFileName, sBackupName, sToFind, sReplace, strg
sFileName = "Setup.lst"
sBackupName = sFileName & ".Bac"
sToFind = "@MSCAL.OCX,$(AppPath),$(DLLSelfRegister)"
sReplace = "@MSCAL.OCX,$(AppPath),"
Set FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
 FSO.CopyFile sFileName, sBackupName, False
On Error GoTo 0
Set fSrc = FSO.OpenTextFile(sBackupName, ForReading)
Set fTrgt = FSO.OpenTextFile(sFileName, ForWriting)
Do While fSrc.AtEndOfStream <> True
    strg = fSrc.ReadLine
    strg = Replace(strg, sToFind, sReplace)
    fTrgt.WriteLine (strg)
Loop
fSrc.Close
fTrgt.Close
Set FSO = Nothing
End Sub


 

«May»
SunMonTueWedThuFriSat
30123456
78910111213
14151617181920
21222324252627
28293031123
45678910