Script and Batch File

VBScript CDate Function

programmervb — Mon, 27 Oct 2008 17:40:09 +0000

The CDate function converts a valid date and time expression to type Date, and returns the result.

Tip: Use the IsDate function to determine if date can be converted to a date or time.

Note: The IsDate function uses local setting to determine if a string can be converted to a date (“January” is not a month in all languages.)

Syntax

CDate(date)

Parameter	Description
date	Required. Any valid date expression (like Date() or Now())

Example 1

d="April 22, 2001"
if IsDate(d) then
  document.write(CDate(d))
end if

Output:

2/22/01

Example 2

d=#2/22/01#
if IsDate(d) then
  document.write(CDate(d))
end if

Output:

2/22/01

Example 3

d="3:18:40 AM"
if IsDate(d) then
  document.write(CDate(d))
end if

Output:

3:18:40 AM

VBScript Date Function

programmervb — Mon, 27 Oct 2008 17:39:05 +0000

The Date function returns the current system date.

Syntax

Date

Example 1

document.write("The current system date is: ")
document.write(Date)

Output:

The current system date is: 1/14/2002

VBScript DateAdd Function

programmervb — Mon, 27 Oct 2008 17:37:55 +0000

The DateAdd function returns a date to which a specified time interval has been added.

Syntax

DateAdd(interval,number,date)

Parameter	Description
interval	Required. The interval you want to addCan take the following values: yyyy – Year q – Quarter m – Month y – Day of year d – Day w – Weekday ww – Week of year h – Hour n – Minute s – Second
number	Required. The number of interval you want to add. Can either be positive, for dates in the future, or negative, for dates in the past
date	Required. Variant or literal representing the date to which interval is added

Parameter

Description

interval

Required. The interval you want to addCan take the following values:

yyyy – Year
q – Quarter
m – Month
y – Day of year
d – Day
w – Weekday
ww – Week of year
h – Hour
n – Minute
s – Second

number

Required. The number of interval you want to add. Can either be positive, for dates in the future, or negative, for dates in the past

date

Required. Variant or literal representing the date to which interval is added

Example 1

'Add one month to January 31, 2000
document.write(DateAdd("m",1,"31-Jan-00"))

Output:

2/29/2000

Example 2

'Add one month to January 31, 2001
document.write(DateAdd("m",1,"31-Jan-01"))

Output:

2/28/2001

Example 3

'Subtract one month from January 31, 2001
document.write(DateAdd("m",-1,"31-Jan-01"))

Output:

12/31/2000

VBScript The DateSerial Function

programmervb — Mon, 27 Oct 2008 17:36:16 +0000

The DateSerial function returns a Variant of subtype Date for a specified year, month, and day.

Syntax

DateSerial(year,month,day)

Parameter	Description
year	Required. A number between 100 and 9999, or a numeric expression. Values between 0 and 99 are interpreted as the years 1900–1999. For all other year arguments, use a complete four-digit year
month	Required. Any numeric expression
day	Required. Any numeric expression

Example 1

