Network Security Internet Technology Development Database Servers Mobile Phone Android Software Apple Software Computer Software News IT Information

In addition to Weibo, there is also WeChat

Please pay attention

WeChat public account

Shulou

Example Analysis of PHP installation script PHPInstall.vbs V3.1 in iis

2025-01-31 Update From: SLTechnology News&Howtos shulou NAV: SLTechnology News&Howtos > Development >

Share

Shulou(Shulou.com)06/03 Report--

This article shares with you the content of the sample analysis of the PHP installation script PHPInstall.vbs V3.1 in iis. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.

The code is as follows:

'/ * =

'* Intro PHP installation script, all you have to do is to save this file with the php folder you want to install (do not put it in the root directory of C disk)

'* (if the current version of php-5.2.5-Win32 is something else, please replace the relevant file name of the current document), and then double-click to run the file

'* FileName PHPInstall.vbs

'* Author yongfa365

'* Version v3.1

'* MadeTime 2008-04-01 15:55:41

'* LastModify 2009-05-04 12:21:48

'* /

Wscript.Echo "start configuring PHP"

Phpinstall "php-5.2.5-Win32", "D:\ PHP525", "C:"

Phpinstall "directory where php is located", "where to install php", "system disk (e.g. C:)"

Function phpinstall (PHPFilePath, InstallPath, SystemPath)

On Error Resume Next

Set FSO = CreateObject ("Scripting.FileSystemObject")

'WScript.Echo "Delete C:\ PHP"

FSO.DeleteFolder InstallPath

FSO.CopyFolder PHPFilePath, InstallPath 'the first parameter is the name of the php folder you want to install, and its next level is a pile of files and folders, not just one folder

'WScript.Echo "delete C:\ Windows\ system32\ php5ts.dll and C:\ Windows\ system32\ libmysql.dll, and then copy the new"

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"

'MCrypt encryption processing

FSO.DeleteFile SystemPath & "\ Windows\ system32\ libmcrypt.dll"

FSO.CopyFile InstallPath & "\ libmcrypt.dll", SystemPath & "\ Windows\ system32\ libmcrypt.dll"

'WScript.Echo "reads the contents of C:\ php\ php.ini-dist to the variable PHPStr"

PHPStr = FSO.OpenTextFile (InstallPath & "\ php.ini-dist", 1, True) .ReadAll

'WScript.Echo' replaces some parameters in the profile variable 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 &"\ Windows\ Temp ")

PHPStr = Replace (PHPStr, "register_globals = Off", "register_globals = On")

PHPStr = Replace (PHPStr, "allow_url_include = Off", "allow_url_include = On")

'safe

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 "saves the modified profile variable PHPStr as: C:\ Windows\ php.ini"

FSO.CreateTextFile (SystemPath & "\ Windows\ php.ini", True) .WriteLine PHPStr

Set IIsWebServiceObj = GetObject ("IIS://localhost/W3SVC")

WScript.Echo "add web service extension (open IIS6-- > web service extension-- > right-click blank, add)"

'' WebSvcExtRestrictionList

TempStr = "1," & InstallPath & "\ php5isapi.dll,1,php,php extension"

For Each Str in IIsWebServiceObj.WebSvcExtRestrictionList

If (InStr (Str, "php") = 0) Then

TempStr = TempStr & Liu Yongfa & Str

End If

Next

IIsWebServiceObj.WebSvcExtRestrictionList = Split (TempStr, "Liu Yongfa")

IIsWebServiceObj.SetInfo

'WScript.Echo' add application extension mapping (site properties-> home directory-> configuration-> mapping-> add) "

'' 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 & Liu Yongfa & Str

End If

Next

IIsWebServiceObj.ScriptMaps = Split (TempStr, "Liu Yongfa")

IIsWebServiceObj.SetInfo

'default home page

'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 environment installation is complete, in order to thank the author of this program: Liu Yongfa, please laugh three times ^ _ ^"

End Function

Thank you for reading! This is the end of this article on "sample Analysis of PHP installation script PHPInstall.vbs V3.1 in iis". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, you can share it for more people to see!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.

Views: 275

*The comments in the above article only represent the author's personal views and do not represent the views and positions of this website. If you have more insights, please feel free to contribute and share.

Share To

Development

Wechat

© 2024 shulou.com SLNews company. All rights reserved.

12
Report