Windows Scripting Forums - All Forums

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

Wed, 14 Jul 2010 23:03:09 -0700

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

Sat, 10 Jul 2010 22:53:49 -0700

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 07:36:57 -0700

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 07:28:57 -0700

So, anything going to happen in here anytime soon?

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

Wed, 07 Jul 2010 11:15:12 -0700

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.

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

Mon, 28 Jun 2010 03:35:38 -0700

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 03:30:42 -0700

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

openoffice vs microsoft works

Tue, 18 May 2010 06:31:40 -0700

Hey guys, i have been using both recently...

Which do you think is the best? (From experience)

[SOLVED] The number of days in a month

Wed, 28 Apr 2010 12:27:30 -0700

As Time Toady said

Quote:There's more than one way to do it

I think that all of you know how to know the number of days in a month. Let me collect all known (at least for me) methods.

Bombastic and verbose but fast

Code:

Date.prototype.isLeapYear = function()

{

    var y = this.getFullYear();

    return y % 4 == 0 && y % 100 != 0 || y % 400 == 0;

};

Date.prototype.getDaysInMonth = function()

{

    return arguments.callee[this.isLeapYear() ? 'L' : 'R'][this.getMonth()];

};

// durations of months for the regular year

Date.prototype.getDaysInMonth.R = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];

// durations of months for the leap year

Date.prototype.getDaysInMonth.L = [31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];

Shorter and longer

Code:

Date.prototype.getDaysInMonth = function ()

{

    var here = new Date(this.getTime());

    here.setDate(32);

    return 32 - here.getDate();

};

Laconic but long almost as previous

Code:

Date.prototype.getDaysInMonth = function()

{

    return (new Date(this.getFullYear(), this.getMonth() + 1, 0)).getDate();

};

Test thread

Wed, 03 Mar 2010 21:20:06 -0800

Test thread. Please ignore.

Edit signature

Fri, 05 Feb 2010 13:21:37 -0800

undefined

Computer startup problems

Sun, 10 Jan 2010 01:40:21 -0800

I all,
I have a problem on my Windows Vista that began afetr the purchase of an external Hard Disk Freecom.
A few days afetr the purchase I disconnected it while it was writing and, since that moment, every time I connect and disconnect it, the PC go to freeze mode for 5 minutes.
The same thing happen even if the hard disk is disconnected: every time I start windows it go to freeze a little after the password, and every time I connect and disconnect a usb device.
I have looked for the solution everywhere, updated windows, unistalled and installed the hard disk from the device manager but I solved the problem only when I restored a recent backup.
Yesterday the Hard disk was writing a backup while Vista was installing the updates; at the end of the proceure windows restarted automatically and the problem began again!!!
The Pc go to freeze when it starts, every time I connect or disconnect the hard disk, an usb earphone that has always worked switch on but there is no audio and I don't know how many others usb devices will have problems.
Has anyone an idea to solve this problem before I throw out of the window Vista or the the hard disk?
Thank you

Customizing Windows 7 Start Menu via script

Mon, 04 Jan 2010 01:46:32 -0800

undefined

Notification Icons Missing After Vista SP2 Update

Sun, 06 Dec 2009 16:40:07 -0800

I recently bought a new laptop that came pre-installed with Windows Vista Home Premium. While waiting for the release of Windows 7, I got comfortable with my system and customized all of my settings including the system tray’s notification icons. All was well and my new laptop began feeling like home. That is, until this morning when Automatic Updates rolled out Service Pack 2 for Windows Vista (KB94846) (more info). After the update was applied, system notification icons for the Volume Mixer and Network were missing. (more…)

Posted on Sat, 05 Dec 2009 06:56:22 +0000 at http://www.nilpo.com/2009/12/windows-vis...p2-update/
Comments: http://www.nilpo.com/2009/12/windows-vis.../#comments

Formatting Text

Sat, 17 Oct 2009 09:19:58 -0700

I want the currency in my script to be formatted as such

$123.45
-$123.45 or
($123.45)

I accomplished one line to work

VBS Programming

objFile.WriteLine(FormatCurrency((CCur(strStart) + curTotal), 2, , 0))

The problem is the rest of the code seems to not work.

My question is:
Can I format the whole script so currency is in the above examples?

This will work but I have a problem with this code reading the () and - if the number is negative.

