- 博客(406)
- 资源 (3)
- 收藏
- 关注
RSS订阅原创 VBScript025-π的乘数算法
下面这段 VBScript 会弹出一个输入框，让用户输入一个数值，然后在 Excel 中生成一张 100 行 × 10 列的乘法表，最后提示任务完成。运行前请确保本机已安装 Microsoft Excel，否则。用于输出乘号「×」。
2026-11-11 08:05:10
146
原创 VBScript023-运行指定程序
方法则负责以独立进程方式启动指定程序。实际使用时应谨慎操作注册表，避免误改系统配置。下面这段 VBScript 代码演示如何通过。用于实例化 Shell 对象，
2026-11-10 08:17:59
158
原创 VBScript022-设置IP地址自动获得
' 连接 WMI 服务，获取 root\cimv2 命名空间。' 清空 DNS 服务器设置，恢复为自动获取。' 启用 DHCP 自动获取 IP 地址。' 查询已启用 IP 的网络适配器配置。' 指定目标计算机，"." 表示本机。' 忽略运行时错误，避免脚本中断。' 遍历每个网络适配器。
2026-11-10 08:15:32
330
原创 VBScript020-Vbs读写文件
还有一个属性，atendofline,如果已经到了行末尾，这个属性返回true.Textstream对象还有两个有用的属性，column和line.textstream对象的atendofstream属性。结尾的时候这个属性返回true.我们可以用循环检测又没有到达。可以用forwriting和forappending方式来。用法也很简单 和前面一样，就不说了。，十分的方便，废话少说，切入正题。的完整路径，后面一个参数为访问模式。后，行和列指针都被设置为1。skip(x) 跳过x个字符。
2026-11-09 08:08:58
233
原创 VBScript016-ping
If ErrDes = "True" then sResult = "成功" Else sResult= "失败"Msgbox "Ping 目标主机" & sResult, 64, "消息"Next。
2026-11-05 08:05:22
120
原创 VBScript014-ping&connect
WScript.Echo "Ping 主机 " & sPing & vbcrlf & "连接端口:" & Port & " " & sConn。If errRTN1 = True Then sConn = "成功" Else sConn = "失败"If errRTN = True Then sPing = "成功" Else sPing = "失败"'输出 Ping 与端口检测结果。'Ping 数据包大小（字节）'执行查询，获取结果集。'连接 WMI 服务。'Ping 目标主机。'检测目标端口连通性。
2026-11-03 08:06:51
131
原创 VBScript011-log
WScript.Echo "Log 文件: " & wbemObject.LogFile & vbCrLf & _"计算机: " & wbemObject.ComputerName & vbCrLf & _"事件: " & wbemObject.EventCode & vbCrLf & _"分类: " & wbemObject.Category & vbCrLf & _"类型: " & wbemObject.Type & vbCrLf & _
2026-10-30 08:05:25
318
原创 VBScript009-list_client
' 功能：连接指定 IAS 服务器，读取本地数据存储中的 RADIUS 客户端配置，' ---------- RADIUS 客户端属性常量 ----------' ---------- IAS 集合属性常量 ----------' ---------- 数据存储类型常量 ----------' ---------- 配置文件属性常量 ----------' ---------- 策略属性常量 ----------' ---------- 变量声明 ----------
2026-10-29 08:07:47
441
原创 VBScript007-Excel的99乘法表
Set objExcel = CreateObject("Excel.Application")objExcel.Visible = TrueobjExcel.Workbooks.AddobjExcel.WorkSheets(1).ActivateFor i=1 to 9'objExcel.ActiveSheet.Columns(i).ColumnsWidth = 10For j=1 to iobjExcel.Cells(i, j).Value = i & "x" & j & "=" & i
2026-10-28 08:09:07
209
原创 VBScript006-CMD设置本机IP地址自动获取或者手动设定
iCHECK = MsgBox ("您输入的IP配置信息为：" & Chr(13) & Chr(10) & "IP地址：" & sIP & Chr(13) & Chr(10) & "子网掩码：" & sMASK & Chr(13) & Chr(10) & "默认网关：" & sGATEWAY & Chr(13) & Chr(10) & "DNS服务器：" & sDNS, 64, "IP地址配置信息确认")", 324, "IP地址配置向导-〉1")'获取用户输入的IP地址信息。'获取用户输入的默认网关。
2026-10-28 08:07:30
327
原创 VBScript005-change
命令给文件追加 CLSID 后缀，从而改变文件在资源管理器中的显示类型。为便于阅读，已为关键语句补充注释。下面这段批处理脚本通过。
2026-10-27 08:18:47
211
原创 VBScript004-boot
读取文本文件内容，并逐行拼接输出。为便于理解，已在关键语句处补充注释。下面这段 VBScript 演示了如何通过。为回车符，用于在输出时保留原始换行结构。表示以只读模式打开文件，
2026-10-27 08:16:49
263
原创 VBScript3-BackupOFC
' 由用户输入 OfficeScan 的安装路径，例如 C:\Program Files\Trend Micro\OfficeScan\PCCSRV。' 创建 Download 目录，并备份其中的 OfcPfw.dat（若存在）' 创建 Web 目录及其下的 tmOPP 子目录，并复制 tmOPP 内容。' 拼接备份根目录，盘符统一转为大写，例如 C:\BackupOFS。' 若备份目录已存在则先删除，保证每次备份都是干净目录。' 由用户输入备份目标盘符，只允许单个字母，例如 C。
2026-10-26 08:13:10
262
原创 VBScript002-ASCII
if k<>"" then wscript.echo "“" & k & "”" & "的ASCII码是：" & Asc(k)k=inputbox("请输入一个字符，转化为ASCII码。
2026-10-26 08:10:32
20
原创 VBScript001-AppData
NextEnd IfElseEnd IfElseEnd IfDoExit DoEnd IfEnd IfElseExit DoEnd IfLoopEnd IfEnd SubNextNextNextNextNextNext。
2026-10-23 08:10:15
219
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人