تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لمعرفة حرف ال Drive الخاص ب USB
#1
كاتب الموضوع : AhmedEssawy


كود :
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'FileName Reg.vbs
'Author Clanguuage
'Creation Date 05/04/2007
'Purpose To register the USB drive
' This script will retrieve the drive letter assigned to the USB
' it will then register the information in the registry.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
'cycle through all the drives to find the newly assigned lettter of the USB
For Each objDrive in colDrives
if objDrive.VolumeName = "AOIDATA" then
strValue = objDrive.DriveLetter & ":\AOIDATA"
exit for
end if
Next

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Tracker II\Path Names\General"
strValueName = "USBPath"

oReg.SetStringValue _
HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

'Const HKEY_LOCAL_MACHINE = "USBPath"
'
'strComputer = "."
'
'Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
' strComputer & "\root\default:StdRegProv")
'
'strKeyPath = "\SOFTWARE\Tracker II\Path Names\General"
'oReg.CreateKey HKEY_LOCAL_MACHINE ,strKeyPath
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لمعرفة عنوان المجلد MyDocuments RaggiTech 0 309 17-10-12, 02:23 PM
آخر رد: RaggiTech
  لمعرفة حجم الذاكرة الحية الخاصة بكل Slot RaggiTech 0 337 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة ان كانت السنة كبيسة أم لا RaggiTech 0 318 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة الوقت المستغرق منذ بدأ تشغيل الآلة RaggiTech 0 367 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة الخطوط المدعومة RaggiTech 0 323 17-10-12, 02:21 PM
آخر رد: RaggiTech
  تحديد المعرف unc الخاص بجهاز على الشبكة RaggiTech 0 318 17-10-12, 02:17 PM
آخر رد: RaggiTech
  معرفة سيريال Drive معين RaggiTech 0 325 17-10-12, 01:07 AM
آخر رد: RaggiTech
  لمعرفة نوع المعالج المثبت في جهازك RaggiTech 0 310 17-10-12, 01:02 AM
آخر رد: RaggiTech
  لمعرفة نسبة استخدام البروسيسور في الجهاز RaggiTech 0 365 17-10-12, 01:02 AM
آخر رد: RaggiTech
  لمعرفة لو كان التحديد باستخدام Tab او باستخدام الماوس RaggiTech 0 312 17-10-12, 01:01 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم