كل عام وانتم بخير ومعلومه امل ان تفيد وتناقش

السلام عليكم ورحمة الله وبركاته

كل عام والجميع بخير ونسال الله ان يتقبل منا ومنكم صالح الاعمال

الحقيقة اشتقت لكم ولهذا المنتدى بعد هذه الغيبه فخجلت ان ارجع لكم صفر الايادي فاحببت ان اطرح هذا الموضوع

كما هو معلوم لدى الغالب انه من الـ ASP يمكنك في حددود تشغيل بعض التطبيقات ولكن هذا الامر خطير من الناحية الامنيه

فمثلا هذا الكود يقوم بتشغيل ملف bat موجود على السيرفر وفيه الامر التالي

ping -a %1 > d:INetPubcgi-bin%2.txt

ليقوم بارسال الامر ping لايبي محدد ويرجع الاخطاء الى صفحه هتمل

[l]

<%



Set FileSys = Server.CreateObject("Scripting.FileSystemObject")

FileName = FileSys.GetTempName



Set WShShell = Server.CreateObject("WScript.Shell")



IP = "204.123.54.1" ' or whatever you want to ping

RetCode = WShShell.Run("d:Inetpubcgi-binDoPing.bat " & IP & " " & FileName, 1, True)



if RetCode = 0 Then



'There were no errors



else



Response.Redirect "PingErrors.htm"



end if





Set TextFile = FileSys.OpenTextFile("d:InetPubcgi-bin" & FileName & ".txt", 1)

TextBuffer = TextFile.ReadAll



For i = 1 to Len(TextBuffer)



If Mid(TextBuffer,i,1) = chr(13) Then



Response.Write("<BR>")



else



Response.Write(Mid(TextBuffer,i,1)) 



end if



Next



TextFile.Close



FileSys.DeleteFile "d:Inetpubcgi-bin" & FileName & ".txt"



%>



[/l]

وهذا مفيد لاصحاب المواقع الكبيره التي تعمل على اكثر من خادم لكي يقوموا بتوزيع الاحمال عليها...

امل ان تكون المعلومات مفيده وامل ممن لديه المزيد ان يتحفنا به لو تكرمتوا(f) (g)