Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Need help creating a script.

Posted on 2009-03-30
6
Medium Priority
?
415 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
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
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 2000 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

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

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…
Active Directory replication delay is the cause to many problems.  Here is a super easy script to force Active Directory replication to all sites with by using an elevated PowerShell command prompt, and a tool to verify your changes.
The viewer will learn how to dynamically set the form action using jQuery.
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 …

664 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