Web-листинг 1. Подпрограмма CheckForCScript

? This script must run from CScript because it uses the WScript object?s StdOut 
? property.This subroutine tests the script host and, if it isn?t, CScript, instructs 
? the operator on how to run the script.
Sub CheckForCScript
	If Right(LCase(WScript.FullName),11) <> LCase(«cscript.exe») Then
		WScript.Echo «This script must run from cscript.» & _
			VbCrLf & «Example: cscript ApplyReg.vbs /f:ComptSearch.csv /r:RegFile.reg»
		WScript.Quit
	End If
End Sub