Copy Files. Read Computer Names

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Copy Files. Read Computer Names

Logged in as: Guest

arrSession:exec spGetSession 2,16,61742

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Copy Files. Read Computer Names
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Copy Files. Read Computer Names - 6/23/2008 5:21:16 AM

jcarver_14

Posts: 25
Score: 0
Joined: 6/4/2008
From: Cincinnati
Status: offline

On error Resume Next
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("Computer Names.txt", ForReading)
Set fso=CreateObject("Scripting.FileSystemObject")
Set objOutFile = objFSO.OpenTextFile("Failed.txt", 8, True)
Set objOutFile2 = objFSO.OpenTextFile("Completed.txt", 8, True)
Do Until objTextFile.AtEndOfStream
   Computer_Names = objTextFile.Readline
wmiQuery = "Select * From Win32_PingStatus Where " & _
   "Address = '" & Computer_Names & "'"
   
   Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
   Set objPing = objWMIService.ExecQuery(wmiQuery)
   
   For Each objStatus in objPing
       If IsNull(objStatus.StatusCode) Or objStatus.Statuscode<>0 Then
           objOutFile.WriteLine Computer_Names
       Else
           fso.CopyFile "%file%", "\\" & Computer_Names & "\C$\",TRUE
           objOutFile2.WriteLine Computer_Names
       End If
Next
Loop
MsgBox("The script has finished running.  Make sure to check the Completed.txt file and the Failed.txt file for the results of your copy.")

In case your like me and you dont know much about vbs heres how this works and what you need to do.

How it works:

This reads a list of computer names from a txt file. It then pings each one. If it does not ping it writes the computer name to a txt file called Failed.txt. If it does ping it will copy the file you specify to the destination you specified on the computer then write the computer name to a text file named Completed.txt.

What you need to do:

Because this script works out of a folder you will need to create a folder for it. ex. Copy Files... and place the script into it. Then create a txt file named Computer Names.txt inside the same folder and enter the computer names into it. Open the vbs script for editing. you will need to edit line 21. If you can place the file to be copied into the folder as well that works great. Just replace %file% with the file name. be sure to include the extention. If you would like to keep the folder in its location just replace it with the path. ex. C:\folder\test.txt. Then you will need to edit the destination. it is curently set to \\computername\C$\ and is in line 21 as well. When the script has finished it will display a messsage box letting you know.