Code Snippet
Set WshShell = WScript.CreateObject("WScript.Shell")
Set wshNetwork = WScript.CreateObject( "WScript.Network")
usuario = WshNetwork.UserName
'sincroniza hora
WshShell.run("net time /setsntp:<server>")
'Mapeia pastas de rede
WshNetwork.RemoveNetworkDrive "Z:", true
WshNetwork.MapNetworkDrive "Z:", "\\Server\Pasta"
'Mapeia uma pasta que tenha o mesmo nome que o login do usuário
WshNetwork.RemoveNetworkDrive "X:", true
WshNetwork.MapNetworkDrive "X:", "\\Server\" & usuario