网页编程的核心:Script文件 WScript cscript.exe详解

Script文件


作者:金海龙 有一类文件被称作脚本文件,即:Script文件,下面简称“Script” 这类文件的扩展名可以是:*.vbs,*.js,*.wsh,*.wsf 其中隐藏的危险是很大的,不只能在你的硬盘上建立文件,而且能自我复制、删除重要文件。 作为程序员,需要稍微了解一下就行了。 这些文件是被wScript.exe和CScript.exe执行的,WIN2000中的版本是2.0,更低版本的系统中是1.0版, 你也可以下载较高版本的程序:5.1 用记事本创建一个Script,并运行之: 1、打开记事本 2、录入一行文字:WScript.Echo("Google search : 软件工程师 金海龙"); 3、保存为“d:/A.JS” 4、开始菜单-运行,输入:WScript.exe "d:/A.js" 5、看屏幕上将出现一个对话框,其中显示:Google search : 软件工程师 金海龙 技巧:也能写成:WScript.Echo("Google search : ","软件工程师 金海龙"); 可以给Script传递参数,例如: 1、在a.js中写入以下内容: var objArgs = WScript.Arguments; for (i = 0; i < objArgs.length; i++) { WScript.Echo(objArgs(i)); } 2、开始菜单-运行,输入:wScript.exe d:/a.js "One" "Two" 3、看屏幕上将出现2个对话框,依次显示:One和Two 显示WScript.exe的信息: 1、在a.js中写入以下内容: var s = "" s+="Name:"+WScript.Name + "/n"; s+="Version : " + WScript.Version + "/n"; s+="Fullname:"+WScript.FullName + "/n"; s+="Path:"+WScript.path + "/n"; s+="ScriptFullName:"+WScript.ScriptFullName + "/n"; s+="ScriptName:"+WScript.ScriptName + "/n"; WScript.Echo(s); 2、开始菜单-运行,输入:WScript.exe "d:/A.js" 3、在屏幕上看到以下内容: --------------------------- 标题:Windows 脚本宿主 --------------------------- Name:Windows 脚本宿主 Version : 5.1 Fullname:C:/WINNT/System32/wScript.exe Path:C:/WINNT/System32 ScriptFullName:d:/a.js ScriptName:a.js --------------------------- 确定 --------------------------- 实例:不同脚本文件之间的函数调用 1、文件a.js的内容如下,函数用来计算某个盘的容量大小: function GetFreeSpace(drvPath) { var fs, d, s; fs = new ActiveXObject("Scripting.FileSystemObject"); d = fs.GetDrive(fs.GetDriveName(drvPath)); s = "Driver: " + drvPath+"/n"; s += d.VolumeName + "/n"; s += " Free Space: " + d.FreeSpace/1024 + " Kbytes"; return s; } 2、文件c.wsf的内容如下: <script src="a.JS"> </script> 3、开始菜单-运行,输入:WScript.exe "d:/c.wsf" 4、看看出现的对话框,其中显示“d:”剩余空间的大小 文件的自我复制 1、假设"d:/123/"目录存在,在文件a.js中输入: var FSO = WScript.CreateObject("Scripting.FileSystemObject"); FSO.CopyFile("d://a.js", "d://123//"); 2、开始菜单-运行,输入:WScript.exe "d:/a.js" 3、打开"d:/123/"目录,然后看看是不是出现了一个a.js文件 提示:a.js中语句的功能是把d:/a.js复制到"d:/123/"目录下。 当然你也可以复制目录: var FSO = WScript.CreateObject("Scripting.FileSystemObject"); FSO.CopyFolder("c://x", "c://y"); 把c:/x目录,复制到c:/y中去。 技巧:创建目录: var fso = new ActiveXObject("Scripting.FileSystemObject"); var a = fso.CreateFolder("d://123"); 不要贪心,一下创建好几个目录,这是不允许的,如果d:/123目录不存在, 那么这行代码就是错的:var a = fso.CreateFolder("d://123//3"); 如果你想了解更多的内容,请搜索文件:Script56.CHM,或者单击这里
声明:
以上脚本代码均已在Win2000上调试通过,不存在打错字符的情况,更没有危险。 未完待续...
注:大约每过7天更新一次
相关内容... 更多...
Google搜索:bigengineer 金海龙 大工程师金海龙的MSN 选自英汉翻译软件《鹰译 闪电版》。 Google搜索:鹰译 闪电版 金海龙
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: 可以使用以下代码实现: ``` Set objFSO = CreateObject("Scripting.FileSystemObject") ' 判断 C:\123\123.exe 是否存在 If objFSO.FileExists("C:\123\123.exe") Then ' 判断 C:\234\234.exe 是否存在 If objFSO.FileExists("C:\234\234.exe") Then ' 启动 C:\234\234.exe Set objShell = CreateObject("WScript.Shell") objShell.Run "C:\234\234.exe" Else ' 启动 C:\123\123.exe Set objShell = CreateObject("WScript.Shell") objShell.Run "C:\123\123.exe" End If End If ``` 首先创建一个 `FileSystemObject` 对象,然后使用 `FileExists` 方法判断文件是否存在。如果 `C:\123\123.exe` 存在,则继续判断 `C:\234\234.exe` 是否存在。如果存在,则启动 `C:\234\234.exe`;如果不存在,则启动 `C:\123\123.exe`。 ### 回答2: 您可以使用以下 VBS 脚本来实现这个需求。 ``` Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists("C:\123\123.exe") Then If objFSO.FileExists("C:\234\234.exe") Then ' 如果 C:\234\234.exe 存在,则启动该文件 Set objShell = CreateObject("WScript.Shell") objShell.Run "C:\234\234.exe" Else ' 如果 C:\234\234.exe 不存在,则启动 C:\123\123.exe Set objShell = CreateObject("WScript.Shell") objShell.Run "C:\123\123.exe" End If Else ' 如果 C:\123\123.exe 不存在,提示文件不存在 MsgBox "C:\123\123.exe 不存在" End If ``` 这段 VBS 脚本首先使用 `FileExists` 方法判断 C:\123\123.exe 是否存在。如果存在,则进一步判断 C:\234\234.exe 是否存在。如果 C:\234\234.exe 存在,则使用 `Run` 方法启动 C:\234\234.exe。如果 C:\234\234.exe 不存在,则使用 `Run` 方法启动 C:\123\123.exe。 如果 C:\123\123.exe 不存在,则会弹出一个消息框提示文件不存在。 通过将以上代码保存为一个文本文件,将文件扩展名改为 ".vbs"(例如:check_files.vbs),然后运行该 VBS 脚本,即可实现所需功能。 ### 回答3: 可以使用以下VBS脚本来实现: ``` Set fso = CreateObject("Scripting.FileSystemObject") ' 判断C:\123\123.exe是否存在 If fso.FileExists("C:\123\123.exe") Then ' 判断C:\234\234.exe是否存在 If fso.FileExists("C:\234\234.exe") Then ' 启动C:\234\234.exe CreateObject("WScript.Shell").Run "C:\234\234.exe" Else ' 启动C:\123\123.exe CreateObject("WScript.Shell").Run "C:\123\123.exe" End If Else ' C:\123\123.exe不存在,无法启动任何应用程序 MsgBox "C:\123\123.exe不存在" End If ```
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值