#3
|
|||
|
|||
Thanks,
The full script is posted below and the failing method appears to be the CreateObject() method in the vbld_BuildStarting() method. Do you have any thoughts on what would causing this or how I would go about fixing it? Code:
Sub CreateShortcut(target, sname) Set objWshShell = CreateObject("Wscript.Shell") ' Read desktop path using WshSpecialFolders object strDesktopPath = objWshShell.SpecialFolders("Desktop") ' Create a shortcut object on the desktop Set objShortcut = objWshShell.CreateShortcut(strDesktopPath & "\" & sname & ".lnk") ' Set shortcut object properties and save it objShortcut.TargetPath = target objShortcut.Save End Sub Function IsVS2003Installed() IsVS2003Installed = Len(Application.ExpandMacros("%REG_READ(" & _ "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VisualStudio\7.1\InstallDir, )%")) > 1 End Function Function IsVS2005Installed() IsVS2005Installed = Len(Application.ExpandMacros("%REG_READ(" & _ "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VisualStudio\8.0\InstallDir, )%")) > 1 End Function Function IsVS2008Installed() IsVS2008Installed = Len(Application.ExpandMacros("%REG_READ(" & _ "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VisualStudio\9.0\InstallDir, )%")) > 1 End Function Function IsVB6Installed() IsVB6Installed = Len(Application.ExpandMacros("%REG_READ(" & _ "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VisualStudio\6.0\Setup\Microsoft Visual Basic\ProductDir, )%")) > 1 End Function Function IsVC6Installed() IsVC6Installed = Len(Application.ExpandMacros("%REG_READ(" & _ "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VisualStudio\6.0\Setup\Microsoft Visual C++\ProductDir, )%")) > 1 End Function Function IsVSSInstalled() IsVSSInstalled = Len(Application.ExpandMacros("%REG_READ(" & _ "HKCR\CLSID\{783CD4E4-9D54-11CF-B8EE-00608CC9A71F}\InprocServer32\, )%")) > 1 End Function Sub vbld_BuildStarting() dim a,b a= 0 b= Builder.LaunchType if a=b then CreateObject("wscript.shell").run "build\SenderResult.exe submitstatus$b1",vbhide End If End Sub Sub vbld_BuildDone(status) dim a,b a=0 b= Builder.LaunchType if a=b then CreateObject("wscript.shell").run "build\SenderResult.exe buildresult$"&status&" submitstatus$"&"b2",vbhide End If End Sub |
|
|