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