荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: zzt (我命由我不由天), 信区: Microsoft
标  题: 第二讲 创建用户、目录和站点
发信站: BBS 荔园晨风站 (Fri Apr 30 23:02:27 1999), 转信

第二讲 创建用户、目录和站点

-------------------------------------------------------------------------
-------

    本讲将使用到ADSI,即活动目录服务接口.可以到15Seconds.com找到一些相关
的资料.

  1.创建用户
    下面这段代码在独立服务器white上创建用户user1,初始口令user1,用到了ADSI
.
    Dim Username,UserPass
    Dim oDomain,oUser
    Username = "user1"
    UserPass = "user1"
    Set oDomain = GetObject("WinNT://white")
    Set oUser = oDomain.Create ("user", UserName)
    If (err.number = 0) Then
        oUser.SetInfo
        oUser.SetPassword UserPass
        oUser.SetInfo
    Else
        WScript.Echo "创建用户" & UserName & "出错!"
    End If
    Set oUser = Nothing
    Set oDomain = Nothing

  2.创建目录
    使用FileSystemObject创建目录:
    Dim FsObject
    Dim tmpFolder
    Set FsObject = WScript.CreateObject("Scripting.FileSystemObject")
    tmpFolder = "D:\userdate\user1"
    If Not FsObject.FolderExists(tmpFolder) Then
        FsObject.CreateFolder(tmpFolder)
        If Err.Number<>0 Then
            WScript.Echo "创建目录" & tmpFolder & "失败!"
        End If
    End If
    注意在创建目录前,先检查了目录是否存在,如果存在,则不用创建了.

  3.创建站点
    下面这个子程序负责创建一个WWW站点,各个参数的意义为:站点IP地址,站点根
