Set objNetwork = CreateObject("Wscript.Network")
strUser = objNetwork.UserName
'Change strPath to the intended folder
strPath = "C:\Documents and Settings\" & strUser & "\Application Data\Microsoft\Templates"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Wscript.Echo strUser
Wscript.Echo strPath
If objFSO.FolderExists(strPath) Then
Wscript.Echo "The folder exists."
Else
Wscript.Echo "The folder does not exist."
End If