1
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
select SMS_R_System.ResourceId, SMS_R_System.ResourceType, SMS_R_System.Name, SMS_R_System.SMSUniqueIdentifier, SMS_R_System.ResourceDomainORWorkgroup, SMS_R_System.Client from SMS_R_System inner join SMS_G_System_OPERATING_SYSTEM on SMS_G_System_OPERATING_SYSTEM.ResourceId = SMS_R_System.ResourceId where SMS_R_System.Name not in (select SMS_R_System.Name from SMS_R_System inner join SMS_G_System_ADD_REMOVE_PROGRAMS on SMS_G_System_ADD_REMOVE_PROGRAMS.ResourceID = SMS_R_System.ResourceId where SMS_G_System_ADD_REMOVE_PROGRAMS.DisplayName like "%KB4012598%") and SMS_G_System_OPERATING_SYSTEM.Caption like "%XP%"
select SMS_R_SYSTEM.ResourceID,SMS_R_SYSTEM.ResourceType,SMS_R_SYSTEM.Name,SMS_R_SYSTEM.SMSUniqueIdentifier,SMS_R_SYSTEM.ResourceDomainORWorkgroup,SMS_R_SYSTEM.Client from SMS_R_System inner join SMS_G_System_SoftwareFile on SMS_G_System_SoftwareFile.ResourceID = SMS_R_System.ResourceID inner join SMS_G_System_OPERATING_SYSTEM on SMS_G_System_OPERATING_SYSTEM.ResourceID = SMS_R_System.ResourceID where SMS_G_System_SoftwareFile.FilePath like "%\\Program Files\\Internet Explorer\\" and SMS_G_System_SoftwareFile.FileName like "iexplore.exe" and SMS_G_System_SoftwareFile.FileVersion like "11.%"
Sub Color_RUS_LAT() ' Выделяет русские символы в выделенном диапазоне [color=green]ЗЕЛЁНЫМ[/color], латинские - [color=red]КРАСНЫМ[/color]
If TypeName(Selection) <> "Range" Then Exit Sub
Dim iCell As Range, rRange As Range, i%, ASCII%, iColor%
On Error GoTo eXXit
Set rRange = Intersect(Selection, ActiveSheet.UsedRange)
If rRange Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each iCell In rRange
For i = 1 To Len(iCell)
ASCII = Asc(Mid(iCell, i, 1))
If (ASCII >= 192 And ASCII <= 255) Then iColor = 10 'цвет символов РУС
If (ASCII >= 65 And ASCII <= 90) Or (ASCII >= 97 And ASCII <= 122) Then iColor = 5 'цвет символов LAT
iCell.Characters(Start:=i, Length:=1).Font.ColorIndex = iColor
Next i
Next iCell
rRange.Select
Application.ScreenUpdating = True
eXXit: End Sub
Sub Repair_LAT() ' замена русских буквы на такие же по начертанию латинские
If TypeName(Selection) <> "Range" Then Exit Sub
Dim arrENG(): arrENG = Array("C", "0", "0", "0", "0", "c", "E", "e", "T", "O", "o", "p", "P", "A", "a", "H", "K", "k", "X", "x", "B", "M")
Dim arrRUS(): arrRUS = Array("С", "O", "o", "О", "о", "с", "Е", "е", "Т", "О", "о", "р", "Р", "А", "а", "Н", "К", "к", "Х", "х", "В", "М")
Dim i%
For i = 0 To UBound(arrENG)
Intersect(Selection, ActiveSheet.UsedRange).Replace _
What:=arrRUS(i), _
Replacement:=arrENG(i), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
Next i
End Sub
DELIMITER //
CREATE TRIGGER table_name_before_del_tr
BEFORE DELETE
ON table_name FOR EACH ROW
BEGIN
SIGNAL SQLSTATE '45000' SET MESSAGE_TEXT = 'DELETE canceled';
END; //
DELIMITER ;
Оставлю тут на память...%windir%\system32\ccmsetup\ccmsetup /uninstall
переустановить его зановоccmsetup.exe SMSMP=serv-man01 SMSSITECODE=001 SMSFSP=serv-man01
результат тот же.