The below script is what i am executing to copy a dll file on to all my Windows Xp Computers. During the package creation i have given run with admin privileges.
On server1 i have shared a folder which contains my dll file(xyz.dll).For testing purpose i gave full permission in sharing and security for Domain users and doman Computers.
The name of this script lets say testvbs, wht should i give the command line. There is no issue with the script i belive
' ' VBScript
Option explicit
' Next line is important, as it calls our function:
'Wscript.Echo CopyAFile( "\\Server1\SharedFolder", "c:\Program Files\Software", "abc.dll")
Dim strMsg
strMsg = CopyAFile( "\\Server1\SharedFolder", "c:\Program Files\Software", "abc.dll")
' Next three lines illustrate correspondence of data to arguments:
''' strSourceFolder := "\\Server1\SharedFolder"
''' strTargetFolder := "c:\Program Files\Software"
''' strFileName := "abc.dll"
'
Wscript.Quit
Function CopyAFile( Byval strSourceFolder, Byval strTargetFolder, Byval strFileName)
'
' Presumptions:
' strSourceFolder folder must exist
' strTargetFolder folder must exist
' strFileName file must exist in strSourceFolder folder
'
Dim objFSO, booOverWrite, strResult
Set objFSO = CreateObject( "Scripting.FileSystemObject")
If objFSO.FileExists( strSourceFolder & "\" & strFileName) _
And UCase( strSourceFolder) <> UCase( strTargetFolder) Then
If objFSO.FolderExists( strTargetFolder) Then
Else
strResult = "The destination folder does not exist! In general, creating a folder may be a non-trivial task."
CopyAFile = strResult
Exit Function
End If
If objFSO.FileExists( strTargetFolder & "\" & strFileName) Then
strResult = "The file exists, overwritten"
booOverWrite = vbTrue
Else
strResult = "The file does not exist, created"
booOverWrite = vbFalse
End If
objFSO.CopyFile strSourceFolder & "\" & strFileName, strTargetFolder & "\", booOverWrite
Else
strResult = "The source file does not exist, or identical Source and Target folders!"
End If
CopyAFile = strResult
End Function
