Вопрос : Сценарий VB для того чтобы перечислить имя диска и размер и открытый космос

Hi все,

I имеют архив текста который имеет около 200 имен сервера. Мне нужно vbscript прочитать внутри архив текста и произвести отчет о физические размер и открытый космос диска для каждой помощи server.

Please!

Thanks class=

Ответ : Сценарий VB для того чтобы перечислить имя диска и размер и открытый космос

LOL! Я думал вы могло спросить то.  Так я имел re-смотрю на моем Кодем, и я теперь делал его очень более динамическим, где вам только нужно определить письма привода, котор вы хотите в arrDrives.  Вы можете добавить или вичесть так много письма привода по мере того как вы желаете.

Отношения,

Rob.
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:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:

strInputFile = «computers.txt»
strOutputFile = «hard_disk_space.csv»
Тусклые arrDrives
arrDrives = блок («c», «d», «e», «f»)

Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Const intForReading = 1

Const adVarChar = 200
Const MaxCharacters = 255


Тусклое DataList
Установите DataList = CreateObject («ADOR.Recordset»)
DataList.Fields.Append «сервер», adVarChar, MaxCharacters
Для каждого strDrive в arrDrives
	DataList.Fields.Append strDrive & «размер», adVarChar, MaxCharacters
	DataList.Fields.Append strDrive & «открытый космос», adVarChar, MaxCharacters
	DataList.Fields.Append strDrive & «проценты освобождают», adVarChar, MaxCharacters
Затем
DataList.Open

Установленное objInputFile = objFSO.OpenTextFile (strInputFile, intForReading)
Пока не objInputFile.AtEndOfStream
	strComputer = objInputFile.ReadLine
	Get_Free_Space_Details (strComputer)
Wend

Установите objOutputFile = objFSO.CreateTextFile (strOutputFile, поистине)
""" СЕРВЕРА strHeader = """
Для каждого strDrive в arrDrives
	strHeader = strHeader & «, """ & strDrive &» ОПРЕДЕЛЯЮТ РАЗМЕР "", """ & "" strDrive & «ОТКРЫТОГО КОСМОСА, """ & """ strDrive &» ПРОЦЕНТОВ СВОБОДНО
Затем
strHeader objOutputFile.WriteLine
DataList.MoveFirst
Пока не DataList.EOF
	strLine = """" & DataList («сервер») & """"
	Для каждого strDrive в arrDrives
		strLine = strLine & «, """ & DataList (strDrive &» размеры ") & """, """ & DataList (strDrive & «открытые космосы») & """, """ & DataList (strDrive &» проценты освободите ") & """"
	Затем
	strLine objOutputFile.WriteLine
	DataList.MoveNext
Wend
DataList.Close
objOutputFile.Close

Сделанное MsgBox «. Пожалуйста см.» & strOutputFile
'==============

Sub Get_Free_Space_Details (strComputer)

	DataList.AddNew
	DataList («сервер») = strComputer
	Если Пинг (strComputer) = True после этого 
		На резюме ошибки затем
		Установите objWMIService = GetObject («winmgmts: {impersonationLevel=impersonate}! \ \» & strComputer & «\ корень \ cimv2»)
		Если Err.Number = 0 после этого
			Err.Clear
			На ошибке переход 0
			Для каждого strDrive в arrDrives
				Установите colDisks = objWMIService.ExecQuery («отборное FreeSpace, размер от Win32_LogicalDisk где DriveType = 3 и DeviceID = «» & strDrive & «: » ")
				Для каждого objDisk в colDisks
					intFreeSpace = objDisk.FreeSpace
					intTotalSpace = objDisk.Size
					pctFreeSpace = intFreeSpace/intTotalSpace
					DataList (strDrive & «размер») = кругло (intTotalSpace/1024/1024/1024, 2) &» GB "
					DataList (strDrive & «открытый космос») = кругло (intFreeSpace/1024/1024/1024, 2) &» GB "
					DataList (strDrive & «процент освободите») = FormatPercent (pctFreeSpace)
				Затем
			Затем			
			Установите objDisk = ничего
			Установите colDisks = ничего
			Установите objWMIService = ничего
		Еще
			Для каждого strDrive в arrDrives
				DataList (strDrive & «размер») = «ОШИБКА WMI»
				DataList (strDrive & «открытый космос») = «ОШИБКА WMI»
				DataList (strDrive & «процент освободите») = «ОШИБКА WMI»
			Затем
		Закончитесь если
	Еще
		Для каждого strDrive в arrDrives
			DataList (strDrive & «размер») = «OFFLINE»
			DataList (strDrive & «открытый космос») = «OFFLINE»
			DataList (strDrive & «процент освободите») = «OFFLINE»
		Затем
	Закончитесь если
	DataList.Update
Закончите подводную лодку

Пинг функции (strComputer)
	Тусклое objShell, boolCode
	Установите objShell = CreateObject («WScript.Shell»)
	boolCode = objShell.Run («Пинг - n 1 - w 300» & strComputer, 0, поистине)
	Если boolCode = 0 после этого
		Пинг = True
	Еще
		Пинг = ложно
	Закончитесь если
Закончите функцию
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us