双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

怎么自动创建虚拟目录？

2003-07-22 10:42:37 391 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ahr 墨衍会员 · AI 创作全网分发关注 + 加入社区

图像配准(Image Registration)——深度学习方法参考：https://www.cnblogs.com/carsonzhu/p/11188574.html 阅读详情

怎么自动创建iis虚拟目录？

...全文

badusb详细制作教程（两种方式实现远控） badusb是一种几乎可以突破任何杀毒软件和防火墙的设备，堪称渗透测试利器文章目录前言一、什么是badusb？二，badusb的优点三，badusb是如何攻击的？badusb原理HID攻击漏洞产生原因三、准备步骤1.设备2，编辑器的安装与设置四，编写代码(重点)第一种： SEToolkit + badusb实现PowerShell注入攻击第二种：Cobalt Strike + badusb 实现PowerShell注入攻击五，烧录六，badusb有多强大攻击场景总结 BadUSB是《黑客军团》中阅读详情

ahr

IIS 8,329 成员 16,634 内容

+ 关注 + 加入社区

切换为时间正序

banner90 2003-08-05

打赏
举报

看不懂

lcm 2003-08-04

打赏
举报

能否写一个完整的例子？

ahr 2003-07-22

打赏
举报

好，谢谢了。我的信箱ahr@163.net

andrew00 2003-07-22

打赏
举报

应该是可以的~
但不如自己直接设置IIS拉
我在哪里看到过用程序来控制的，我找到发给你~

ahr 2003-07-22

打赏
举报

我想做安装程序，把我的asp文件安装到一个目录后，自动在iis上创建一个指向我的目录的虚拟目录。

sw47 2003-07-22

打赏
举报

怎么个自动法?

Cooly 2003-07-22

打赏
举报

再给一些例子

<%
Dim WebServerRootObj
Dim VDirObj
Dim WritePerm

' Open the object for the first virtual Web server root
Set WebServerRootObj = GetObject("IIS://MyComputer/W3SVC/1/Root")

' Deny write access for all directories and files
' for the server (except those already specifically set)
' Using the Put method
WebServerRootObj.Put "AccessWrite", False

' Save the changed value to the metabase
WebServerRootObj.SetInfo

' Get a directory subordinate to the Web server root. Note that this line of code assumes
' Vdir1 has already been created.
Set VDirObj = GetObject("IIS://MyComputer/W3SVC/1/Root/Vdir1/Dir1a")

' Overwrite the inherited value for write access
' using the dot method equivalent to Put
VDirObj.AccessWrite = True

' Save the changed value to the metabase
VDirObj.SetInfo
%>

ADSI ASP Script
The next example shows you how to write a customized script to create a virtual directory with Read, Script, and Directory browsing permission.

<%
'''''''''''''''''''''''''''''''''
' ADSI ASP Sample Program
' This is a sample of how to create a virtual directory using ADSI.
'
'''''''''''''''''''''''''''''''''
Option Explicit
On Error Resume Next

'''''''''''''''''''''''
' First, open the path to the Web server you are
' trying to add a virtual directory to.

Dim ServObj
Dim VdirObj
Dim Testpath

Set ServObj = GetObject("IIS://LocalHost/w3svc/1/Root")
if (Err <>0) then
Response.Write "GetObject (""IIS://LocalHost/w3svc/1/Root"") Failed! "
Response.Write "Error! " & Err.Number & "(" & Hex(Err.Number) & "): " & Err.Description & " "
Response.End
end if

'''''''''''''''''''''''
' Second, Create the virtual directory (Vdir) path
Set VdirObj = ServObj.Create("IIsWebVirtualDir", "MyVdir")
VdirObj.SetInfo
if (Err<>0) then
Response.Write "CreateObject (""IIS://LocalHost/w3svc/1/Root/MyVdir"") Failed! "
Response.Write "Error! " & Err.Number & "(" & Hex (Err.Number) & "): " & Err.Description &

