Criação de Script VBS para criação e mapeamento de pastas automáticas

Como criar um script VBS para que cada usuário que se logar crie a sua pasta dentro do seu departamento e mapea-lá, com mais algumas unidades de rede também…

Script:

Set wshell = createobject(“wscript.network”)
user1 = wshell.username
Set FileClass = CreateObject(“Scripting.FileSystemObject”)
Directory = “\\FileServer\User\” & user1
If FileClass.FolderExists (Directory) = False Then
FileClass.CreateFolder (Directory)
End If
OBS: Para que funcione direito o usuário deve ter acesso de criar diretórios no diretório compartilhado no file Server.

#ficaadica