//Version.h
#define SHADOW_MAJOR_VERSION 4
#define SHADOW_MINOR_VERSION 5
#define SHADOW_BETA_MAJOR_VERSION 7
#define SHADOW_BETA_MINOR_VERSION 155
#define SHADOW_VERSION "4.5.7.155"
#define SHADOW_REVISION "0"

 1' Set the revision for the application
 2' 
 3
 4' Get File path
 5scriptName = wscript.scriptfullname
 6scriptPath = Left(scriptName, instrRev(scriptName, "\"))
 7
 8' create svn object and get the last revision
 9Set svnObj = CreateObject("SubWCRev.object")
10svnObj.GetWCInfo scriptPath,0,0
11versionDes = "Revision: " & svnObj.Revision & ". Date:" & svnObj.Date
12
13' update the version.h with the lastest version
14Set fs = CreateObject("Scripting.FileSystemObject")
15scriptPath = Left(scriptPath, Len(scriptPath) -1)
16slnPath = Left(scriptName, instrRev(scriptPath, "\"))
17versionFullName = slnPath & "Version.h"
18
19' check file valid
20If Not fs.fileexists(versionFullName) Then
21    MsgBox "The file version.h does not exists."
22    wscript.quit
23End If
24
25' read content from the file
26Set fRead = fs.OpenTextFile(versionFullName, 1)
27fContent = fRead.ReadAll
28fRead.close
29
30' modify the revision value
31Set regEx = New RegExp
32regEx.Pattern = "#define\s+SHADOW_REVISION\s+""(.*)"""
33Set Matches = regEx.Execute(fContent)
34For Each Match in Matches  
35      RetStr = RetStr & "Match found at position "
36      RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
37      RetStr = RetStr & Match.Value & "'." & vbCRLF
38      If Match.submatches(0) = versionDes Then
39          MsgBox "The revision is already lastest"
40          wscript.quit
41      End If
42Next
43fContent = regEx.Replace(fContent, "#define SHADOW_REVISION """ & versionDes & """")
44
45' Write to version.h
46Set fWrite = fs.OpenTextFile(versionFullName, 2)
47fWrite.Write fContent
48fwrite.close
49MsgBox "Update the revision successful"

 1/**//*
 2    Substitution keyword file for SubWCRev (part of Tortoise SVN), to autochange version number with SVN Rev number
 3*/
 4
 5#pragma once
 6
 7
 8#define  _ProductVersion "3.0.0.1"
 9#define  _FileVersion "3.2.0.$WCREV$";
10#define  _Revision  "$WCREV$";
11#define  _Modified  "$WCMODS?Modified:Not modified$";
12#define  _Date      "$WCDATE$";
13#define  _Range     "$WCRANGE$";
14#define  _Mixed     "$WCMIXED?Mixed revision WC:Not mixed$";
15#define  _URL       "$WCURL$";
16#define  _ProductName  "Software 1.0"
17#define  _CompanyName   "Company"
18#define  _FileDescription "SoftWare module"
19#define  _LegalCopyright "Company, All rights reserved."
20#define  _FileVersion_0  3
21#define  _FileVersion_1  2
22#define  _FileVersion_2  0
23#define  _FileVersion_3  $WCREV$
24#define  _ProductVersion_0  3
25#define  _ProductVersion_1  2
26#define  _ProductVersion_2  0
27#define  _ProductVersion_3  1

在打包时运行如下的批处理文件就会自动生成或者更新version.h
SubWCRev.exe ..\ SubWCRev.txt ..\version.h

pause

Sub DeleteFile(myfolder)
On Error Resume Next
 Set subfolders = myfolder.Subfolders
 For Each Subfolder in subfolders
  DeleteFile subfolder
 Next

 For Each strExt in extArr
  strTemp = myfolder.path & "\*." & strExt
  fs.deletefile strTemp, True
 Next
 'For each myfile in myfolder.files 
 ' strFileExt = LCase(fs.getextensionname(myfile.name))
 ' For each strExt in extArr
 ' If strExt = strFileExt Then
 '   fs.deletefile myfile.path, True
 '  End If
 ' Next  
 'Next
End Sub

Sub LogIt(text)
 If Not debugging Then Exit Sub
 Set output = fs.OpenTextFile(logfile, 8, True, -2)
 output.writeLine Now() & vbTab & "Information: " & text
 output.close
End Sub

Microsoft corporation is proud of user account control。It provides maximum protect ability for computer。It is very useful for beginner and generally users，but people that has experience is very unsuitable。Especially program developer，When we debug our program，some access reject。

We must run the executable file without debug under administrator。At Last I can not bear it。And I disable it。

Method

   Open Control panel and go into “user account and family safety”。Click Change your windows password linkbutton。Now at end of row is “Turn user Account Control on or off”.

   Run msconfig.exe. and open the tools tab page. Here provide tool to disable and enable user account control.

   Okay.We can change the pattern now. change it and restart computer. The annoying pop dialog about the permission go away. Oh the Sky is blue back.

   Above I resolve the debug trouble. But I can not be sure that the client hate this control yet. Before We release our program, we should configure the project property to request the administrator right.

   If we work under Vs2008 environment. Open the project property page,configuration properties->linker->manifest file. Here you can configurate it.

   If we work under VS2005 environment. It is difficult to configuate. Follow me.

      Add a xml document which comment like:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

 <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">

    <security>

      <requestedPrivileges>

        <requestedExecutionLevel level="requireAdministrator" uiAccess="false"></requestedExecutionLevel>

      </requestedPrivileges>

    </security>

 </trustInfo>

 <dependency>

    <dependentAssembly>

      <assemblyIdentity type="win32" name="Microsoft.VC90.DebugCRT" version="9.0.21022.8" processorArchitecture="x86" publicKeyToken="1fc8b3b9a1e18e3b"></assemblyIdentity>

    </dependentAssembly>

 </dependency>

</assembly>

This document must is  a embedded resource. And in property page specify this  file as additional manifest file.  build your program.

At end