Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
sComputerName = "." sWmiMoniker = StrCat("winmgmts:{impersonationLevel=Impersonate}!//", sComputerName) objServices = GetObject(sWmiMoniker) ; Get physical disk drive. objDiskDrives = objServices.ExecQuery ('SELECT * FROM Win32_DiskDrive WHERE DeviceID="\\\\.\\PHYSICALDRIVE0"') ForEach objDiskDrive In objDiskDrives caption = objDiskDrive.Caption serialnum = objDiskDrive.SerialNumber deviceid = objDiskDrive.DeviceID sDriveInfo = StrCat( "Disk drive Caption: ", caption , @CRLF) sDriveInfo = StrCat(sDriveInfo, "SerialNumber: ", serialnum, @CRLF) sDriveInfo = StrCat(sDriveInfo, "DeviceID: ", " (", deviceid, ")") Message("Disk Drive Info", sDriveInfo) Next objDiskDrives = 0 objServices = 0 Exit
Article ID: W17318
File Created: 2013:05:28:10:28:56
Last Updated: 2013:05:28:10:28:56