网站学习网--php安装脚本 PHPFirstInstall.vbs

登录名：密码：验证码： 5756

设为首页收藏本站联系站长

2008年12月4日

农历戊子年(鼠)
十一月初七

特别推荐：产品报价漂亮网站网址图片素材

我要查找:

欢迎您来这里。每天学一点,每天进步一点!

当前位置：首页 >> PHP >> PHP

php安装脚本 PHPFirstInstall.vbs

来源：http://www.yongfa365.com 发表日期：2008年4月1日作者：


编辑：admin 级别：司令浏览次数:269	【大中小】

view plain copy to clipboard print ?

'/*=========================================================================
' * Intro PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起(不要放在C盘根目录下)
' * (当前版本php-5.2.5-Win32如果是其它请替换当前文档相关文件名)，然后双击运行这个文件,<?phpinfo()?>
' * FileName PHPFirstInstall.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/PHPFirstInstall.vbs.html
' * MadeTime 2008-04-01 15:55:41
' * LastModify 2008-04-01 15:55:41
' *==========================================================================*/
phpinstall "php-5.2.5-Win32","C:\PHP","C:"
'phpinstall "php所在目录","php要安装到哪","系统盘(如：C:)"
function phpinstall(PHPFilePath,InstallPath,SystemPath)
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
'WScript.Echo "删除C:\PHP"
FSO.DeleteFolder InstallPath
FSO.CopyFolder PHPFilePath, InstallPath '第一个参数为您要安装的php文件夹名，他的下一级是一堆文件及文件夹，而不是只有一个文件夹
'WScript.Echo "删除C:\Windows\system32\php5ts.dll及C:\Windows\system32\libmysql.dll，然后复制新的"
FSO.DeleteFile SystemPath & "\Windows\system32\php5ts.dll"
FSO.CopyFile InstallPath & "\php5ts.dll", SystemPath & "\Windows\system32\php5ts.dll"
FSO.DeleteFile SystemPath & "\Windows\system32\libmysql.dll"
FSO.CopyFile InstallPath & "\libmysql.dll", SystemPath & "\Windows\system32\libmysql.dll"
'WScript.Echo "读取C:\php\php.ini-dist内容到变量PHPStr"
PHPStr = FSO.OpenTextFile(InstallPath & "\php.ini-dist", 1, True).ReadAll
'WScript.Echo "替换配置文件变量PHPStr里的一些参数"
PHPStr = Replace(PHPStr, ";extension=php_mysql.dll", "extension=php_mysql.dll")
PHPStr = Replace(PHPStr, ";extension=php_gd2.dll", "extension=php_gd2.dll")
PHPStr = Replace(PHPStr, ";extension=php_mbstring.dll", "extension=php_mbstring.dll")
PHPStr = Replace(PHPStr, ";extension=php_dbase.dll", "extension=php_dbase.dll")
PHPStr = Replace(PHPStr, ";extension=php_ldap.dll", "extension=php_ldap.dll")
PHPStr = Replace(PHPStr, ";session.save_path = ""/tmp""", "session.save_path = """ & SystemPath & "\Windows\Temp""")
PHPStr = Replace(PHPStr, "register_globals = Off", "register_globals = On")
PHPStr = Replace(PHPStr, "allow_url_include = Off", "allow_url_include = On")
'WScript.Echo "将修改后的配置文件变量PHPStr另存为：C:\Windows\php.ini"
FSO.CreateTextFile(SystemPath & "\Windows\php.ini", True).WriteLine PHPStr
Set IIsWebServiceObj = GetObject("IIS://localhost/W3SVC")
'WScript.Echo "添加web服务扩展（打开IIS6-->web 服务扩展-->右击空白，添加）"
''WebSvcExtRestrictionList,
IISWebServiceObj.AddExtensionFile InstallPath & "\php5isapi.dll", True, "php", True, "php"
IIsWebServiceObj.SetInfo
'WScript.Echo "添加应用程序扩展名映射（网站属性-->主目录-->配置-->映射-->添加）"
''ScriptMaps
ArgScriptMap = ".php," & InstallPath & "\php5isapi.dll,5,GET,HEAD,POST,DEBUG"
NewScriptMaps = IIsWebServiceObj.ScriptMaps
ReDim preserve NewScriptMaps(UBound(NewScriptMaps) + 1)
NewScriptMaps(UBound(NewScriptMaps)) = ArgScriptMap
IIsWebServiceObj.ScriptMaps = NewScriptMaps
IIsWebServiceObj.SetInfo
WScript.Echo "OK,php环境安装完成，为了对本程序作者：柳永法，表示感谢，请大笑三声^_^"
end function
以上这个是用函数的形式，用在目录不一定的情况下比较方便。但修改此文件不怎么方便。柳永法一般用下边这个：
1. '/*=========================================================================
2. ' * Intro PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起(不要放在C盘根目录下)
3. ' * (当前版本php-5.2.5-Win32如果是其它请替换当前文档相关文件名)，然后双击运行这个文件,<?phpinfo()?>
4. ' * FileName PHPFirstInstall.vbs
5. ' * Author yongfa365
6. ' * Version v1.0
7. ' * WEB http://www.yongfa365.com
8. ' * Email yongfa365[at]qq.com
9. ' * FirstWrite http://www.yongfa365.com/Item/PHPFirstInstall.vbs.html
10. ' * MadeTime 2008-04-01 15:55:41
11. ' * LastModify 2008-04-01 15:55:41
12. ' *==========================================================================*/
15. On Error Resume Next
16. Set FSO = CreateObject("Scripting.FileSystemObject")
18. 'WScript.Echo "删除C:\PHP"
19. FSO.DeleteFolder "C:\PHP"
20. FSO.CopyFolder "php-5.2.5-Win32", "C:\PHP" '第一个参数为您要安装的php文件夹名，他的下一级是一堆文件及文件夹，而不是只有一个文件夹
22. 'WScript.Echo "删除C:\Windows\system32\php5ts.dll及C:\Windows\system32\libmysql.dll，然后复制新的"
23. FSO.DeleteFile "C:\Windows\system32\php5ts.dll"
24. FSO.CopyFile "C:\PHP\php5ts.dll", "C:\Windows\system32\php5ts.dll"
26. FSO.DeleteFile "C:\Windows\system32\libmysql.dll"
27. FSO.CopyFile "C:\PHP\libmysql.dll", "C:\Windows\system32\libmysql.dll"
29. 'WScript.Echo "读取C:\php\php.ini-dist内容到变量PHPStr"
30. PHPStr = FSO.OpenTextFile("C:\php\php.ini-dist", 1, True).ReadAll
32. 'WScript.Echo "替换配置文件变量PHPStr里的一些参数"
33. PHPStr = Replace(PHPStr, ";extension=php_mysql.dll", "extension=php_mysql.dll")
34. PHPStr = Replace(PHPStr, ";extension=php_gd2.dll", "extension=php_gd2.dll")
35. PHPStr = Replace(PHPStr, ";extension=php_mbstring.dll", "extension=php_mbstring.dll")
36. PHPStr = Replace(PHPStr, ";extension=php_dbase.dll", "extension=php_dbase.dll")
37. PHPStr = Replace(PHPStr, ";extension=php_ldap.dll", "extension=php_ldap.dll")
39. PHPStr = Replace(PHPStr, ";session.save_path = ""/tmp""", "session.save_path = ""C:\Windows\Temp""")
40. PHPStr = Replace(PHPStr, "register_globals = Off", "register_globals = On")
41. PHPStr = Replace(PHPStr, "allow_url_include = Off", "allow_url_include = On")
43. 'WScript.Echo "将修改后的配置文件变量PHPStr另存为：C:\Windows\php.ini"
44. FSO.CreateTextFile("C:\Windows\php.ini", True).WriteLine PHPStr
48. Set IIsWebServiceObj = GetObject("IIS://localhost/W3SVC")
50. 'WScript.Echo "添加web服务扩展（打开IIS6-->web 服务扩展-->右击空白，添加）"
51. ''WebSvcExtRestrictionList,
52. IISWebServiceObj.AddExtensionFile "C:\PHP\php5isapi.dll", True, "php", True, "php"
53. IIsWebServiceObj.SetInfo
55. 'WScript.Echo "添加应用程序扩展名映射（网站属性-->主目录-->配置-->映射-->添加）"
56. ''ScriptMaps
57. ArgScriptMap = ".php,C:\PHP\php5isapi.dll,5,GET,HEAD,POST,DEBUG"
58. NewScriptMaps = IIsWebServiceObj.ScriptMaps
59. ReDim preserve NewScriptMaps(UBound(NewScriptMaps) + 1)
60. NewScriptMaps(UBound(NewScriptMaps)) = ArgScriptMap
61. IIsWebServiceObj.ScriptMaps = NewScriptMaps
62. IIsWebServiceObj.SetInfo
64. WScript.Echo "OK,php环境安装完成，为了对本程序作者：柳永法，表示感谢，请大笑三声^_^"

(编辑:网站学习网)

·上一篇文章： VBS如何察看或获得剪切板内容

·下一篇文章：农村需要10万大学生村官？

该篇文章的评论

暂无相关评论

· php安装脚本 PHPFi

· Apache+php+mysql在wind

· Apache2.2.X版本支持PHP

· Apache的the reque

· PHP教程（一）

· PHP配置全攻略之Windows

· Apache 2.2.4+PHP&

· Windows下PHP5和Apache的

· 解决Apache Servic

· 如何构建php运行环境,支

· Zend Optimizer&nb