Solved

Need help creating a script.

Posted on 2009-03-30
6
404 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
  • 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 to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

 
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

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

I hope you'll find this tutorial useful and interesting. So let's try to extend Tcl with a new package.  For anyone more deeply interested please check out the book "Practical Programming in Tcl and Tk". It's really one of the best written books abo…
This article is meant to give a basic understanding of how to use R Sweave as a way to merge LaTeX and R code seamlessly into one presentable document.
The viewer will learn how to look for a specific file type in a local or remote server directory using PHP.
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…

757 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

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now