" "
Response.End
end if

''''''''''''''''''''''''
' Finally, create a Path variable containing the virtual root path and
' set the permissions to read, script, and directory browsing
VdirObj.AccessRead = True
VdirObj.AccessScript = True
VdirObj.EnableDirBrowsing = True
Testpath = "C:\Temp"
VdirObj.Put "Path", (Testpath)

VdirObj.SetInfo
if (Err<> 0) then
Response.Write "Put (""Path"") Failed!"
Response.Write "Error! " & Err.Number & "(" & Hex (Err.Number) & "): " & Err.Description &

" "
Response.End
end if

Response.Write "VDIR successfully created"

''''''''''''''''''''''''
' The minimum amount necessary to create a virtual directory has now
' been completed. If you need to add more, do it here.

%>

Cooly 2003-07-22

打赏
举报

给你一个FTP的例子，WebSite差不多

Public Function CreateFtpSite(ByVal strComputerName As String, strIPAddress As String, ByVal strRootDirectory As String, ByVal strServerComment As String, ByVal iPortNum As Integer, ByVal bStart As Boolean, ByVal iSiteNumber As Integer, ByVal strUserName As String, ByVal strPassword As String)
Dim bDone
Dim oFtpServer
Dim oFtpSite
Dim oMsFtpSvc
Dim oNewFtpServer
Dim oNewDir
Dim oNewDirInfo

Err.Clear

On Error Resume Next

'取FTP服务地址
Set oMsFtpSvc = GetObject("IIS://" & strComputerName & "/MSFTPSVC")

If Err.Number <> 0 Then
MsgBox "不能打开: " & "IIS://" & strComputerName & "/MSFTPSVC"
Exit Function
End If

'创建新的FTP站点.其中站点索引号为递增号码,一般默认FTP站点为1.在实际使用中,可以判断一共有多少个站点.然后索引号加一即可.
'如果需要创建虚拟目录,操作完全一样.

Set oNewFtpServer = oMsFtpSvc.Create("IIsFtpServer", iSiteNumber)
oNewFtpServer.SetInfo
If (Err.Number <> 0) Then
MsgBox "不能创建FTP站点. 可能是站点索引号已存在. 站点索引号: " & iSiteNumber
Exit Function
End If

Err.Clear

'设置新FTP站点的属性
oNewFtpServer.ServerBindings = strIPAddress & ":" & iPortNum & ":"
oNewFtpServer.ServerComment = strServerComment
oNewFtpServer.SetInfo

Set oNewDir = oNewFtpServer.Create("IIsFtpVirtualDir", "ROOT")
oNewDir.Path = strRootDirectory

oNewDir.AccessRead = True '允许读访问
oNewDir.AccessWrite = True '允许写访问
oNewDir.SetInfo

'设置匿名访问账号
oMsFtpSvc.AllowAnonymous = True
oMsFtpSvc.AnonymousUserName = strUserName
oMsFtpSvc.Anonymouspassword = strPassword
oMsFtpSvc.SetInfo

'启动新的FTP站点
If bStart = True Then
Err.Clear
oNewFtpServer.Start
If Err.Number <> 0 Then
MsgBox strServerComment & "无法自动启动,请察看是否有使用相同端口的FTP服务正在运行"
End If
End If

MsgBox "FTP站点创建成功! : " & "IIS://" & strComputerName & "/MSFTPSVC/" & iSiteNumber

End Function

buddyli 2003-07-22

打赏
举报

看看已解决的问题！

liuzxit 2003-07-22

打赏
举报

通過installShield打包可以做到，不過我沒了那份資料，你就用installShield搜索一下可以找到的

ruanjiancomputer 2003-07-22

打赏
举报

我也要jiangjiecomputer@163.com

✦双11狂欢大促✦

怎么自动创建虚拟目录？

相关推荐

双11狂欢大促