Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] проверка флешки по SN

Ответить
Настройки темы
[решено] проверка флешки по SN

Пользователь


Сообщения: 54
Благодарности: 0

Профиль | Отправить PM | Цитировать


Надо чтобы скрипт проверял флешку по серийнику если он правильный то выполнять скрипт дальше.

Отправлено: 23:17, 23-11-2009

 

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Можно попробовать посредством WMI:
Код: Выделить весь код
AutoItSetOption("MustDeclareVars", 1)

Local $sTargetVolumeSerialNumber = "ABCDEFGH"
Local $bFound = False

Local $oSWbemServicesEx = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Local $cSWbemObjectSet = $oSWbemServicesEx.ExecQuery("SELECT * FROM Win32_LogicalDisk", "WQL", 0)
Local $oSWbemObjectEx


If $cSWbemObjectSet.Count > 0 Then
	For $oSWbemObjectEx In $cSWbemObjectSet
		ConsoleWrite("Drive: [" & $oSWbemObjectEx.Name & "]" & @TAB & "Serial number: [" & $oSWbemObjectEx.VolumeSerialNumber & "]" & @CRLF) ; Для отладки

		If $oSWbemObjectEx.VolumeSerialNumber = $sTargetVolumeSerialNumber Then
			ConsoleWrite("Found on drive [" & $oSWbemObjectEx.Name & "]" & @CRLF) ; Для отладки
			$bFound = True

			ExitLoop
		EndIf
	Next
EndIf

$oSWbemObjectEx   = 0
$cSWbemObjectSet  = 0
$oSWbemServicesEx = 0

If Not $bFound Then
	Exit(1)
EndIf

;
; Здесь Ваши операторы
;

Exit(0)
Это сообщение посчитали полезным следующие участники:

Отправлено: 06:14, 24-11-2009 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
$sSerial = "3634030921"
$sDrive  = ""
$aDrives = DriveGetDrive ("REMOVABLE")

If IsArray($aDrives) Then
   For $i=1 To $aDrives[0]
      If DriveGetSerial($aDrives[$i]) == $sSerial Then $sDrive = $aDrives[$i]
   Next
EndIf

If $sDrive == "" Then Exit MsgBox(16, "Ошибка", "Не найден требуемый диск")
Это сообщение посчитали полезным следующие участники:

Отправлено: 07:18, 24-11-2009 | #3


Пользователь


Сообщения: 54
Благодарности: 0

Профиль | Отправить PM | Цитировать


А КАК УЗНАТЬ SN ФЛЕШКИ КОТОРЫЙ ВИДИТ СКРИПТ

Отправлено: 14:17, 24-11-2009 | #4


Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


Anarasius, пример в справке к DriveGetSerial()

-------
Как сообщить о том, что моя проблема решена?
не оказываю техподдержку через ПМ/ICQ/Mail - для этого есть форум


Отправлено: 18:12, 24-11-2009 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] проверка флешки по SN

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
[решено] Прошивка BIOS с флешки medvedkovo Поиск драйверов, прошивок и руководств 22 10-01-2013 14:42
[решено] Пропало содержимое флешки terminda Хочу все знать 22 09-01-2010 00:16
Flash - [решено] установка програм с флешки shurik-1978 Накопители (SSD, HDD, USB Flash) 1 14-09-2009 21:38
Debian/Ubuntu - [решено] Создание загрузочной флешки Naiad Общий по Linux 3 19-09-2008 00:36
Установка - [решено] Установка Windows XP с флешки Raksa Microsoft Windows 2000/XP 7 12-07-2008 10:13




 
Переход