Set objShell = CreateObject("WScript.Shell")
 Set env = objShell.Environment
 EnvStr = env.Item("Path")
 If InStr(EnvStr,"%SystemRoot%\Microsoft.NET\Framework\v1.0.3705") = 0
 Then
        IF Right(EnvStr,1) = ";" Then
                EnvStr = EnvStr & "%SystemRoot%\Microsoft.NET\Framework\v1.0.3705;C:\Programme\Microsoft Visual Studio .NET\FrameworkSDK\Bin;"
         Else
                 EnvStr = EnvStr & ";%SystemRoot%\Microsoft.NET\Framework\v1.0.3705;C:\Programme\Microsoft Visual Studio .NET\FrameworkSDK\Bin;"
        End If
        env.Item("Path") = EnvStr
 End IF

 Wscript.Echo env.Item("Path")
 Set env = Nothing
 Set objShell = Nothing