Start ONLY from Mass Storage?

[Shocker]

Hi there,

is it possible that a Prog can ONLY be started from a Mass Storage like USB Stick, external HDD, SD Card whatever?

[JohnOne]

I imagine so.

Look at DriveGetDrive() and do something with that, and the path to your script.

[Shocker]

Thx for reply! I test DriveGetDrive() for example with >THIS, but he show me a USB HDD as a FIXED Drive...

Edited October 5, 2014 by Shocker

[JohnOne]

Show the exact code you used.

[Shocker]

Have nothing yet... Looking for a "Startup Check" which test, whether used Drive is a Mass Storage or not.

[JohnOne]

You gave a link to someone's code that does not work, that's why he posted in help and support.

Why did you expect it to work for you?

[Shocker]

No, i don't expect that a code work 100% at first time  (but sometimes do). I search what i need and test different code snipets, or ask if i don't find right one.

[JohnOne]

I think you are not understanding.

You wrote this...

 

but he show me a USB HDD as a FIXED Drive

 

Post the exact code you tried to get that.

[Shocker]

getdrives()

 Func getdrives()
; Fill the destination list
Local $drives = DriveGetDrive("ALL")
If @error == 1 Then
  MsgBox(0, "Error", "No removeable media found, cannot continue!" & @CRLF & "Please insert a micro SD card or other removeable media to copy to.", 15)
  ;GUISetState(@SW_SHOW, $mainwindow)
  GUISetState(@SW_HIDE, $cabswindow)
Else
  For $i = 1 To $drives[0]
   Local $drive = $i
   Local $type = DriveGetType($drives[$i] & "")
   If @error == 1 Then
    $type = "Error getting drive type"
   EndIf
   ConsoleWrite($drives[$i] & "\ " & $type & @CRLF)
  Next
EndIf
EndFunc   ;==>GetDrives

Result...

c: Fixed

d: Fixed

e: Fixed

f: CDROM

g: CDROM

h: Fixed -> is USB HDD

i: Removable -> is a USB Stick

[Spider001]

Type of drive to find:
"ALL", "CDROM", "REMOVABLE", "FIXED", "NETWORK", "RAMDISK", or "UNKNOWN"

use what you need ?

[jguinch]

You can use a WMI query to find out if the device is an USB one or not.

Here is an example :

expandcollapse popup

Local $aUSBDrives = _ListUSBVolumes()


Local $iRunFromUSB = 0
For $i = 1 To $aUSBDrives[0]
    If StringRegExp( @ScriptDir, "(?i)^" & $aUSBDrives[$i]) Then
        $iRunFromUSB = 1
        ExitLoop
    EndIf
Next

If $iRunFromUSB Then
    MsgBox(0, "", "OK")
Else
    MsgBox(16, "", "The program must be launched from an USB drive !")
EndIf
 
 
 
; #FUNCTION# ====================================================================================================================
; Name ..........: _ListUSBVolumes
; Description ...: List USB volumes
; Syntax ........: _ListUSBVolumes()
; Parameters ....: None
; Return values .: An array of strings (USB drive letter followed by colon) of drives found.
;                  The zeroth array element contains the number of drives.
; Author ........: jguinch
; ===============================================================================================================================
Func _ListUSBVolumes()
    Local $aResult[1]
 
    Local $oDrive, $sDeviceID, $oPartitions, $oPartition, $oLogicalDisks, $oLogicalDisk, $sDriveLetter
    Local $oWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\cimv2")
 
    Local $oDiskDrives = $oWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive Where InterfaceType = 'USB'")
 
    For $oDrive In $oDiskDrives
        $sDeviceID = StringReplace($oDrive.DeviceID, "\", "\\")
        $oPartitions = $oWMIService.ExecQuery _
            ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _
                $sDeviceID & """} WHERE AssocClass = " & _
                    "Win32_DiskDriveToDiskPartition")
 
        For $oPartition In $oPartitions
            $oLogicalDisks = $oWMIService.ExecQuery _
                ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _
                    $oPartition.DeviceID & """} WHERE AssocClass = " & _
                        "Win32_LogicalDiskToPartition")
 
            For $oLogicalDisk In $oLogicalDisks
                $sDriveLetter = $oLogicalDisk.DeviceID
                If $sDriveLetter <> "" Then
                    Redim $aResult[ UBound($aResult) + 1]
                    $aResult[ UBound($aResult) - 1] = $sDriveLetter
                EndIf
            Next
        Next
    Next
 
    $aResult[0] = UBound($aResult) - 1
    Return $aResult
EndFunc

[Shocker]

@jguinch

Thx for reply! It works very GOOD - MERCI INFINIMENT

Is it same Code for both OS (X86/64)?

[jguinch]

Yes