VBS Programming

Do Until objFile.AtEndOfStream
		strLine = objFile.ReadLine
	Loop
 
	strStart = Right(strLine, Len(strLine) - InStr(strLine, "$"))
	objFile.Close

So basically, if I can format the whole script then how do I get the above code to read the text file properly if it has a negative number?

Naming CreateTextFile using File System Object

Fri, 16 Oct 2009 01:21:04 -0700

Here's my script:

VBS Programming

WScript.Echo "You will be asked to enter transaction amounts." & vbCr & vbCr & "Press Cancel at any time to see the running balance."
 
arrVals = Array()
Const ForWriting = 2
Set objFso = CreateObject("Scripting.FileSystemObject")
'Set objFile = objFso.OpenTextFile("C:\testfile.txt", ForWriting, true)
Set objFile = objFSO.CreateTextFile( _ 
        "c:\Documents and Settings\Bones\Desktop\CheckBook\" _ 
        & Month(Date) & "_" & Day(Date) & "_" & Year(Date) _ 
        & ".txt", ForWriting) 
 
' Loop until you get a starting value or Cancel to exit script
Do While True
	strStart = InputBox("Enter starting balance as a decimal. (e.g. 234.56)" & vbCr & vbCr & "Enter debit amounts as negatives. (e.g. -23.40)")
	If strStart = "" Then WScript.Quit ' user pressed Cancel or entered blank info
 
	If IsNumeric(strStart) Then ' checks if the entered text can be interpreted as a number (simple typo check)
	objFile.WriteLine "" & strStart
		Exit Do ' exits loop if the entry is a valid number
	Else
		WScript.Echo "There was an error in your last entry."
	End If
Loop
 
intCount = 0 ' transaction counter
' Loop through transactions
Do While True
	strAmt = InputBox("Enter transaction amount")
	If strAmt = "" Then Exit Do ' user pressed Cancel or enter blank info
	objFile.WriteLine "" & strAmt
	If IsNumeric(strAmt) Then
		ReDim Preserve arrVals(intCount) 'resize array to accomodate current number of values
		arrVals(intCount) = strAmt ' insert current transaction into array
		intCount = intCount + 1 ' increment the counter
		'objFile.WriteLine "" & strAmt
	Else
		WScript.Echo "There was an error in your last entry. Please enter it again."
	End If
Loop
 
' Add the values in the array.
curTotal = CCur(0.00) ' initialize total as currency value of 0
For i = 0 to UBound(arrVals)
	curTotal = curTotal + CCur(arrVals(i))
Next
objFile.WriteBlankLines(3)
objFile.WriteLine "Total:"
objFile.WriteBlankLines(1)
objFile.WriteLine "$" & (CCur(strStart) + curTotal)
objFile.Close
WScript.Echo "Running Total: $" & (CCur(strStart) + curTotal)

The script works fine. I even have it creating a text file named "today's date". If I run the script more than once per day it overwrites the text file created before it. My question is:

How do you get it to name each new text file different than the first while still maintaining the system date?

Message Box

Sat, 12 Sep 2009 20:54:09 -0700

If i create a message box, how do I get the script to run a different line when the user clicks ok?

Need a little help.

Sat, 12 Sep 2009 19:40:23 -0700

I was playing around with this script below. I would assume when the user inputs nothing that the script would instruct the user to try again (line 6). It doesn't seem to work that way. Also how do I get the cancel button and/or "x" button to close and end the script rather than continue with the next line of code.

VBS Programming

Dim strPassword
strPassword = LCase (InputBox ("Guess the Secret Word!"))
If strPassword = "scripting" Then
	MsgBox "Correct"
ElseIf strPassword = " " Then
	MsgBox "You have to try, silly."
Else
	MsgBox "NOPE!"
End If

Forum Posts are Wider Than My Screen

Sat, 12 Sep 2009 19:16:58 -0700

I just posted vbscript in Code Bank and the view is beyond my widescreen. I assume the code box made it that way because other posts are not forcing me to scroll horizontal. I use Google Chrome Browser, that maybe the issue. Or maybe you can adjust the tags to post smaller boxes... maybe. I don't know.

Mr. Chatbot

Sat, 12 Sep 2009 19:12:37 -0700

