Solved

Need help creating a script.

Posted on 2009-03-30
6
410 Views
Last Modified: 2012-05-06
I need to create a script that will go to every computer on the domain and grab a file from a folder.  ex.. C:\Program Files\Saazod\Saazmobile.ini.  Copy this file too a network share. \\servername\data\test and associate it with the computer name the file was copied from.. If this is possible I could use the assistance..

Thanks.
0
Comment
Question by:Compushare
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
6 Comments
 
LVL 14

Expert Comment

by:rejoinder
ID: 24022485
Give this a shot.
Edit the following lines;
strFileName = "Saazmobile.ini"
strCurrFilePath = "C:\Program Files\Saazod\"
strNewFilePath = "\\servername\data\test\"
so as to match the path on the current file, filename and new path.

on error resume next
 
strFileName = "Saazmobile.ini"
strCurrFilePath = "C:\Program Files\Saazod\"
strNewFilePath = "\\servername\data\test\"
 
Const ADS_SCOPE_SUBTREE = 2
Set objRootDSE = GetObject("LDAP://RootDSE")
strDomain = objRootDSE.Get("DefaultNamingContext")
 
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
 
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = "Select Name from 'LDAP://" & strDomain & "' Where objectCategory='computer'"  
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
 
Do Until objRecordSet.EOF
    strComputer = objRecordSet.Fields("Name").Value
    set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    set objFile = objWMI.Get("Cim_Datafile='" & strCurrFilePath & strFileName & "'")
    intRC = objFile.Copy(strNewFilePath & strComputer & "-" & strFileName)
    if intRC <> 0 then
        'WScript.Echo "There was an error copying the file: " & intRC
    else
        'WScript.Echo "File copy successful"
    end if
    objRecordSet.MoveNext
Loop

Open in new window

0
 
LVL 1

Author Comment

by:Compushare
ID: 24029981
Should I copy this to notepad and create a batch file or should I use a power scripting editor program??
0
 
LVL 14

Expert Comment

by:rejoinder
ID: 24034707
Yes, copy the above and paste into notepad.  Save the file as <your-filename>.vbs.
Double click the file to run it.
0
How Do You Stack Up Against Your Peers?

With today’s modern enterprise so dependent on digital infrastructures, the impact of major incidents has increased dramatically. Grab the report now to gain insight into how your organization ranks against your peers and learn best-in-class strategies to resolve incidents.

 
LVL 1

Author Comment

by:Compushare
ID: 24054268
Im wanting to make it simple.. So how about renaming the saazmobile file to the computer name it was grabbed from and copying it into \\servername\shared\test folder??
0
 
LVL 14

Accepted Solution

by:
rejoinder earned 500 total points
ID: 24054398
To do that, all you need to do is change line 29 to this...
intRC = objFile.Copy(strNewFilePath & strComputer & ".ini")
0
 
LVL 1

Author Comment

by:Compushare
ID: 24063055
Ran the file..  get an error..
Windows Script Host
Line:  26
Char: 5
Error: Not Found
Code:  80041002
Source:  SWbemServicesEx
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

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

This article will show, step by step, how to integrate R code into a R Sweave document
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
The viewer will learn how to create a basic form using some HTML5 and PHP for later processing. Set up your basic HTML file. Open your form tag and set the method and action attributes.: (CODE) Set up your first few inputs one for the name and …
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …

756 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