오~ 저만의 프로그램 완성-완전 초짜 dism 흉내
2022.05.19 11:06
푸하하하
저만의 dism, 링크 등 만들엇어요
저 정말 초짜
얼마전에 다리를 다쳐 한일이 없어서 ...
자랑 자랑 잼나네요 머리는 아프지만
자랑자랑
저건 dism에 드라이브에 풀때임
흐흐흐 창피하지만 올려 봐요
파티션 문자도 잘되요
여전히 문제는 파워셀에서 받는 정보가 있다는 단점
디스크정보를 얻어야 되는데
disk id 랑 volume id vb에세 얻는 방법 없을까요
지금은 파워셀에서 받아서 하는데
느려요 ㅠㅠ
그럼 더운 여름의 시작 고생들하세요
댓글 [4]
-
내꼬 2022.05.19 12:04 -
ehdwk 2022.05.19 12:09
수고하셨습니다. -
상발이 2022.05.19 15:11
수고하셨습니다.
-
지후빠 2022.05.19 21:54
https://www.activexperts.com/admin/vbscript-collection/disk/drives/ 에 있는 내용입니다.
vbscript로 실행하면 다음 처럼 나타납니다.
Set wmiServices = GetObject("winmgmts:{impersonationLevel=Impersonate}!//.")
Set wmiDiskDrives = wmiServices.ExecQuery("SELECT Caption, DeviceID FROM Win32_DiskDrive")
For Each wmiDiskDrive In wmiDiskDrives
Set wmiDiskPartitions = wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _
Replace(wmiDiskDrive.DeviceID, "\", "\\", 1, -1, vbTextCompare) & _
"""} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
For Each wmiDiskPartition In wmiDiskPartitions
msg = msg & wmiDiskPartition.DeviceID
Set wmiLogicalDisks = wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _
wmiDiskPartition.DeviceID & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
For Each wmiLogicalDisk In wmiLogicalDisks
msg = msg & vbTab & wmiLogicalDisk.DeviceID
Next
msg = msg & vbNewLine
Next
Next
WScript.Echo msg
가장 쉬운 방법은 cmd 창에서 mountvol 이라고 입력해 보세요.
출력된 내용을 파일로 만들어 정리 하면 쉽게 해결 될 겁니다.
그리고 첫 출발 축하합니다.