You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
699 B
15 lines
699 B
'Copyright (c)<2000>Microsoft Corporation. All rights reserved.
|
|
Dim WshShell
|
|
Dim te
|
|
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
On Error Resume Next
|
|
te = WshShell.RegRead("HKLM\Software\Microsoft\ServerAppliance\ApplianceManager\ObjectManagers\Microsoft_SA_TASK\ApplianceInitializationTask\TaskExecutables")
|
|
|
|
|
|
'Remove alloccurances of setalertemail incase there are more
|
|
'Append SetChimesettings at the end of the key
|
|
te = Replace(te," setalertemail.alertemail.1"," ",1,-1,1)
|
|
te = te + " setalertemail.alertemail.1"
|
|
|
|
WshShell.RegWrite "HKLM\Software\Microsoft\ServerAppliance\ApplianceManager\ObjectManagers\Microsoft_SA_TASK\ApplianceInitializationTask\TaskExecutables",te
|