Script Does Not Work

Can't figure this script out. It runs, returns no errors but does not work. The file does not copy. And yes the file does exists. I am trying to use the variable %USERNAME% in the script.
Option Explicit
Dim objFSO, objShell
Dim strUser
Set objShell = CreateObject("Wscript.Shell")
strUser = objShell.ExpandEnvironmentStrings("%USERNAME%")
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
If objFSO.FileExists("C:\Documents and Settings\ & strUser & \Application Data\Microsoft\Outlook\ & strUser & .NK2") Then
     objFSO.CopyFile "C:\Documents and Settings\ & strUser & \Application Data\Microsoft\Outlook\ & strUser & .NK2" , "\\servername\ & strUser & \ & strUser & .NK2" , True
 
End If
 
set objFSO = nothing
set strUser = nothing
WScript.Quit

Open in new window

barrykeelAsked:
Who is Participating?
 
wtstaddConnect With a Mentor Commented:
Looks like you didn't have your " in the correct places.
Option Explicit
Dim objFSO, objShell
Dim strUser
Set objShell = CreateObject("Wscript.Shell")
strUser = objShell.ExpandEnvironmentStrings("%USERNAME%")
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
If objFSO.FileExists("C:\Documents and Settings\" & strUser & "\Application Data\Microsoft\Outlook\" & strUser & ".NK2") Then
     objFSO.CopyFile "C:\Documents and Settings\" & strUser & "\Application Data\Microsoft\Outlook\" & strUser & ".NK2" , "\\servername\" & strUser & "\" & strUser & ".NK2" , True
 
End If
 
set objFSO = nothing
set strUser = nothing
WScript.Quit

Open in new window

0
 
gs121Commented:
You could try this to get the login name....

dim wsh
set wsh = createobject("WScript.Shell")
login_name = wsh.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name")

src = "C:\documents and settings\" & login_name & "\Favorites"
dim wsh
set wsh = createobject("WScript.Shell")
login_name = wsh.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name")

src = "C:\documents and settings\" & login_name & "\Favorites"
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.