I have a situation where I need to update a file on a bunch of computers. Obviously I don't want to have to manually do the copying and I don't want to have to install any software or tools. I would like to write an app or even a script if that would work better. I need this for work like yesterday. Points will go to the first doable code that works for me.
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
If u are using Novell Network then u can copy ur file in the working directory and add the copy command in the host file. When ever the computer boots it shall run the host file and copy the file onto the computer. This might be possible in other networks also, but i am not sure about that.
I hope this is useful.
Sac
It is necessary for us to know are you have write access to shared folders on all computers ?
How you copy this file until now ? From one central place to all computers, or you sit on every computer and copy file from some central place ?
If we can't know answers of these wuestions we can give to you only suggestions. Please, describe your problem as more as possible.
One possible solution (if you have write access to shared folder on remote computers ?!?!? and if file on remote computers are not locked from some app on it ?!?!?) is to write an app, wich will copy this file to every computer like this:
On Error Resume Next
Dim lngL As Long
Dim lngCompsCount As Long
Dim mstrCompIPs() As String
' Set number of computers on your network, that must be provided with new file
lngCompsCount=50 ' Change 50 with number of computers
' Fill computer IP's in string array
ReDim mstrCompIPs(lngCompsCount)
mstrCompIPs(1)="192.168.0.
mstrCompIPs(2)="192.168.0.
mstrCompIPs(3)="192.168.0.
mstrCompIPs(4)="192.168.0.
mstrCompIPs(5)="192.168.0.
' Fill all members of mstrCompIPs with IP addresses of computers need updated file
' If IP addresses are ordered, you can you some loop to fill mstrCompIPs
' Use FileCopy to copy local file to remote shared folder
For lngL=1 To lngCompsCount
' Clear error
Err.Clear
' Perform FileCopy of local file to remote computer shared folder
FileCopy "C:\MyDir\MyNewFile.doc" , "\\" & mstrCompIPs(lngL) & "\SharedFolderOnRemoteComp
' If some error occur print it to immediate window
If Err.Number<>0 Then
Debug.Print Now & " -> " & lngL & " (" & mstrCompIPs(lngL) & ") -> " & Err.Description
' Clear Error
Err.Clear
End If
Next 'lngL
In above example, FileCopy looks like this (example is for first IP address):
FileCopy "C:\MyDir\MyNewFile.doc" , "\\192.168.0.2\NewDocs\MyN
If you have write access to remote computers, there is no reason FileCopy to fail.
Information on failure is provided in immediate window if for some reason FileCopy fails.
Excuse me for my bad English.
Hope this helps.
Best regards,
Georgi Ganchev
Ok basically what we are going to do is similar to the above script. We just need to check a property on the file that you are updating. My guess is that the file size will change as a result of this upgrade so this is what we can check. We should setup a log file and have the results of each query get sent to the log file. This script assumes that the size of the new file should be 96450.
logfile = "C:\logfile.log"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Sub tolog(ltext, state)
If state=1 Then
wscript.echo ltext
End If
Set fso = CreateObject("Scripting.Fi
Set objFile = fso.OpenTextFile(logfile, 8, True)
objFile.WriteLine ltext
objFile.Close
End Sub
'*************************
Const OverwriteExisting = True
dim ip, myip
myip = Array(63,64,65,66,67,68,69
For Each ip in myip
Set WshShell = CreateObject("WScript.Shel
Set FSO = CreateObject("Scripting.Fi
WshShell.Run ("cmd /c net use y: \\10.1.1." & ip & "\d$ /user:admin password")
wscript.sleep 2000
set f = FSO.GetFile ("y:\myfolder\myfile.txt")
If f.Size = 96450 Then
tolog "The file on computer 10.1.1." & ip & " has been properly updated.", 0
Else
tolog ""The file on computer 10.1.1." & ip & " has NOT been properly updated.", 0
End If
Next
'*************************
After this runs you should have a file called logfile.log on the root of the C:\ which contains all of the pcs and whether or not they have received the update.
Business Accounts
Answer for Membership
by: ScrptMastaPosted on 2004-02-14 at 20:56:32ID: 10363949
Try and see if this doesn't help your cause any. I had to use this for a similar task in the past. What is going on here may be more then you need and you can take out or add what you need to fit for you. Basically what is happening here is as follows:
I'm going to update a file called myfile.txt on a bunch of computers.
Computers are all in the same subnet 10.1.1.0/24.
1. First thing we do is map a drive to the computer to copy the file.
2. Then we set our object and change its read-only attribute.
3. Then we copy the new file over.
4. Change the file back to read-only
5. Delete the mapped drive
Const OverwriteExisting = True
dim ip, myip
myip = Array(63,64,65,66,67,68,69
For Each ip in myip
Set WshShell = CreateObject("WScript.Shel
Set FSO = CreateObject("Scripting.Fi
WshShell.Run ("cmd /c net use y: \\10.1.1." & ip & "\d$ /user:admin password")
wscript.sleep 2000
set f = FSO.GetFile ("y:\myfolder\myfile.txt")
f.attributes = f.attributes - 1
WshShell.Run ("cmd /c copy /Y c:\myfile.txt y:\myfolder")
wscript.sleep 5000
f.attributes = f.attributes + 1
msgbox "Check and Go Next"
WshShell.Run ("cmd /c net use y: /d")
wscript.sleep 2000
Next
The array consists of the last octet of each computers address. It will map a drive to each one, change the attribute, copy the file, change the attribute back and then kill the connection for each pc.
Now the con with using a script is that there isn't much for error and exception handling. In my example I had to make sure that the file did indeed copy so I kind of set a break by putting the message box in there so I could check before it killed the drive. You can just remove that if you want but if for some reason it errors you wont know where it left off. You can write a log file to send info to or something. You could add "On Error Resume Next" to the top but then you will still need a piece to run after to verify all of the copies took place.