我必须有这种脚本,它会自动注册计算机运行我的程序所需的以下 dll 文件。将所需的 dll 手动复制到 system32 实际上并没有像我所看到的那样注册该 dll,这就是为什么我将尝试使用从自动运行运行的脚本来注册这个 dll。我听说过使用“windows 脚本主机”,但我发现很难学习,尤其是在将 dll 文件注册到 system32 时。有什么建议吗?
问问题
933 次
2 回答
1
我建议你创建 MSI 包,它比你想象的最简单。
尝试高级安装程序:http: //www.advancedinstaller.com/download.html
您可以免费将它用于像您这样的简单项目。
于 2012-02-20T17:29:15.167 回答
0
让我们分解你的问题:
1)假设您已将所需的 dll 复制到一个文件夹中(文件夹路径=此文件夹的路径),并且您在“temp.txt”文件中有以下格式的 dll 文件列表-
xolehlp.dll
xpob2res.dll
xpsp1res.dll
2)将dll从一个文件夹复制到system32文件夹
3)注册这个dll
这是所需的代码:
Option Explicit
Dim oFSO, WshShell, oTxtFile, sLine ,filePath, folderPath
Const ForReading=1
filePath ="C:\Documents and Settings\Amol\Desktop\Temp\FileList.txt"
'' Filepath is your local path to txt file
folderPath = "C:\Documents and Settings\Amol\Desktop\Temp\"
'' folderPath is your path to folder from where you want to copy the dlls
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set oTxtFile = oFSO.OpenTextFile(filePath, 1)
Do Until oTxtFile.AtEndOfStream
sLine = oTxtFile.ReadLine
oFSO.CopyFile folderPath & sLine,"C:\WINDOWS\system32\"
sLine = "regsvr32 C:\WINDOWS\system32\"&sLine
WshShell.Run sLine
Loop
oTxtFile.Close
于 2012-02-19T12:46:20.260 回答