تنفيذ عملية تجعل ويندوز اكس بى يقبل تنصيب أوفيس 2010

[محمد بسيونى]

السلام عليكم ورحمة الله وبركاته الاخوه الاعزاء أرجو ان بنال الموضوع الاهتمام

 

أريد عمل كود ينفذ العملية التالية
 

كود:
1. Go to Registry
2. HKEY_LOCAL_MACHINE\System\CurrentControlSet\Contro l\Windows
3. Change CSDVersion string value from 200 to 300
4. Reboot
5. Install Office 2010 and reboot again
6. Repeat first four steps to get 300 to 200 parameter again
6. Voila! Enjoy your product

 

هذه العملية تجعل ويندوز (  xp sp2 )  يقبل تنصيب أوفيس 2010

اللى أنا افهمته من العملية السابقة أنه سيتم تحويل قيمة من 200 الى 300 فى المسار المذكور ثم يتم عمل تثبيت للأوفيس 2010 وعد التنصيب يتم ارجاع القيمة الى 200 مرة أخرى 
ان كان هذا صحيح سيكون تنفيذ العملية على كودان منفصلان
الكود الأول يتم تنفيذه قبل عملية تثبيت الأوفيس 2010 
الكود الثانى  يتم تنفيذه بعدعملية تثبيت الأوفيس 2010 
رابط الموضوع

http://solve-theproblem.blogspot.com/2012/02/2010-xp-sp2.html

نفس الموضوع فى صفحة انجليزية

http://www.intowindows.com/how-to-install-office-2010-on-windows-xp-sp2/
 

[ابوخليل]

ما المشكلة في تنفيذها يدويا 

اقصد لماذا الكود ؟

 

جهازي الذي اعمل عليه الآن  win7  وقيمة   CSDVersion  عندي  هي صفر

ان شاء الله غدا في العمل يوجد اجهزة تعمل بـ xp  سأطلع عليها

[محمد بسيونى]

الغرض من عمل كود أن الذى سيقوم بالعملية مبتدئين ولن يستوعبو الطريقة جيداً ومن الممكن أن يخطئوا  وتحدث مشاكل

[ابوخليل]

هذا هو الكود الذي طلبت ضعه في الحدث المناسب

سيغير القيمة في السداسي العشري الى 300 

Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
objWShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\CSDVersion", 768, "REG_DWORD"

وهذا كود الاسترجاع

سيغير القيمة في السداسي العشري الى 200

Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
objWShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\CSDVersion", 512, "REG_DWORD"