Como criar pasta via script na área de trabalho

Pessoal,
É o seguinte tenho o script de logon abaixo no meu AD win 2008, segue:


' Copyright (c) 2003-2010
' DATE : 4/10/2003
'
' COMMENT: Enumerates current users' group memberships in given domain.
' Maps and disconnects drives and printers
'
'==========================================================================


ON ERROR RESUME NEXT

Dim WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, Path


Set WSHShell = CreateObject("WScript.Shell")
Set WSHNetwork = CreateObject("WScript.Network")
'Automatically grab the user's domain name
DomainString = Wshnetwork.UserDomain
'Find the Windows Directory
WinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")

'Grab the user name
UserString = WSHNetwork.UserName
'Bind to the user object to get user name and check for group memberships later
Set UserObj = GetObject("WinNT://" & DomainString & "/" & UserString)

'Grab the computer name for use in add-on code later
strComputer = WSHNetwork.ComputerName

'Disconnect ALL mapped drives
Set clDrives = WshNetwork.EnumNetworkDrives
For i = 0 to clDrives.Count -1 Step 2
WSHNetwork.RemoveNetworkDrive clDrives.Item(i), True, True
Next

'Give the PC time to do the disconnect, wait 300 milliseconds
wscript.sleep 300

'Map drives needed by all
'Note the first command uses the user name as a variable to map to a user share.
'Note alternate mapping code in Add-In section that allows
'friendly renaming of drive mappings


'ATALHO PARA WORD NA AREA DE TRABALHO DO USUÁRIO

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\WORD.lnk")
oShellLink.TargetPath = "C:\Program Files\Microsoft Office\Office14\winword.exe"
oShellLink.WindowStyle = 1
'oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.Description = "WORD"
oShellLink.WorkingDirectory = "C:\Program Files\Microsoft Office\Office14\winword.exe"
oShellLink.Save
Basicamente o que esse script de logon faz é criar um atalho para o Word na área de trabalho do usuário OK?
Então preciso do seguinte, um script de logon que crie uma pasta OFFICE e dentro dessa pasta eu tenha todos os atalhos ao Office: Word,Power Point e Excel...alguma sugestão?
OBRIGADO.