LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

IIS 常用操作编程实现(VB6)

admin
2014年3月26日 7:58 本文热度 5696
  原先我是不知道的,在网上也是一直找不到相关资料,后来无意间在一个delphi版的 介绍中看到了相关的内容,于是用vb仿做了一个。
  如果也有人无意间看到受益,则大感欣慰也。
  基础:添加以下引用:1,iisext.dll; 2, adsiis.dll; 3,activeds.tlb。
  1,在 IIS 建立虚拟目录,
   Dim sComputer as string
   Dim websvc, vRoot, vDir
   sComputer = "localhost"
  
   'Get Default Web Site Object
   Set websvc = GetObject("IIS://" & sComputer & "/W3svc/1")
  
   'Get root of Default Web Site
   Set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root")
  
   Dim itm As ListItem
   Dim buf As String, errInfo As String, tryVirt
   For Each itm In ListView1.ListItems
   Err.Clear
   On Error Resume Next
   Set tryVirt = GetObject("IIS://" & sComputer & "/W3svc/1/ROOT/" & itm.SubItems(1))
   'Debug.Print Err.Number
   '如果得不到对应的虚拟目录,则出错,此时可以新建此虚拟目录。
   If Err.Number <> 0 Then
   Err.Clear
   Set vDir = vRoot.Create("IISWebVirtualDir", itm.SubItems(1))
   vDir.path = itm.Text
   vDir.Accessread = True
   vDir.SetInfo
  
   Else
   '记录已经创建的虚拟目录名称。
   'If tryVirt.AppGetStatus2 = 0 Then
   errInfo = errInfo & vbCrLf & itm.SubItems(1)
   End If
  
   Next
  其实就是
   Set websvc = GetObject("IIS://" & sComputer & "/W3svc/1")
   Set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root")
   Set vDir = vRoot.Create("IISWebVirtualDir", vdName)
   vDir.Path=someDir
   vDir.setInfo
  这几个语句就够了
  2。删除虚拟目录
   Dim sComputer, sPhyDir, sVirDir As String
   Dim websvc, vRoot, vDir
   sComputer = "localhost"
  
   'Get Default Web Site Object
   Set websvc = GetObject("IIS://" & sComputer & "/W3svc/1")
  
   'Get root of Default Web Site
   Set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root")
  
   Dim itm As ListItem
   Dim buf As String, errInfo As String, tryVirt
   For Each itm In ListView1.ListItems
   Err.Clear
   On Error Resume Next
   Call vRoot.Delete("IISWebVirtualDir", itm.SubItems(1))
   If Err.Number <> 0 Then
   errInfo = errInfo & vbCrLf & itm.SubItems(1)
   End If
   Err.Clear
   Next
  3。其他诸如建立站点,删除站点可以类似做到,具体可以通过在 msdn 中搜索 IISWebVirtualDir 看到

该文章在 2014/3/26 7:58:11 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved