0

我必须有这种脚本,它会自动注册计算机运行我的程序所需的以下 dll 文件。将所需的 dll 手动复制到 system32 实际上并没有像我所看到的那样注册该 dll,这就是为什么我将尝试使用从自动运行运行的脚本来注册这个 dll。我听说过使用“windows 脚本主机”,但我发现很难学习,尤其是在将 dll 文件注册到 system32 时。有什么建议吗?

4

2 回答 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 回答