ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / Скрипт
15 сообщений из 15, страница 1 из 1
Скрипт
    #32046703
tot0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tot0
Гость
Мне нужно написать скрипт, который сравнивает размер базы и размер свободного пространства на диске, и посылает все по мылу или Net send , может кто делал? помогите....
...
Рейтинг: 0 / 0
29.08.2002, 09:43:06
| Ответить | Цитировать | Написать  
Скрипт
    #32046705
Tot0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tot0
Гость
А можно как-нибудь это сделать на VB-sсript, помогите кто чем может.....
...
Рейтинг: 0 / 0
29.08.2002, 09:49:57
| Ответить | Цитировать | Написать  
Скрипт
    #32046707
Фотография snake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
snake
Участник
По-моему все вами перечисленное можно сделать на алертах...
EM-Management-Alerts-New Alerts-SQL Server performance condition alert-SQL Server:Databases...
Если я не прав пусть поправят.
P.S. SQL2k
...
Рейтинг: 0 / 0
29.08.2002, 09:55:07
| Ответить | Цитировать | Написать  
Скрипт
    #32046708
Фотография snake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
snake
Участник
а может и не все...
...
Рейтинг: 0 / 0
29.08.2002, 09:57:17
| Ответить | Цитировать | Написать  
Скрипт
    #32046723
tot0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tot0
Гость
А свободное место на диске, например C там же нельзя определить...
...
Рейтинг: 0 / 0
29.08.2002, 10:26:17
| Ответить | Цитировать | Написать  
Скрипт
    #32046734
Фотография Maxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxx
Участник
Помоему нужно посмотреть ф-ции WinApi по етому поводу,т.к . на вскидку не помню есть ли в скрипте кроме Dir ф-ции для работы с каталогами - всмысле размер определить,но помоему из процедур сервера ето тоже сделать можно(неуверен, но где то что то похожее здесь делал Glory).
Но помоему тебе нужно вызвать две апишки,сравнить разсер двух каталогов,потом создать обьект Outluk.Application и послать мыло. Счас пороюсь у себя в загашниках если что откопаю - напишу,а так просмотри MSDN там много похожих семплов есть.
...
Рейтинг: 0 / 0
29.08.2002, 10:47:39
| Ответить | Цитировать | Написать  
Скрипт
    #32046737
tot0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tot0
Гость
Будь любезен
...
Рейтинг: 0 / 0
29.08.2002, 10:55:07
| Ответить | Цитировать | Написать  
Скрипт
    #32046763
Фотография Maxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxx
Участник
Прости выручить тебя мне не удасться,где уже заархивировано,долго искать:((
Но вот пользительная ссылка,кстати я в свое время оттуда и тянул все
http://search.microsoft.com/default.asp?qu=dir+and+size+and+catalog&boolean=ALL&nq=NEW&so=RECCNT&p=1&ig=03&i=99&siteid=us/dev
и есче
 msdn.microsoft.com
Поисчи там и них точно ето есть
...
Рейтинг: 0 / 0
29.08.2002, 11:58:12
| Ответить | Цитировать | Написать  
Скрипт
    #32046770
Фотография Jimmy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jimmy
Участник
Ну господа! Зачем же сразу WinApi ?

Для контроля дисковой активности (в том числе и свободного места) существуют счетчики в системном мониторе Win NT|2000, просто они не включены по умолчанию (в MS говорят, производительность падает).
Ну да - падает (наверное). Не замечал.

Чтобы включить их, нужно в командной строке набрать diskperf -y <ENTER> и перезагрузить комп.

Потом, заглянуть в системный монитор, добавить туда счетчик "Логический диск/свободно мегабайт" и наслаждаться :0)
...
Рейтинг: 0 / 0
29.08.2002, 12:12:07
| Ответить | Цитировать | Написать  
Скрипт
    #32046813
toT0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
toT0
Гость
А как мне File открыть из VB Script и записать в него все, остальное я понял
...
Рейтинг: 0 / 0
29.08.2002, 13:25:58
| Ответить | Цитировать | Написать  
Скрипт
    #32046876
Фотография Maxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxx
Участник
Код: plaintext
1.
2.
3.
4.
5.
Set fso = CreateObject( "Scripting.FileSystemObject" )
  Set a = fso.CreateTextFile( "t:\TEST\test.txt" , True, True)
.........
a.WriteLine(Wtite)
.........
a.Close

Вот примерно так:)))))
...
Рейтинг: 0 / 0
29.08.2002, 15:26:15
| Ответить | Цитировать | Написать  
Скрипт
    #32046919
