On Error Resume Next

	Dim ArgCount, Path
	ArgCount = 0



	' Loop through arguments
	While ArgCount < Wscript.Arguments.Count
		
		' Determine switches used
		Select Case Wscript.Arguments(ArgCount)

			 Case "-d": 	' Designate backup version number
					' Move to next arg, which should be parameter
					ArgCount =	ArgCount + 1	
					If ArgCount => Wscript.Arguments.Count Then
						 Call UsageMsg
					Else
						 Path = Wscript.Arguments(Argcount)
					End If

			 Case "-?", "-h", "/?":
					Call UsageMsg

			 Case Else:
					Call UsageMsg

		End Select

		' Move pointer to next argument
		ArgCount = ArgCount + 1

	Wend

	If Path = "" Then
		Call UsageMsg
	End If

	Dim RootObj, NewObj
	Set RootObj = GetObject("IIS://Localhost/W3SVC/1/ROOT")
	
	Set NewObj = RootObj.Create("IIsWebVirtualDir", "ca21")

	NewObj.SetInfo

	'仮想ディレクトリのプロパティを設定
	NewObj.Path = Path

	NewObj.AccessRead = True		'アクセス権 読み取り
	NewObj.AccessWrite = False		'アクセス権 書き込み
	NewObj.AccessScript = True		'アクセス権 スクリプト
	NewObj.EnableDefaultDoc = True	'既定ドキュメントを使用
	NewObj.Defaultdoc = "default.htm,default.asp"	'既定ドキュメント
	'NewObj.EnableDirBrowsing = False	'ディレクトリ参照の許可
	'NewObj.AppIsolated = True		'別メモリ領域で実行(?)
	NewObj.AspBufferingOn = True		'バッファ処理を有効にする
	NewObj.AspEnableParentPaths = True	'親のパスを有効にする

'--IIS7以降---------------------------------------------------------------------------
	NewObj.AspMaxRequestEntityAllowed = 20971520	'最大要求エンティティボディ制限(20MB)
	NewObj.AspScriptErrorSentToBrowser = True		'ブラウザへの詳細エラー送信
'--IIS7以降---------------------------------------------------------------------------

	'アプリケーション作成
	NewObj.AppCreate True

	'アプリケーション名をセット
	NewObj.AppFriendlyName = strAlies
	NewObj.SetInfo


' Display usage messsage, then QUIT
Sub UsageMsg
  Wscript.Echo "Usage:  cscript CreateVirDir.vbs -d <VirtualDirectoryPath>"
  Wscript.Quit
End Sub