IIS

[sohrab o]

کسی سورسی داره واسه راه اندازیه IIS?

[Babak.Hassanpour]

منظورتون راه اندازی سرویس های IIS توسط برنامه شماست?
یا ایجاد یک HTTP سرور?
یا IIS Application ؟

[sohrab o]

منظورم web site یا همون به قوله شما http سروره
خیلی نیاز دارم

[Babak.Hassanpour]

بفرما دوست من

[Babak.Hassanpour]

این یکی دیگه عزیز جان
http://www.planet-source-code.com/Upload_PSC/ScreenShots/PIC200692390307551.gif

[sohrab o]

مرسی
اما نفهمیدم این چیکار میکنه؟!
اصلا میدونی تنظیمات iis کجا ذخیره میشه؟!

[sohrab o]

دوست عزیز مرسی اما مثل اینکه منظور منو متوجه نشدی!؟

[Babak.Hassanpour]

مرسی
اما نفهمیدم این چیکار میکنه؟!
اصلا میدونی تنظیمات iis کجا ذخیره میشه؟!

شما دقیق بفرما چی می خواهی انجام بدی بنده دربست درخدمتم.
حقیقتش درست نفهمیدم چی می خوای.از یه طرف می گی HTTP SERVER از یه طرف دیگه میری باز سراغ IIS.

[sohrab o]

من میخوام با استفاده از کد نویسی داخل iis یک دایرکتوری جدید اضافه کنم و بتونم برنامه هایی که مثل با .asp نوشتم داخلش اجرا کنم

[Babak.Hassanpour]

اوکی الان افتاد
اینم کدش:


'strWebName is name of the virtual directory to create
'strLongName is full name of virtual directory
Dim wRoot As Object, wNew As Object, wServer As Object
Dim strServerName As String

strServerName = CompName 'Name of computer the web is being set up on

Set wServer = GetObject("IIS://LocalHost/w3svc/1")
'Get the root web
Set wRoot = GetObject("IIS://LocalHost/w3svc/1/ROOT")
'Create a new web off the root
Set wNew = wRoot.Create("IIsWebVirtualDir", strWebName)
'Turn the virtualdir into a web app. True = In Process
wNew.AppCreate True

wNew.Path = App.Path
wNew.AccessScript = False
wNew.AccessRead = True
wNew.AccessWrite = True
wNew.EnableDirBrowsing = False
wNew.AccessExecute = True
wNew.AppFriendlyName = strLongName
wNew.AspAllowSessionState = True
wNew.AspSessionTimeout = "30" 'minutes
wNew.AspBufferingOn = True
wNew.AspEnableParentPaths = True
wNew.AspScriptLanguage = "VBScript"
wNew.AspScriptTimeout = "900" 'seconds
wNew.AppAllowClientDebug = False
wNew.AppAllowDebugging = False
wNew.AspScriptErrorSentToBrowser = True
wNew.EnableDefaultDoc = True
wNew.DefaultDoc = "Default.htm,Default.asp,iisstart.asp,index.html"
wNew.EnableDocFooter = False
wNew.AuthAnonymous = True
wNew.AuthBasic = True
wNew.AuthNTLM = True
wNew.DefaultLogonDomain = "" 'Put nothing here to use the default domain.
'Commit all settings
wNew.SetInfo



رفرنس های زیر یادت نره:

OLE Automation
Typelib Information
Microsoft Scripting Runtime

[Babak.Hassanpour]

با این اسکریپت هم میشه دایرکتوری توی IIS ساخت:


Set Root = GetObject("IIS://LocalHost/W3SVC/1/ROOT")
Set Dir = Root.Create("IIsWebVirtualDir", "ttt")

[sohrab o]

اوکی الان افتاد
اینم کدش:


'strWebName is name of the virtual directory to create
'strLongName is full name of virtual directory
Dim wRoot As Object, wNew As Object, wServer As Object
Dim strServerName As String

strServerName = CompName 'Name of computer the web is being set up on

Set wServer = GetObject("IIS://LocalHost/w3svc/1")
'Get the root web
Set wRoot = GetObject("IIS://LocalHost/w3svc/1/ROOT")
'Create a new web off the root
Set wNew = wRoot.Create("IIsWebVirtualDir", strWebName)
'Turn the virtualdir into a web app. True = In Process
wNew.AppCreate True

wNew.Path = App.Path
wNew.AccessScript = False
wNew.AccessRead = True
wNew.AccessWrite = True
wNew.EnableDirBrowsing = False
wNew.AccessExecute = True
wNew.AppFriendlyName = strLongName
wNew.AspAllowSessionState = True
wNew.AspSessionTimeout = "30" 'minutes
wNew.AspBufferingOn = True
wNew.AspEnableParentPaths = True
wNew.AspScriptLanguage = "VBScript"
wNew.AspScriptTimeout = "900" 'seconds
wNew.AppAllowClientDebug = False
wNew.AppAllowDebugging = False
wNew.AspScriptErrorSentToBrowser = True
wNew.EnableDefaultDoc = True
wNew.DefaultDoc = "Default.htm,Default.asp,iisstart.asp,index.html"
wNew.EnableDocFooter = False
wNew.AuthAnonymous = True
wNew.AuthBasic = True
wNew.AuthNTLM = True
wNew.DefaultLogonDomain = "" 'Put nothing here to use the default domain.
'Commit all settings
wNew.SetInfo



رفرنس های زیر یادت نره:

OLE Automation
Typelib Information
Microsoft Scripting Runtime

مرسی دقیقا همینه اما نمیدونم چرا خطا میده
میشه سورسشو upload کنی؟

[Babak.Hassanpour]

کمی صبر کنید ببینم چکار می تونم بکنم

[sohrab o]

آقا مرسی دقیقا همون چیزی بود که میخواستم
سورسشو ردیف کردم
اما یه چیزه دیگه؟
چطوری asp.net version تنظیم کنم؟

[sohrab o]

شرمنده اما میشه بگی چطوری میشه فهمید wnew چه گزینه های دیگه ای داره؟!

[sohrab o]

سوال بعدی اینه که به نسخه سیستم عامل کاری نداره؟
منظورم اینه که میخوام هم رو xp اجرا بشه هم رو server 2003?میشه؟!