目录,站点说明,主机名,端口号,计算机名(一搬为LOCALHOST),是否立即启动,匿名访
问时所使用的帐号,匿名访问时所用帐号的口令,LOG文件的目录.
    函数返回所建站点在IIS中的序号(在IIS中,所有站点依次编号,第一个为1).
    一个调用示例:siteid = ASTCreateWebSite("10.1.3.122","d:\userdata\use
r1","www_user1","","80","LocalHost",True,"IUSR_user1","8iui%#","D:\Logfile
s")

Function ASTCreateWebSite(IPAddress, RootDirectory, ServerComment, HostNa
me, PortNum, Computer, Start,AnonymousUserName,AnonymousUserPass,LogFileDi
rectory)
    Dim w3svc, WebServer, NewWebServer, NewDir
    Dim Bindings, BindingString, NewBindings, Index, SiteObj, bDone
        On Error Resume Next
        Err.Clear
        Set w3svc = GetObject("IIS://" & Computer & "/w3svc")
        If Err.Number <> 0 Then
            WScript.Echo "无法打开: "&"IIS://" & Computer & "/w3svc" & Vb
Crlf & "程序将退出."
            WScript.Quit (1)
        End If

        BindingString = IpAddress & ":" & PortNum & ":" & HostName
        For Each WebServer in w3svc
            If WebServer.Class = "IIsWebServer" Then
                Bindings = WebServer.ServerBindings
                If BindingString = Bindings(0) Then
                    WScript.Echo "IP地址冲突:" & IpAddress & ",请检测IP地
址!." & VbCrlf & "取消创建本站点。"
                    Exit Function
                End If
            End If
        Next

        Index = 1
        bDone = False

        While (Not bDone)
            Err.Clear
            Set SiteObj = GetObject("IIS://"&Computer&"/w3svc/" & Index)
            If (Err.Number = 0) Then
                Index = Index + 1
            Else
                Err.Clear
                Set NewWebServer = w3svc.Create("IIsWebServer", Index)
                If (Err.Number <> 0) Then
                    Index = Index + 1
                Else
                    Err.Clear
                    Set SiteObj = GetObject("IIS://"&Computer&"/w3svc/" &
 Index)
                    If (Err.Number = 0) Then
                        bDone = True
                    Else
                        Index = Index + 1
                    End If
                End If
            End If

            If (Index > 10000) Then
                WScript.Echo "看起来不能创建站点,正在创建的站点的序号为
: "&Index&"." & VbCrlf & "取消创建本站点。"
                Exit Function
            End If
        Wend

        NewBindings = Array(0)
        NewBindings(0) = BindingString
        NewWebServer.ServerBindings = NewBindings
        NewWebServer.ServerComment = ServerComment
        NewWebServer.AnonymousUserName = AnonymousUserName
        NewWebServer.AnonymousUserPass = AnonymousUserPass
        NewWebServer.KeyType = "IIsWebServer"
        NewWebServer.FrontPageWeb = True
        NewWebServer.EnableDefaultDoc = True
        NewWebServer.DefaultDoc = "Default.htm, Default.asp, Index.htm, I
ndex.asp"
        NewWebServer.LogFileDirectory = LogFileDirectory
        NewWebServer.SetInfo

        Set NewDir = NewWebServer.Create("IIsWebVirtualDir", "ROOT")
        NewDir.Path = RootDirectory
        NewDir.AccessRead = true
        NewDir.AppFriendlyName = "应用程序" & ServerComment
        NewDir.AppCreate True
        NewDir.AccessScript = True
        Err.Clear
        NewDir.SetInfo
        If (Err.Number = 0) Then
        Else
            WScript.Echo "主目录创建时出错."
        End If

        If Start = True Then
            Err.Clear
            Set NewWebServer = GetObject("IIS://" & Computer & "/w3svc/"
& Index)
            NewWebServer.Start
            If Err.Number <> 0 Then
                WScript.Echo "启动站点时出错!"
                Err.Clear
            Else
            End If
        End If
        ASTCreateWebSite = Index
End Function

    下面函数创建FTP站点:
Function ASTCreateFtpSite(IPAddress, RootDirectory, ServerComment, HostNa
me, PortNum, Computer, Start,LogFileDirectory)
    Dim MSFTPSVC, FtpServer, NewFtpServer, NewDir
    Dim Bindings, BindingString, NewBindings, Index, SiteObj, bDone
        On Error Resume Next
        Err.Clear
        Set MSFTPSVC = GetObject("IIS://" & Computer & "/MSFTPSVC")
        If Err.Number <> 0 Then
            WScript.Echo "无法打开: "&"IIS://" & Computer & "/MSFTPSVC" &
 VbCrlf & "程序将退出."
            WScript.Quit (1)
        End If

        BindingString = IpAddress & ":" & PortNum & ":" & HostName
        For Each FtpServer in MSFTPSVC
            If FtpServer.Class="IIsFtpServer" Then
            Bindings = FtpServer.ServerBindings
            If BindingString = Bindings(0) Then
                WScript.Echo "IP地址冲突:" & IpAddress & ",请检测IP地址!
." & VbCrlf & "取消创建本站点。"
                Exit Function
            End If
            End If
        Next

        Index = 1
        bDone = False

        While (Not bDone)
            Err.Clear
            Set SiteObj = GetObject("IIS://"&Computer&"/MSFTPSVC/" & Inde
x)
            If (Err.Number = 0) Then
                Index = Index + 1
            Else
                Err.Clear
                Set NewFtpServer = MSFTPSVC.Create("IIsFtpServer", Index)
                If (Err.Number <> 0) Then
                    Index = Index + 1
                Else
                    Err.Clear
                    Set SiteObj = GetObject("IIS://"&Computer&"/MSFTPSVC/
" & Index)
                    If (Err.Number = 0) Then
                        bDone = True
                    Else
                        Index = Index + 1
                    End If
                End If
            End If

            If (Index > 10000) Then
                WScript.Echo "看起来不能创建站点,正在创建的站点的序号为
: "&Index&"." & VbCrlf & "取消创建本站点。"
                Exit Function
            End If
        Wend

        NewBindings = Array(0)
        NewBindings(0) = BindingString
        NewFtpServer.ServerBindings = NewBindings
        NewFtpServer.ServerComment = ServerComment
        NewFtpServer.AllowAnonymous = False
        NewFtpServer.AccessWrite = True
        NewFtpServer.AccessRead = True
        NewFtpServer.DontLog = False
        NewFtpServer.LogFileDirectory = LogFileDirectory
        NewFtpServer.SetInfo

        Set NewDir = NewFtpServer.Create("IIsFtpVirtualDir", "ROOT")
        NewDir.Path = RootDirectory
        NewDir.AccessRead = true
        Err.Clear
        NewDir.SetInfo
        If (Err.Number = 0) Then
        Else
            WScript.Echo "主目录创建时出错."
        End If

        If Start = True Then
            Err.Clear
            Set NewFtpServer = GetObject("IIS://" & Computer & "/MSFTPSVC
/" & Index)
            NewFtpServer.Start
            If Err.Number <> 0 Then
                WScript.Echo "启动站点时出错!"
                Err.Clear
            Else
            End If
        End If
        ASTCreateFtpSite = Index
End Function

注:如果您想引用上面的代码,请与white联系以取得技术支持.

--



日出东方,唯我不败;
    天上地下,唯我独尊。

※ 来源:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.1.144]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店