orga0063
/
BootstrapAdmin
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

更新脚本，使用相对路径

This commit is contained in:
Argo-Lenovo 2017-01-04 11:42:06 +08:00
parent fee26eea83
commit 4708531f21
1 changed files with 120 additions and 114 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Scripts/Publish.vbs
View File

@ -1,12 +1,15 @@
Option Explicit
Dim fso, shell
Dim targetDir, targetName, extName, keyFile, destDir, solutionDir, cmd, file, assemblyDir, outDir
Dim targetDir, targetName, extName, keyFile, destDir, solutionDir, cmd, file, assemblyDir, outDir, batFile, signCmd
Dim msg(), m
keyFile = "D:\src\Longbow\Keys\Longbow.Utility.snk"
destDir = "D:\src\Longbow\BootstrapAdmin\Publish\Web-App\WebConsole"
keyFile = "..\Keys\Longbow.Utility.snk"
destDir = "Publish\Web-App\WebConsole"
assemblyDir = "C:\Longbow.Utility 2005\Release"
batFile = "..\Scripts\LgbSign.bat"
signCmd = "%ProgramFiles(x86)%\Microsoft SDKs\Windows\v7.0A\bin\sn.exe"
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
@ -24,6 +27,9 @@ End If
If WScript.Arguments.Count > 3 Then
solutionDir = WScript.Arguments(3)
keyFile = solutionDir & keyFile
destDir = solutionDir & destDir
batFile = solutionDir & batFile
End If
If WScript.Arguments.Count > 4 Then
@ -58,13 +64,13 @@ End If
CopyFile fso, targetDir, destdir & "Original\", targetName & extName, true
ReDim msg(0)
msg(0) = """D:\src\Longbow\Scripts\LgbSign.bat"" """ & destdir & targetName & extName & """"
msg(0) = """" & batFile & """ """ & destdir & targetName & extName & """ """ & keyFile
For Each file in fso.GetFolder(targetDir).Files
If fso.GetExtensionName(file) = "dll" then
If NOT CopyFile(fso, assemblyDir, destDir, file.Name, false) Then
ReDim Preserve msg(UBound(msg)+1)
msg(UBound(msg)) = """D:\src\Longbow\Scripts\LgbSign.bat"" """ & destdir & file.Name & """"
msg(UBound(msg)) = """" & signCmd & """ """ & destdir & file.Name & """"
CopyFile fso, solutionDir & GetFileName(file.Name) & "\" & outDir, destDir & "Original\", file.Name, true
ReSignFile targetdir & file.Name
Else
@ -109,7 +115,7 @@ Function GetFileName(fileName)
End Function
Sub ReSignFile(fileName)
cmd = """%ProgramFiles(x86)%\Microsoft SDKs\Windows\v7.0A\bin\sn.exe"" -R """ & fileName & """ " & keyFile
cmd = """"& signCmd &""" -R """ & fileName & """ " & keyFile
shell.run cmd, 0, True
WScript.Echo "Assembly '" & fileName & "' successfully re-signed"
End Sub