This vbscript should work but not fully tested.
Code:
Dim oFS0, oFS1, oFolder, WshShell, strPath, CreateFolder
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oFS0 = WScript.CreateObject("Scripting.FileSystemObject")
'change get folder path
strPath = "E:\Data\Users Home Directories\Students\"
Set oFolder = oFS0.GetFolder(strPath)
CreateFolders oFolder
Sub CreateFolders(oF)
Dim F
For Each F In oF.subfolders
'Create directories for each folder in the above path
Set oFS1 = CreateObject("Scripting.FileSystemObject")
Set CreateFolder = oFS1.CreateFolder(strPath & "\" & F.name & "\My Documents\ICT")
Set CreateFolder = oFS1.CreateFolder(strPath & "\" & F.name & "\My Documents\Science")
Set CreateFolder = Nothing
Set oFS1 = Nothing
Next
End Sub
'clean up
set oFolder = nothing
Set oFS0 = Nothing
set wshshell = nothing EDIT:
This doesnt check if the folder exist or not and will go through every folder in the students folder so be aware.