Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / Скрипт / 15 сообщений из 15, страница 1 из 1
29.08.2002, 09:43:06
    #32046703
tot0
tot0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
Мне нужно написать скрипт, который сравнивает размер базы и размер свободного пространства на диске, и посылает все по мылу или Net send , может кто делал? помогите....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 09:49:57
    #32046705
Tot0
Tot0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
А можно как-нибудь это сделать на VB-sсript, помогите кто чем может.....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 09:55:07
    #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:57:17
    #32046708
snake
snake
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
а может и не все...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 10:26:17
    #32046723
tot0
tot0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
А свободное место на диске, например C там же нельзя определить...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 10:47:39
    #32046734
Maxx
Maxx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
Помоему нужно посмотреть ф-ции WinApi по етому поводу,т.к . на вскидку не помню есть ли в скрипте кроме Dir ф-ции для работы с каталогами - всмысле размер определить,но помоему из процедур сервера ето тоже сделать можно(неуверен, но где то что то похожее здесь делал Glory).
Но помоему тебе нужно вызвать две апишки,сравнить разсер двух каталогов,потом создать обьект Outluk.Application и послать мыло. Счас пороюсь у себя в загашниках если что откопаю - напишу,а так просмотри MSDN там много похожих семплов есть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 10:55:07
    #32046737
tot0
tot0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
Будь любезен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 11:58:12
    #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, 12:12:07
    #32046770
Jimmy
Jimmy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
Ну господа! Зачем же сразу WinApi ?

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

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

Потом, заглянуть в системный монитор, добавить туда счетчик "Логический диск/свободно мегабайт" и наслаждаться :0)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 13:25:58
    #32046813
toT0
toT0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
А как мне File открыть из VB Script и записать в него все, остальное я понял
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 15:26:15
    #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, 16:55:43
    #32046919
toT0
toT0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
Спасибо но я до этого допер , все делается, теперь не могу послать мыло, когда место на диске кончается...( и мне это порядком надоело_) может кто подскажет ЮННАТУ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2002, 18:13:10
    #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, 20:08:44
    #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
| Ответить | Цитировать | Написать  
30.08.2002, 14:42:55
    #32047169
tot0
tot0
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт
Выглядит прекрасно, спасибо всем участникам, но контора предпочитает 'THE BAT' пришлось писать самому, программу рассылки, (нужен текстовый файл, с адрсом получателя и текст и аттач и всего то запустить *.EXE)
Ну в общем неплохо получилось ( Backup->.rar->FTP->Unrar->2 server-> restore , все это для диференц. копий, и логов,) И все проверяется на наличие свободного места (винт маловат), если что посылает всем мыло с ошибками. Можно попить пивка.... Для новичка , мне кажется неплохо...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / Скрипт / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 334ms
Закрыть
start [/forum/topic.php?fid=46&tablet=1&tid=1820717]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 231ms
total:  334ms
x
x
Закрыть


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