document.write(DateSerial(1996,2,3) & "
")
document.write(DateSerial(1990-20,9-2,1-1))

Output:

2/3/1996
6/30/1970

VBScript DateValue Function

programmervb — Mon, 27 Oct 2008 17:31:44 +0000

The DateValue function returns a type Date.

Note: If the year part of date is omitted this function will use the current year from the computer’s system date.

Note: If the date parameter includes time information it will not be returned. However, if date includes invalid time information, a run-time error will occur.

Syntax

DateValue(date)

Parameter	Description
date	Required. A date from January 1, 100 through December 31, 9999 or any expression that can represent a date, a time, or both a date and time

Example 1

document.write(DateValue("31-Jan-02") & "
")
document.write(DateValue("31-Jan") & "
")
document.write(DateValue("31-Jan-02 2:39:49 AM"))

Output:

1/31/2002
1/31/2002
1/31/2002

VBScript DatePart Function

programmervb — Mon, 27 Oct 2008 17:31:04 +0000

The DatePart function returns the specified part of a given date.

Syntax

DatePart(interval,date[,firstdayofweek[,firstweekofyear]])

Parameter	Description
interval	Required. The interval of time to return.Can take the following values: yyyy – Year q – Quarter m – Month y – Day of year d – Day w – Weekday ww – Week of year h – Hour n – Minute s – Second
date	Required. Date expression to evaluate
firstdayofweek	Optional. Specifies the day of the week.Can take the following values: 0 = vbUseSystemDayOfWeek – Use National Language Support (NLS) API setting 1 = vbSunday – Sunday (default) 2 = vbMonday – Monday 3 = vbTuesday – Tuesday 4 = vbWednesday – Wednesday 5 = vbThursday – Thursday 6 = vbFriday – Friday 7 = vbSaturday – Saturday
firstweekofyear	Optional. Specifies the first week of the year.Can take the following values: 0 = vbUseSystem – Use National Language Support (NLS) API setting 1 = vbFirstJan1 – Start with the week in which January 1 occurs (default) 2 = vbFirstFourDays – Start with the week that has at least four days in the new year 3 = vbFirstFullWeek – Start with the first full week of the new year

Example 1

document.write(Date & "
")
document.write(DatePart("d",Date))

Output:

1/14/2002
14

Example 2

document.write(Date & "
")
document.write(DatePart("w",Date))

Output:

1/14/2002
2

VBScript DateDiff Function

programmervb — Mon, 27 Oct 2008 17:26:53 +0000

The DateDiff function returns the number of intervals between two dates.

Syntax

DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])

Parameter	Description
interval	Required. The interval you want to use to calculate the differences between date1 and date2Can take the following values: yyyy – Year q – Quarter m – Month y – Day of year d – Day w – Weekday ww – Week of year h – Hour n – Minute s – Second
date1,date2	Required. Date expressions. Two dates you want to use in the calculation
firstdayofweek	Optional. Specifies the day of the week.Can take the following values: 0 = vbUseSystemDayOfWeek – Use National Language Support (NLS) API setting 1 = vbSunday – Sunday (default) 2 = vbMonday – Monday 3 = vbTuesday – Tuesday 4 = vbWednesday – Wednesday 5 = vbThursday – Thursday 6 = vbFriday – Friday 7 = vbSaturday – Saturday
firstweekofyear	Optional. Specifies the first week of the year.Can take the following values: 0 = vbUseSystem – Use National Language Support (NLS) API setting 1 = vbFirstJan1 – Start with the week in which January 1 occurs (default) 2 = vbFirstFourDays – Start with the week that has at least four days in the new year 3 = vbFirstFullWeek – Start with the first full week of the new year

Example 1

document.write(Date & "
")
document.write(DateDiff("m",Date,"12/31/2002") & "
")
document.write(DateDiff("d",Date,"12/31/2002") & "
")
document.write(DateDiff("n",Date,"12/31/2002"))

Output:

Example 2

document.write(Date & "
")
'Note that in the code below
'is date1>date2
document.write(DateDiff("d","12/31/2002",Date))

Output:

1/14/2002
-351

Example 3

'How many weeks (start on Monday),
'are left between the current date and 10/10/2002
document.write(Date & "
")
document.write(DateDiff("w",Date,"10/10/2002",vbMonday))

Output:

1/14/2002
38

Change Floppy Serial Numbers

programmervb — Mon, 27 Oct 2008 17:12:13 +0000

Use DEBUG to change data on the disk

This example shows how to “turn off” the serial number display for the disk in the A: drive. The digit shown in blue on the “E” command is the one that toggles display of the serial number.
C:\>DEBUG
-L 0 0 0 1
-E 26 00
-W 0 0 0 1
-Q

C:\>DIR A:

Volume in drive A has no label
Directory of A:\

This example shows how to set the serial number for the disk in the A: drive to any value. Notice the numbers you enter (in red) are mirrored from the serial number you’ll get.
C:\>debug
-L 0 0 0 1
-E 26 29 78 56 34 12
-W 0 0 0 1
-Q

C:\>DIR A:

Volume in drive A has no label
Volume Serial Number is 1234-5678
Directory of A:\

Display Error Levels

programmervb — Mon, 27 Oct 2008 17:10:43 +0000

Use the undocumented /Z option on COMMAND
N:\temp>command /z

Microsoft(R) Windows 95 
(C)Copyright Microsoft Corp 1981-1995. 
Return code (ERRORLEVEL): 0 
WARNING: Reloaded COMMAND.COM transient

N:\temp>echo test|find "test">nul 
Return code (ERRORLEVEL): 0

N:\temp>echo qwerty|find "test">nul 
Return code (ERRORLEVEL): 1

N:\temp> exit

N:\temp>

Display Windows Revision

programmervb — Mon, 27 Oct 2008 17:09:46 +0000

Use the undocumented /R option on the VER command.
C:\>ver
Windows 95. [Version 4.00.950]
C:\>ver /r
Windows 95. [Version 4.00.950] 
Revision A
DOS is in HMA