Help..script isn't working

G

Guest

Hi,

What is wrong with this script. Please help. I'm trying to copy an icon to
everyone's desktop and some desktops are redirected to a U: drive and others
aren't, so I'm trying to account for different locations. I'm getting a
'path not found' even though i've checked and double checked. Can anyone see
anything that is blatently wrong?

Dim objFSO, oshell, objFileCopy, sUserProfile, sUserprofile2, oProcessEnv
Set oshell = CreateObject("WScript.Shell")
Set oProcessEnv = oShell.Environment("PROCESS")
sSessionName = oProcessEnv("SESSIONNAME")
If sSessionName = "" Or LCase(sSessionName) = "console" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
systemroot = oshell.ExpandEnvironmentStrings("%SYSTEMROOT%\")
Set objFileCopy = objFSO.GetFile("\\schfs02\deployment center\scm\webica.ini")
objFileCopy.copy systemroot
sUserProfile = oShell.ExpandEnvironmentStrings("%USERPROFILE%\desktop\")
suserprofile2 = oShell.ExpandEnvironmentStrings("U:\desktop\")
Set objFileCopy = objFSO.GetFile("\\schfs02\deployment center\scm\scm.lnk")
If objfso.folderexists("%USERPROFILE%\desktop\") = TRUE then
objFileCopy.Copy sUserProfile
Else
objFileCopy.Copy suserprofile2
End IF
End IF
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Shutdown script doesn't work 4
XP Startup Script - On Screen Keyboard - Can't get it to work 4
Vista Wallpaper VB login script - refresh problem 2
Startup scripts not working 2
Do I need to dl the library(??); how to fix error message? 3
ActiveX component can't create object: 'GetObject' 2
need help with a VBScript - copies files behind links to another location 6
Creating share on Home-directory : fails on workstation ... works on server ... 1

Top