ASP create users, directories, and sites (turn)

This lecture will use ADSI, the Active Directory service interface. You can find some relevant information in 15seconds.com.
1. Create user
The following code creates the user User1 on the standalone server white, the initial password User1, and uses 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 "Create User" & UserName & "Error!" "
End If
Set ouser = Nothing
Set Odomain = Nothing
2. Create a table of contents
To create a directory using 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 "Create Directory" & Tmpfolder & "Failed!" "
End If
End If
Note Before you create a directory, check that the directory exists and, if it exists, you do not have to create it.