Criando pasta com nome da data atual Windos Server 2003

copie o codigo abaixo e cole no bloco de notas alterando o C:\ para o local onde quer que a pasta seja criada, depois salve com a extensao .vbs

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("Wscript.Shell")
dNow = Now
yyyy = Right(Year(dNow), 4)
mt = Right("00" &Month(dNow), 2)
dd = Right("00" &Day(dNow), 2)
NewFolder = "C:\"& dd & "-" &mt & "-" &yyyy & "\"

objFSO.CreateFolder NewFolder