Windows Scripting Forums - All Forums

Batch script to copy files !!

Sat, 04 Feb 2012 07:39:32 +0000

Hello Frens,

I have written a small batch script to move the files from two directories to one main directory. It should record all the activities in a log file like files have been moved successfully from directory b to directory A and total number of files moved along with timestamp but its not working. Can you please review and help? Appreciate your help. Also tell me if we can automate this to run everyday at particular time (between 10pm - 11pm)

echo "files moving at "%date%-%time%" >> c:\OutputFile.log
move "C:\A\*.*" "C:\Test" >> C:\OutputFile.log
move "C:\B\*.*" "C:\Test" >> C:\OutputFile.log
echo "files moved at "%date%-%time%" >> c:\outputfile.log

Help required on files deleted on external hard drive.

Wed, 01 Feb 2012 19:27:41 +0000

undefined

Run ini file

Wed, 09 Nov 2011 01:31:38 +0000

undefined

Automation Can't Create Object

Thu, 03 Nov 2011 08:50:21 +0000

Hi,

I have a number of JavaScript files which are used to convert .CSV into .XML. These work perfectly on my 32bit Windows 7 laptop. However, I have just upgraded to a 64bit desktop and want to be able to run the conversion files on there but every time I attempt to run I get the Automation Can't Create Object error.

I believe it has something to do with the DLL's but I am not competant enought to be able to make the changes/register the required dll's.

Does anyone know and able to give me a step by step process of what I need to do to get this to work?

Cheers

