2010-03-22 06:25 AM
2010-03-22 02:52 PM
2010-03-24 07:11 PM
2010-03-25 12:41 AM
2010-03-25 08:10 PM
Dim objReg, shell, fso Dim src_Modifydate, dest_Modifydate, file Set objReg = Createobject("Wscript.shell") Set shell = wscript.createobject("Wscript.shell") Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.GetFile("C:\Program Files (x86)\Graphisoft\ArchiCAD 12\ArchiCAD.exe") If err.number = 0 Then dest_Modifydate = file.DateLastModified Set file = fso.GetFile("\\bimserver\Project Delivery\ArchiCAD\Hotfixes\12\ArchiCAD.exe") src_Modifydate = file.DateLastModified if src_Modifydate <> dest_Modifydate then 'msgbox "now Installing ArchiCAD HotFix#6 ..." & vbcr & "Please press NEXT or FINISH when prompted." & vbcr & "Thanks for reading this..." & vbcr & "Unless you didnt read this and you are now calling IT about a funny pop-up Box" objreg.run chr(34) & "\\bimserver\Project Delivery\ArchiCAD\Hotfixes\12\AC12-2782-HOTFIX6.exe" & Chr(34) & " -W play.auto=YES" End If End If
2010-03-25 10:45 PM