VBS脚本应用-根据主机名执行指定功能

作者: 来源: 时间:2007-7-11 12:22:43

dim fso,cnamefile,cname
Set WshNetwork = WScript.CreateObject("WScript.Network")
cName = WshNetwork.ComputerName '取本机计算机名
Set fso = CreateObject("Scripting.FileSystemObject")
Set cnamefile = fso.OpenTextFile("list.txt",1) 'list为保存机器名的文件
Do While cnamefile.AtEndOfStream <> True
if cname = cnamefile.ReadLine then
Doit(cname)
end if
Loop
cnamefile.close

 

Sub Doit(Name)
'''''''''
'''''''''
'你要执行的代码
Msgbox Name
'''''''''
'''''''''
End Sub

·STTV-视通卫星网络电视(带自由录像功能) V2007 豪华版 build 0726
·RegDoctor(功能强大注册表医生) v1.85
·Offline Explorer Enterprise(功能强大的离线浏览工具) V4.7.2592
·多功能时钟日历 V2.95
·暴风影音2007 全功能完美版 v7.02.01
·FBEdit(编译执行程序) V1.0.4.4 汉化绿色特别版
·动易全功能商业版本 2006注册版（含所有频道）
·FoxMagic Mr captor(多功能屏捕) V3.33绿色汉化版
·UPX (可执行文件压缩器) V2.02 RC9 绿色汉化版
·系统功能修复器 V1.02 绿色版