Solved

Script Does Not Work

Posted on 2008-06-13
2
435 Views
Last Modified: 2012-06-22
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

0
Comment
Question by:barrykeel
2 Comments
 
LVL 3

Expert Comment

by:gs121
ID: 21781840
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
 
LVL 5

Accepted Solution

by:
wtstadd earned 500 total points
ID: 21781846
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

Featured Post

Best Practices: Disaster Recovery Testing

Besides backup, any IT division should have a disaster recovery plan. You will find a few tips below relating to the development of such a plan and to what issues one should pay special attention in the course of backup planning.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Auto-Enrollment Group Policy 2 43
Have information from one page show up on another 24 22
shadow copies 7 68
Macro Excel - Multiple If conditions 2 62
This script will sweep a range of IP addresses (class c only, 255.255.255.0) and report to a log the version of office installed. What it does: 1.)      Creates log file in the directory the script is run from (if it doesn't already exist) 2.)      Sweep…
Learn about cloud computing and its benefits for small business owners.
This video Micro Tutorial explains how to clone a hard drive using a commercial software product for Windows systems called Casper from Future Systems Solutions (FSS). Cloning makes an exact, complete copy of one hard disk drive (HDD) onto another d…
Windows 8 came with a dramatically different user interface known as Metro. Notably missing from that interface was a Start button and Start Menu. Microsoft responded to negative user feedback of the Metro interface, bringing back the Start button a…

937 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now