ZTIGather.wsf Compare
Produced: 3/21/2011 11:07:46 AM
   
Mode:  Differences, With Context  
Left file: C:\7\DeployShare\Scripts\ZTIUtility.vbs     Right file: A:\Scripts\ZTIUtility.vbs  
1030   = 1030  
1031     1031  
1032                 ' Save to all available environments   1032                 ' Save to all available environments
1033     1033  
1034                 If SetOSDV4(sVariable, sEncoded) or SetDat(sVariable, sEncoded) Then   1034                 If SetOSDV4(sVariable, sEncoded) or SetDat(sVariable, sEncoded) Then
1035                         oLogging.CreateEntry "Property " & sVariable & " is now = " & sNew, LogTypeInfo   1035                         oLogging.CreateEntry "Property " & sVariable & " is now = " & sNew, LogTypeInfo
1036   +-    
1037        
1038        
1039                         'MM: Mike Morawski (Migee.com) Per-Task Settings - ZTIUTILITY.VBS      
1040                         dim curDictionary, curInnerDictionary, curDictionaryKeys      
1041                         Dim aElement, aItem, i      
1042        
1043                         'If TaskSequence changes, run through and update any "pending" varialbes      
1044                         If sVariable = "TaskSequenceID" Then      
1045                                 'Changing tasks. Pending variables *keys* stored in either Dynamic_{TASKID}_Elements and Dynamic_{TASKID}_Elements_LIST      
1046                                 oLogging.CreateEntry "MM: Task Sequence Changed! Checking for variables @ Dynamic_" & sNew & "_Elements", LogTypeInfo      
1047        
1048                                 'Don't feel like a function lets keep this in one spot with a single re-loop. Somewhat simpler overall.      
1049                                 aElement=Array("_Elements", "_Elements_LIST")      
1050                                      
1051                                 For Each aItem In aElement      
1052                                         oLogging.CreateEntry "MM: Task Sequence Changed! Checking for variables @ Dynamic_" & sNew & aItem, LogTypeInfo      
1053        
1054                                         'Get items (pointer) dictionary that lists any changed property name (i.e.Areacode,computerbackuplocation,applications,migfiles etc)      
1055                                         Set curDictionary = oEnvironment.ListItem("Dynamic_" & sNew & aItem)      
1056                                              
1057                                         If curDictionary.Count > 0 Then      
1058                                                 oLogging.CreateEntry "MM: Dynamic_" & sNew & aItem & " container is not empty, beginning update process.", LogTypeInfo      
1059        
1060                                                 curDictionaryKeys = curDictionary.Keys      
1061        
1062                                                 'Update original values with new task sequence values      
1063                                                 For i = 0 to curDictionary.Count -1      
1064                                                         If aItem = "_Elements" Then      
1065                                                                 oLogging.CreateEntry "MM: Updating " & curDictionaryKeys(i) & ": " & oEnvironment.Item(curDictionaryKeys(i)) & " to "  & oEnvironment.Item("Dynamic_" & sNew & "_" & curDictionaryKeys(i)), LogTypeInfo      
1066                                                                 oEnvironment.Item(curDictionaryKeys(i)) = oEnvironment.Item("Dynamic_" & sNew & "_" & curDictionaryKeys(i))      
1067                                                         ElseIf aItem = "_Elements_LIST" Then      
1068                                                                 oLogging.CreateEntry "MM: Updating List: " & curDictionaryKeys(i) & " to become list named: Dynamic_" & sNew & "_" & curDictionaryKeys(i), LogTypeInfo      
1069                                                                 Set curInnerDictionary = oEnvironment.ListItem("Dynamic_" & sNew & "_" & curDictionaryKeys(i))       
1070                                                                 Set oEnvironment.ListItem(curDictionaryKeys(i)) = curInnerDictionary      
1071                                                         Else      
1072                                                                 oLogging.CreateEntry "MM: ERROR, No list key defined for " & curDictionaryKeys(i)      
1073                                                         End If      
1074                                                 Next      
1075                                         End If      
1076                                 Next      
1077                                                      
1078                         End If      
1079                         'MM: End Per-Task Settings Snippet      
1080        
1081        
1082        
1083                 End If = 1036                 End If
1084     1037  
1085     1038  
1086                 ' For completeness, set the variable in the process's environment as well   1039                 ' For completeness, set the variable in the process's environment as well
1087     1040  
1088                 oEnv(sVariable) = sNew   1041                 oEnv(sVariable) = sNew