asp建立使用者、目錄和網站(轉)

    本講將使用到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:userdateuser1"
    If Not FsObject.FolderExists(tmpFolder) Then
        FsObject.CreateFolder(tmpFolder)
        If Err.Number<>0 Then
       WScript.Echo "建立目錄" & tmpFolder & "失敗！"
        End If
    End If
    注意在建立目錄前,先檢查了目錄是否存在,如果存在,則不用建立了.