将夜猫腻小说,辰东完美世界有声小说,完美世界小说下载

復(fù)制代碼代碼如下:

'/*=========================================================================
' * Intro PHP安裝腳本，您所要做的操作是：保存這個(gè)文件與要安裝的php文件夾放一起(不要放在C盤根目錄下)
' * (當(dāng)前版本php-5.2.5-Win32如果是其它請(qǐng)?zhí)鎿Q當(dāng)前文檔相關(guān)文件名)，然后雙擊運(yùn)行這個(gè)文件,<?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 "開(kāi)始配置PHP"
phpinstall "php-5.2.5-Win32", "D:/PHP525", "C:"
'phpinstall "php所在目錄","php要安裝到哪","系統(tǒng)盤(如：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 '第一個(gè)參數(shù)為您要安裝的php文件夾名，他的下一級(jí)是一堆文件及文件夾，而不是只有一個(gè)文件夾

'WScript.Echo "刪除C:/Windows/system32/php5ts.dll及C:/Windows/system32/libmysql.dll，然后復(fù)制新的"
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加密處理
FSO.DeleteFile SystemPath & "/Windows/system32/libmcrypt.dll"
FSO.CopyFile InstallPath & "/libmcrypt.dll", SystemPath & "/Windows/system32/libmcrypt.dll"

'WScript.Echo "讀取C:/php/php.ini-dist內(nèi)容到變量PHPStr"
PHPStr = FSO.OpenTextFile(InstallPath & "/php.ini-dist", 1, True).ReadAll

'WScript.Echo "替換配置文件變量PHPStr里的一些參數(shù)"
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")

'安全
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

上一篇：當(dāng)某IP 連接我機(jī)器的3389端口報(bào)警的腳本

下一篇：Vbs 腳本編程簡(jiǎn)明教程之一

發(fā)表評(píng)論

共有條評(píng)論