iis PHP安装脚本 PHPInstall.vbs V3.1

复制代码代码如下:
"/*=========================================================================
" * Intro PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起（不要放在C盘根目录下）
" * （当前版本php-5.2.5-Win32如果是其它请替换当前文档相关文件名），然后双击运行这个文件,<？phpinfo（）？>
" * FileName PHPInstall.vbs
" * Author yongfa365
" * Version v3.1
" * MadeTime 2008-04-01 15:55:41
" * LastModify 2009-05-04 12:21:48
" *==========================================================================*/
Wscript.Echo "开始配置PHP"
phpinstall "php-5.2.5-Win32", "D:PHP525", "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:Windowssystem32php5ts.dll及C:Windowssystem32libmysql.dll，然后复制新的"
FSO.DeleteFile SystemPath & "Windowssystem32php5ts.dll"
FSO.CopyFile InstallPath & "php5ts.dll", SystemPath & "Windowssystem32php5ts.dll"

FSO.DeleteFile SystemPath & "Windowssystem32libmysql.dll"
FSO.CopyFile InstallPath & "libmysql.dll", SystemPath & "Windowssystem32libmysql.dll"

"MCrypt加密处理
FSO.DeleteFile SystemPath & "Windowssystem32libmcrypt.dll"
FSO.CopyFile InstallPath & "libmcrypt.dll", SystemPath & "Windowssystem32libmcrypt.dll"

"WScript.Echo "读取C:phpphp.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_mssql.dll", "extension=php_mssql.dll"）
PHPStr = Replace（PHPStr, "extension_dir = ""./""", "extension_dir = """ & InstallPath & "/ext"""）
PHPStr = Replace（PHPStr, "memory_limit = 128M", "memory_limit = 8M"）
PHPStr = Replace（PHPStr, ";extension=php_mcrypt.dll", "extension=php_mcrypt.dll"）

PHPStr = Replace（PHPStr, ";session.save_path = ""/tmp""", "session.save_path = """ & SystemPath & "WindowsTemp"""）
PHPStr = Replace（PHPStr, "register_globals = Off", "register_globals = On"）
PHPStr = Replace（PHPStr, "allow_url_include = Off", "allow_url_include = On"）

"安全
PHPStr = Replace（PHPStr, "safe_mode = Off", "safe_mode = On"）
PHPStr = Replace（PHPStr, "disable_functions =", "disable_functions = passthru,exec,system,chroot,scandir,chgrp,chown,shell_exec,proc_open,proc_get_status,ini_alter,ini_alter,ini_restore,dl,pfsockopen,openlog,syslog,readlink,symlink,popepassthru,stream_socket_server"）
"exec,system,passthru,shell_exec,escapeshellarg,escapeshellcmd,proc_close,proc_open,dl,popen,show_source,ini_alter
"system,exec,passthru,shell_exec,popen

"WScript.Echo "将修改后的配置文件变量PHPStr另存为：C:Windowsphp.ini"
FSO.CreateTextFile（SystemPath & "Windowsphp.ini", True）.WriteLine PHPStr

Set IIsWebServiceObj = GetObject（"IIS://localhost/W3SVC"）

"WScript.Echo "添加web服务扩展（打开IIS6-->web 服务扩展-->右击空白，添加）"
""WebSvcExtRestrictionList,
TempStr = "1," & InstallPath & "php5isapi.dll,1,php,php扩展"
For Each Str in IIsWebServiceObj.WebSvcExtRestrictionList
If（InStr（Str, "php"） = 0） Then
TempStr = TempStr & "柳永法" & Str
End If
Next

IIsWebServiceObj.WebSvcExtRestrictionList = Split（TempStr, "柳永法"）
IIsWebServiceObj.SetInfo

"WScript.Echo "添加应用程序扩展名映射（网站属性-->主目录-->配置-->映射-->添加）"
""ScriptMaps
TempStr = ".php," & InstallPath & "php5isapi.dll,5,GET,HEAD,POST,DEBUG"
For Each Str in IIsWebServiceObj.ScriptMaps
If（InStr（Str, "php"） = 0） Then
TempStr = TempStr & "柳永法" & Str
End If
Next

IIsWebServiceObj.ScriptMaps = Split（TempStr, "柳永法"）
IIsWebServiceObj.SetInfo

"默认首页
"IIsWebServiceObj.DefaultDoc = "Index.htm,Index.html,Index.asp,Default.aspx,index.php,Default.htm,Default.asp"
"IIsWebServiceObj.SetInfo
If InStr（LCase（IIsWebServiceObj.DefaultDoc）, "index.php"） = 0 Then
IIsWebServiceObj.DefaultDoc = IIsWebServiceObj.DefaultDoc & ",index.php"
IIsWebServiceObj.SetInfo
End If

WScript.Echo "OK,php环境安装完成，为了对本程序作者：柳永法，表示感谢，请大笑三声^_^"
End Function