تعديل ال Authentication من خلال كود

:) باستخدام SQLDMO و الكود التالى منقول كمثال من مايكروسوفت لتغير ال Authentication Mode

Sub CallChangeServerAuthenticationMode()
    Dim constAuth As Byte

    'Set constAuth to
    '   SQLDMOSecurity_Integrated to change to Windows Authentication Mode
    '   SQLDMOSecurity_Mixed to change to Mixed Authentication Mode

    'Set default value for constAuth
    constAuth = SQLDMOSecurity_Mixed

    'Call procedure to change authentication mode
    ChangeServerAuthenticationMode constAuth

End Sub

Sub ChangeSeverAuthenticationMode(constAuth As Byte)
    Dim srv1 As SQLDMO.SQLServer

    'Assign whatever server name you like;
    'default is CABLAT
    srvname = "CABLAT"

    'Instantiate a SQLServer object and connect
    'using integrated
    Set srv1 = New SQLDMO.SQLServer
    srv1.LoginSecure = True
    srv1.Connect srvname

    'Set SecurityMode property for Windows or
    'or Mixed Authentication Mode
    srv1.IntegratedSecurity.SecurityMode = constAuth
    srv1.Disconnect

    'Invoke command to stop server and wait
    'until it stops
    srv1.Stop
    Do Until srv1.Status = SQLDMOSvc_Stopped
    Loop

    'Restart server with mixed security
    srv1.Start True, srvname

    'Clean up
    srv1.Disconnect
    Set srv1 = Nothing

End Sub

الأخ طارق

السلام عليكم ورحمة الله وبركاته

شكرا جزيلا على سرعة الرد والحمد لله أن هناك كود يقوم بهذه العملية دون برنامج MS SQL Server

نظرا لكبر حجمه وقد يؤدي ذلك الى العبث بقاعدة البيانات من قبل العميل

وشكرا مرة أخرى فالكود عمل بنجاح وتم تحويل السيرفر

ولكن ماذا عن انشاء مستخدم جديد للسرفر وإعطائه صلاحية وربطه بقاعدة بيانات محددة وذلك أيضا عن طريق الكود

شاكرا لك حسن تعاونك معي

أشرف الشباسي

sp_addlogin

sp_adduser

شكرا جزيلا

وسوف أقوم بالإطلاع عليها وإن شاء الله أصل الى ما أريد

مرة أخرى شكرا

أشرف الشباسي

الأخ طارق

السلام عليكم ورحمة الله وبركاته

شكرا على الروابط وقد تم عمل مستخدمين للسرفر وقاعدة البيانات عن طريق الكود والحمد لله

ولى سؤال أخر لو تكرمت

هل هناك كود يتحقق من أن الجهاز السرفر شغال ؟

أم يتم ذلك عن طريق اصطياد الأخطاء ومعرفة رقم الخطأ ثم تنفيذه بجملة if

شاكرا لك حسن تعاونك معي

أشرف الشباسي

:D يبدو اننى اصبحت كسولاً فى المشاركة هنا

التعرف على حالة ال MS SQL Server إذا كان يعمل ام لا