文件列表:

D&VBS\Project1.cfg (434, 2007-12-16)
D&VBS\Project1.dof (2014, 2007-12-16)
D&VBS\Project1.dpr (3747, 2007-12-16)
D&VBS\Project1.exe (427520, 2007-12-16)
D&VBS (0, 2007-12-17)
tans_Delphi_VBS.gif (33864, 2007-12-18)
2ccc.com.nfo (731, 2007-03-13)
D&VBS\2ccc.com.nfo (731, 2007-03-13)

VBS在Delphi中的实现 要在Delphi中调用VBS首先需要在DELPHI集成环境中安装ActiveX控件。 要导入Activex控件，先选中Delphi菜单中的Component，选择导入ActiveX控制，安装Microsoft Script Control，就在Delphi环境中安装了ActiveX控件，然后在程序代码中加上这样一句：use MSScriptControl_TLB就可以调用VBS代码了。 程序中嵌入了VBS代码 '/功能：计算机硬件检测 On Error Resume Next temp=0 '/set wshshell=wscript.createobject("wscript.shell") '/wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,True '/wshshell.run ("%comspec% /c sc config winmgmt start= auto"),0,True '/wshshell.run ("%comspec% /c net start winmgmt"),0 set wshshell=wscript.createobject("wscript.shell") wshshell.run ("cmd /c regsvr32 /s scrrun.dll"),0,True wshshell.run ("cmd /c sc config winmgmt start= auto"),0,True wshshell.run ("cmd /c net start winmgmt"),0 Set WshNetwork = WScript.Createobject("WScript.Network") computername=WshNetwork.ComputerName set fso=createobject("scripting.filesystemobject") '/tempfilter="\\192.168.0.250\tool$\机器配置\"& computername &".txt" tempfilter="c:\pc.txt" set tempfile=fso.createtextfile(tempfilter) strComputer = "." Set objWMIService = Getobject("winmgmts:\\" & strComputer & "\root\cimv2") '主板 set board =objwmiservice.execQuery("select * from win32_baseboard") for each item in board board2="主板:" & item.Product next 'CPU set cpu =objwmiservice.execQuery("select * from win32_processor") for each item in cpu cpu2= "CPU:" & item.Name next '内存 Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48) For Each objItem in colItems a=objitem.capacity/1048576 temp=temp+objitem.capacity n=n+1 Next memory=temp/1048576 if n=1 then memory2= "内存: " & n & "条" &a&"M" else memory2= "内存: " & n & "条" &a&"M"&" 总计"&memory&"M" end if '硬盘 set disk =objwmiservice.execQuery("select * from win32_diskdrive") for each item in disk disk2= "硬盘: " & item.Model next '显卡 set video =objwmiservice.execQuery("select * from win32_videocontroller",,48) for each item in video video2= "显卡: " & item.Description next '网卡 Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48) For Each objItem in colItems if (left(objItem.NetConnectionID,4)="本地连接") then lanname=objItem.Name end if Next lan2="网卡: " & lanname tempfile.writeline(board2) tempfile.writeline(cpu2) tempfile.writeline(memory2) tempfile.writeline(disk2) tempfile.writeline(video2) tempfile.writeline(lan2) 程序运行后会生成 c:\pc.txt 主板:8I915PL-G CPU:Intel(R) Pentium(R) 4 CPU 3.00GHz 内存: 1条512M 硬盘: USB Flash Disk USB Device 显卡: RADEON X300 Series Secondary 网卡: Marvell Yukon 88E8001/8003/8010 PCI Gigabit Ethernet Controller 运行后还有错误，后来者如有修改、完善请传一份给我。opencode@21cn.com

近期下载者：

相关文件：

评论：[我要评论] [举报此文件]

收藏者：