Basic script to create a folder in the script folder, there is plenty of help online, so you should be able to adapt it with little hassle.
Dim objFSO
Dim strFLD
Dim strCPath
strCPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"",1,-1,1)
Set objFSO=WScript.CreateObject("Scripting.FileSystemObject")
strFLD = trim(INPUTBOX("Folder Name"))
If len(strFLD) = 0 Then WScript.Quit(0)
If Not objFSO.FolderExists(strCPath & strFLD) then
objFSO.CreateFolder(strCPath & strFLD)
End If
Set objFSO = Nothing