A fun code for the kids. I have been playing with this for awhile. I am an amateur at writing scripts. This works pretty good if you have the correct sapi voices. Run the description code first to see what's on your PC. Probably only works for Microsoft OS though.

Description Code:

VBS Programming

Set VObj = CreateObject("SAPI.SpVoice")
 For Each Voice In VObj.getvoices
     I = I + 1
     msgbox "" & (I - 1) & " - " & Voice.GetDescription
 Next

Mr. Chatbot Code:

VBSCRIPT Programming

Set Vobj = CreateObject("SAPI.SpVoice")
	 With Vobj
 
strName = InputBox("Please choose a voice:" & vbCr & vbCr & "Sam" & vbCr & "Mike" & vbCr & "Mary", "Question:")
 
Select Case LCase(strName)
	Case "sam"
		Set .voice = .getvoices.item(0)
		.Volume = 100
     	        .Rate = -3
	Case "mike"
		Set .voice = .getvoices.item(1)
		.Volume = 100
     	        .Rate = -3
	Case "mary"
		Set .voice = .getvoices.item(2)
		.Volume = 100
     	        .Rate = -3
	'Case "Sample TTS"
	'	Set .voice = .getvoices.item(3)
	'	.Volume = 100
       ' 	.Rate = -3
	Case ""
		WScript.echo "please type a name:"
End Select
 
		strText = "Hello, my name is " & strName & ". I am a chatbot. Jim created me. What's your name?"'"O.K. See you later then, " & fname & "."
		Vobj.speak strText
 
	fname=InputBox("What's your name?" , "Mr. Chatbot")
		strText = "How are you feeling, " & fname & "?" '"O.K. See you later then, " & fname & "."
		Vobj.speak strText
	ffeeling=InputBox("How are you feeling?" , "Mr. Chatbot")
		strText = "Why are you feeling " & ffeeling & "?"
		Vobj.speak strText
	fanswer=InputBox("Why are you feeling " & ffeeling & "?" , "Mr. Chatbot")
		strText = "Sometimes I feel like that too. What's your favorite color, " & fname & "?"
		Vobj.speak strText
	fcolor=InputBox("What's your favorite color?" , "Mr. Chatbot")
		strText = "I like " & fcolor & ", too. What's your favorite number " & fname & "?"
		Vobj.speak strText
	fnumber=InputBox("What's your favorite number?" , "Mr. Chatbot")
		strText = (fnumber & " is my favorite number too, " & fname & "That  is  so  Cool.  We  have  a  lot  in  common.  What  else  do  you  like?")
		Vobj.speak strText
	felse=InputBox("What  else  do  you  like?" , "Mr. Chatbot")
		strText = "I like " & felse &  "too. What is your favorite food, " & fname & "?"
		Vobj.speak strText
	ffood=InputBox("What is your favorite food?" , "Mr. Chatbot")
		strText = "I don't like " & ffood & ". I  am  a  computer.  I can't eat food. What is your favorite movie?"
		Vobj.speak strText
	fmovie=InputBox("What's your favorite movie?" , "Mr. Chatbot")
		strText = "Sometimes I have movies on me. I don't think I have ever seen " & fmovie & ". What is your favorite sport " & fname
		Vobj.speak strText
	fsport=InputBox("What is your favorite sport?" , "Mr. chatbot")
		strText = "I can't play " & fsport & "I am a computer.  I  would  rather  surf the  internet. When you play " & fsport & "you must get thirsty. What is your favorite drink?"
		Vobj.speak strText
	fdrink=InputBox("What is your favorite drink?" , "Mr. Chatbot")	
		strText = "Is " & fdrink & "good? Because I can't have fluids. Or  I  Would  Blow  Up. What's your favorite game to play?"
		Vobj.speak strText
	fgame=InputBox("What's your favorite game to play?" , "Mr. Chatbot")
		strText = "I have games on me that you could play some day. I don't know if I have " & fgame & "on me but you could look sometime. " & fname & "Did you like talking to me?"
		Vobj.speak strText
	flike=InputBox("Did you like talking to me?" , "Mr. Chatbot")
		strText = "O.K. See you later then, " & fname & ". I will always be here if you need some one to talk to."
		Vobj.speak strText
	MsgBox("GoodBye, " & fname & "!!!") , , "Mr. Chatbot"
End With