toT0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
toT0
Гость
Спасибо но я до этого допер , все делается, теперь не могу послать мыло, когда место на диске кончается...( и мне это порядком надоело_) может кто подскажет ЮННАТУ
...
Рейтинг: 0 / 0
29.08.2002, 16:55:43
| Ответить | Цитировать | Написать  
Скрипт
    #32046946
Фотография Maxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxx
Участник
Держи,правда почистить времени нет,но точно работает
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
   'Export the PivotTable as shown on screen
   PTable.ExportPicture "C:\Pivot.gif"

   ' ---- Automate Outlook to Send the Email Message ----
 

   Dim oOutlook
   Dim oMsg
   Dim oRecipient
   Dim oAttachment

   ' Create the Outlook session.
   Set oOutlook = CreateObject("Outlook.Application")

   ' Create the message.
   Set oMsg = oOutlook.CreateItem( 0 )  'olMailItem = 0

   With oMsg

      ' Set the Subject and Body of the message.
      .Subject =  "PivotTable Sample" 
         
      If EmailType( 1 ).Checked Then

         'Send the GIF as an attachment
         .Body = "Hey! Look at this cool PivotTable!" & vbCrLf & vbCrLf
         Set oAttachment = .Attachments.Add("C:\Pivot.gif", 5) 'olEmbeddedItem =  5 

      Else
 
         'Use HTML format for the mail message body
         .HTMLBody = "<HTML><BODY><FONT SIZE=2>Hey! Look at this cool Pivottable!<BR><BR><BR>" & _
                     "<IMG SRC=C:\Pivot.Gif ALT=""The Image is Unavailable"">" & _
                     "</FONT></BODY></HTML>"
      End If

      'Display the mail item
      oMsg.Display

   End With

End Sub
...
Рейтинг: 0 / 0
29.08.2002, 18:13:10
| Ответить | Цитировать | Написать  
Скрипт
    #32046967
Фотография MarchCat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MarchCat
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub SentMail(varRecip,varAttach,strSubject,strMessage)
   Set golApp = Wscript.CreateObject( "Outlook.Application" )
	Set objNewMail = golApp.CreateItem( 0 )
		objNewMail.Recipients.Add varRecip 
		objNewMail.Attachments.Add varAttach
		objNewMail.Subject= strSubject
		objNewMail.body= strMessage
		If objNewMail.Recipients.ResolveAll Then _
                             objNewMail.Send
   Set golApp = Nothing
   Set objNewMail = Nothing
End Sub

Я так делаю :) И самое что интересное ... что посылает!
...
Рейтинг: 0 / 0
29.08.2002, 20:08:44
| Ответить | Цитировать | Написать  
Скрипт
    #32047169
tot0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tot0
Гость
Выглядит прекрасно, спасибо всем участникам, но контора предпочитает 'THE BAT' пришлось писать самому, программу рассылки, (нужен текстовый файл, с адрсом получателя и текст и аттач и всего то запустить *.EXE)
Ну в общем неплохо получилось ( Backup->.rar->FTP->Unrar->2 server-> restore , все это для диференц. копий, и логов,) И все проверяется на наличие свободного места (винт маловат), если что посылает всем мыло с ошибками. Можно попить пивка.... Для новичка , мне кажется неплохо...
...
Рейтинг: 0 / 0
30.08.2002, 14:42:55
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / Скрипт
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=46&msg=32046919&tid=1820717]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 29ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 226ms
total:  334ms
созд. / загр.: 334ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]