Solved

Need help creating a script.

Posted on 2009-03-30
6
411 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 our DevOps Teams Maximize Uptime

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us. Read the use case whitepaper.

 
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

In this tutorial I will show you how to make a simple HTML bar chart with the usage of WhizBase, If you want more information about WhizBase please read my previous articles at http://www.experts-exchange.com/ARTH_5123186.html (http://www.experts-ex…
It is a general practice to get rid of old user profiles on a computer  in a LAN environment. As I have been working with a company in a LAN environment where users move from one place to some other place at times. This will make many user profil…
This tutorial will teach you the core code needed to finalize the addition of a watermark to your image. The viewer will use a small PHP class to learn and create a watermark.
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

752 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