(I've attached one of the Javascript files to the thread)

SupplierAssignment.js (Size: 4.6 KB / Downloads: 1)

Launching .FLV movies through HTML

Wed, 31 Aug 2011 16:17:55 +0000

undefined

send mail script problem

Thu, 12 May 2011 19:22:08 +0000

I need a "send mail script".
I've found this in Microsoft' website:

Code:

Set objEmail = CreateObject("CDO.Message") 

set objConf = CreateObject("CDO.Configuration") 

Set objFlds = objConf.Fields 

With objFlds 

  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XXX-ex100" 

  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

  '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic 

  .Update 

End With 

Set objEmail.Configuration = objConf 

objEmail.From = "ron.nixon@fastmail.us" 

objEmail.To = "users.name@abc.com" 

objEmail.Subject = "All done!" 

objEmail.Textbody = "...here you go..." 

objEmail.Addattachment "C:\directory name of file\filename" 

objEmail.Send

I've adjusted it for my needings:
- changed smtpserver
- changed smtpserverport
- changed "From" field
- changed "To" Field
- removed "Addattachment" to lower variables number

Is there any thing left?
What I've to set for "smtpauthenticate" and "objEmail.Configuration"?

I get this error:

Code:

---------------------------

Windows Script Host

---------------------------

Script:         C:\Documents and Settings\tizio\Desktop\script\MioSendCDOEmail.vbs

Line:           20

Column:         1

Error:          The transport couldn't connect to the server.

Code:           80040213

Origin:                CDO.Message.1

---------------------------

OK   

---------------------------

I've to send many small files from some computer to the same computer, so I've created a folder with same name and path on every computer; everyday the needed things are put in that folder.
There's this script which send all files from that place to my computer, then another one who erase all files, so the folder will clean for the day after, to avoid duplicates.

All involved operative systems are Windows XP 32 bit, I don't want to add things such as program, libraries and so on; I want to obtain what I need with standard equipment.
If there are better script languages available (in the standard system) it's ok for me.

It's ok also if there are other ways to receive, as ftp or whatever.

Why can't I read posts in this forum?

Sat, 30 Apr 2011 20:44:55 +0000

undefined

powershell not working

Sat, 30 Apr 2011 13:54:17 +0000

undefined

MS Word font locked on red

Wed, 02 Mar 2011 06:26:29 +0000

While editing a text document in Word 2007 all keyboard input suddenly changed to RED font. Unable to unlock it with any of usual font changes. Changing font color or 'Theme" choices no help. All other documents are normal. Didn't choose to change font to red but are there any "shortcuts" I might have inadvertently hit? Like CTL + some key? Help.

Need code help

Mon, 31 Jan 2011 01:49:03 +0000

'Formally declare variables used by the script before trying to use them
Dim WshShl, Answer, CardImage

'Create an instance of the WScript object in order to later use the
'Popup method
Set WshShl = WScript.CreateObject("WScript.Shell")

'Display the rules of the game
WshShl.Popup "Welcome to Rock, Paper and Scissors game. Here are the " & _
"rules of the game: 1. Guess the same thing as the computer " & _
"to tie. 2. Paper covers rock and wins. 3. Rock breaks " & _
"scissors and wins. 4. Scissors cut paper and wins."

'Prompt the user to select a choice
Answer = InputBox("Type Paper, Rock, or Scissors.", _
"Let's play a game!")

'Time for the computer to randomly pick a choice
Randomize
GetRandomNumber = Round(FormatNumber(Int((3 * Rnd()) + 1)))

'Assign a value to the randomly selected number
If GetRandomNumber = 3 then CardImage = "rock"
If GetRandomNumber = 2 then CardImage = "scissor"
If GetRandomNumber = 1 then CardImage = "paper"

'Display the game's results so that the user can see if he or she won
WshShl.Popup "You picked: " & Answer & Space(12) & "Computer picked: " & _
CardImage

If Answer = "rock" & CardImage <> "Paper" then _
MsgBox "Paper Covers Rock:Computer wins!"

If Answer = "paper" & CardImage <> "Scissors" then MsgBox "Scissors Cuts Paper:Computer wins!"

If Answer = "scissor" & CardImage <> "rock" then MsgBox "Rock Breaks Scissors:Computer wins!"

If CardImage = "rock" & Answer <> "Paper" then MsgBox "Paper Covers Rock:You wins!"

If CardImage = "paper" & Answer<> "Scissors" then MsgBox "Scissors Cuts Paper:You wins!"

If CardImage = "scissor" & Answer <> "rock" then MsgBox "Rock Breaks Scissors:You wins!"

If CardImage = "paper" & Answer <> "Paper" then MsgBox "TIE!"

If CardImage = "scissor" & Answer<> "Scissors" then MsgBox "TIE!"

If CardImage = "rock" & Answer <> "rock" then MsgBox "TIE!"

WSH & VBScript

Mon, 31 Jan 2011 01:48:22 +0000

[SOLVED] Copy Script

Thu, 13 Jan 2011 14:58:10 +0000

Hello maybe someone can help me out as I am desperate,

This is probably a stupid question, but I am currently trying to write a script that copy’s files from one source directory based on the number of files in the source, to two different directory destinations. For example if I have 8 files in the source directory (A) I want to copy 4 of the 8 files in destination directory (B) and copy the other 4 files in destination directory ©. I cannot seem to figure this out anywhere! I currently have this as my script:

# Created: 1/12/2011
# Purpose: Backup SQL databases to each other

# Define source directory and destination directory’s to copy files:
$SQL01="C:\Users\Test\Desktop\SQL01Source\"
$DESTSQL02="C:\Users\Test\Desktop\SQL02\"
$DESTSQL03="C:\Users\Test\Desktop\SQL03\"

# Get Directory items number and divide number received:
(get-childitem $SQL01).count /2

#Copy Items to Destination folders:
copy-item $SQL01 $DESTSQL02 -recurse

I am stuck!

Your help would be greatly appreciated!!!!!

Thanks so much,

Test thread - please ignore

Fri, 03 Dec 2010 04:56:01 +0000

undefined

Answer “No to All” When Copying Files in Windows XP

Thu, 15 Jul 2010 06:03:09 +0000

If you’ve ever copied one directory of files over another, you’re probably pretty aware that Windows gives you an option to respond Yes To All when file conflicts arise. But what if you don’t want to overwrite the files? Windows Vista and Windows 7 were gracious enough to allow you to repeat your selected action on future conflicts but Windows XP wasn’t. Or was it? (more…)

Posted on Thu, 15 Jul 2010 05:01:34 +0000 at http://www.nilpo.com/2010/07/windows-xp/...indows-xp/
Comments: http://www.nilpo.com/2010/07/windows-xp/.../#comments

Twitter Updates for 2010-07-10

Sun, 11 Jul 2010 05:53:49 +0000

Reading: We Can Know! May 21, 2011 is Judgment Day http://bit.ly/adl71K by @WeCanKnow

I have a complaint. No, a suggestion!

Thu, 08 Jul 2010 14:36:57 +0000

Sure, we'll call it a suggestion: this forum runs the usual BBCode rules, right? It would be nice to have some sort of interface or easily accessible list of valid codes.

I mean, I have a BBCode plugin for my browser that helps a little, but things like size and color aren't covered there, and I can't for the life of me remember the valid color codes (call me spoiled for being used to an advanced user panel)

Okay, I lied, size and color are in there...

Oh, and it would be nice if I didn't have to scroll down to hit the 'Post Thread' button.

When's the party?

Thu, 08 Jul 2010 14:28:57 +0000

So, anything going to happen in here anytime soon?

Looking for guidance in designing a component maintenance tracking DB: OOoBase

Wed, 07 Jul 2010 18:15:12 +0000

I have discussions here, here and here.

What I want to do is build a tracking database for an item I repair at work: an aircraft navigational receiver. There are currently some 19 service bulletins issued by the manufacturer for this unit which address specific issues which have been discovered to be problems or for adding new capability to the units operation.

A few of these SBs modify the part number of the unit, so I may want to add some constraints later on for data validation purposes.

Nearly all the SBs are recommended but not mandatory. However, my employer has recently decided that one particular SB must be installed, and they are giving me a hard time because I can't tell them how many of the 500 or so units we have in our system need to be modified. Can you imagine how time- and labor-consuming it is to look into the belly of every jet of a regional airline to see if its NAV receivers have a little teeny square on its data plate marked out?

Anyway, in an effort to prevent this kind of informational gap from occurring again, I want to track the units by part number and serial number (even though they are all the same basic unit, I can't guarantee that there aren't two different part-number models out there with the same serial number), list the service bulletins installed on each, along with part numbers and revision numbers of each of the six major sub-assemblies. While I am at it, I can also track the Work Orders the units come in on for repair, what I found wrong with them, and what I did to repair them as well as other repairs and maintenance I performed before reissuing them out to the fleet.

That way, when the boss asks me for high-failure items, or how often a unit can go between alignments, I will be able to issue somewhat accurate statistics.

Since I use Ubuntu almost exclusively, then my choice of DB app defaults to Open Office.org BASE, which runs on HSQL, apparently.

I have a script which I wrote to create the tables I think I need, and I am currently thinking about the forms I need to build, but there are still a few issues I have to work out-- what's the best way to track the configuration of each unit (identified by a composite key of unit P/N and S/N)?

I've thought about using a separate table with the service bulletins (as boolean entities) and indexed with a unique integer primary, but then how would I ensure each index number associates with a unique set of boolean values?

I thought the most efficient way would be to have a binary-coded hexdecimal number to identify which services bulleting were applied to a unit, but I have no idea how to encode and decode the information through a form (the user would check the appropriate checkboxes and the coded number would be automagically applied to the database and vice-versa).

I have attached a rough UML I drew up in DIA Diagram Editor.

I have also attached the SQL script I used to create the latest iteration of my database, but I have done something wrong, I think-- the linking tables aren't updating for me and I have no idea what I need to do to get them to work, nor if there shouldn't be some different way of tracking the data.

VIR-432 Database script.txt (Size: 2.87 KB / Downloads: 0)

VIR-432 UML.dia.zip (Size: 4.24 KB / Downloads: 0)

HELP: Script for checking sp level in Win 2000/2003 Servers

Mon, 28 Jun 2010 10:35:38 +0000

Hi Script Guru,

I need a help for writing a script for finding the service pack installed on a windows 2000 / 2003 server. The condition is I have multiple servers say around 800 servers. Few have Service pack 1 and others have Service pack 2. I need to separate a list of servers which has Sp1 and Sp2. I don't want to login to each server for finding this information.

I have a script for pinging multiple servers. Where I place the computer names in a text file and fetch the computer name in the script and separate the servers which ping in text file 1 and which do not ping in text file 2. ( I have posted this script in another thread under this section)

Also I found your idea of using the below script for finding the sp level

WScript.Echo strOSLongName, strSPLongName
WScript.Echo "Version:", strOSVersion
WScript.Echo "Build:", intBuild
WScript.Echo "Service Pack Level:", intSPMajorVersion
WScript.Echo "SP Version:", strSPVersion

Its confusing for me in using the above script.

Can you please post a script that fulfill my requirements?
This might be useful for others too http://www.windowsscript.com/forums/imag.../smile.gif

Script for Pinging multiple servers

Mon, 28 Jun 2010 10:30:42 +0000

VBS Programming

'=======================================================================================================================================
'=======================================================================================================================================
' Ping.vbs
' 
' Title................ : Script to Ping Machines
' 
'=======================================================================================================================================
'=======================================================================================================================================
'Option Explicit
 
 
dim strMsg
dim DateM,DateD,DateY,DateH,DateMi
dim arrySecurityDescriptor
dim objFSO, objTSL,objTSR,objTSN
dim intTargetCnt
dim strComputer,strResult
dim vErrText
dim strListPath,strResultPath
 
strListPath = ""     
 
strResultPath = ""    
 
 
On Error Resume Next
 
 
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTsL = objFso.OpenTextFile(strListPath & "computers.txt",1)                    ''''File to get the machine list.
Call ErrHandle("Opening List of Computers - " & strListPath & "computers.txt")   ''''Error handling if the file is unable to open.
Set objTsR = objFso.CreateTextFile(strResultPath & "Alive.txt",2)                      '''''File to store the results for later review.
Call ErrHandle("Opening Result File - " & strResultPath & "Alive.txt")                 '''''Error handling if the file is unable to open.
Set objTsN = objFso.CreateTextFile(strResultPath & "NotAlive.txt",2)                 '''''File to store the results for later review.
Call ErrHandle("Opening Result File - " & strResultPath & "NotAlive.txt")            '''''Error handling if the file is unable to open.
 
 
 
intTargetCnt = 0          '''''To Check the number of machines processed.
 
Do Until objTsL.AtEndOfStream
 strComputer = objTsL.ReadLine        '''''Getting the computer name.
 Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
 Set colItems = objWMIService.ExecQuery _
     ("Select * from Win32_PingStatus " & _
            "Where Address = '" & strComputer & "'")
 For Each objItem in colItems
     If objItem.StatusCode = 0 Then
         'WScript.Echo "Reply received."         
  'objTsR.WriteLine ()
  objTsR.WriteLine (strComputer)
  'objTsR.WriteLine ()
              Else
   'WScript.Echo "No Reply received."         
  'objTsN.WriteLine ()
  objTsN.WriteLine (strComputer)
  'objTsN.WriteLine ()
             End If  
 Next
 
Loop
 
 
Sub ErrHandle(vActivity)        '''''Subroutine for handling the error in file operations.
 If err <> 0 Then
  vErrText = "There has been a problem with " & vActivity
  wscript.echo  vErrText & vbcrlf & string(Len(vErrText),"-") & vbcrlf & "Error Number : " & err.number & vbcrlf & " Error Description : " & err.description
  CleanUpAndGo
 End If
End Sub

-------------------------------------------------------
Save this script in C:\ping folder.
Copy the computer name for which you need to know the ping results in computers.txt file.
Double click on the script .
You will see 2 txt file created in same folder.
One is Alive.txt - Pinging servers
Other one Not- Alive.txt - Not pinging servers