[THIN] Re: How getting the CDROM drive letter of the client
- From: "Jeff Durbin" <techlists@xxxxxxxxxxxxx>
- To: <thin@xxxxxxxxxxxxx>
- Date: Fri, 19 Mar 2004 07:40:12 +1300
From Microsoft's Scriptomatic tool:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive",,48)
For Each objItem in colItems
Wscript.Echo "Availability: " & objItem.Availability
Wscript.Echo "Capabilities: " & objItem.Capabilities
Wscript.Echo "CapabilityDescriptions: " & objItem.CapabilityDescriptions
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CompressionMethod: " & objItem.CompressionMethod
Wscript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
Wscript.Echo "ConfigManagerUserConfig: " &
objItem.ConfigManagerUserConfig
Wscript.Echo "CreationClassName: " & objItem.CreationClassName
Wscript.Echo "DefaultBlockSize: " & objItem.DefaultBlockSize
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "DeviceID: " & objItem.DeviceID
Wscript.Echo "Drive: " & objItem.Drive
Wscript.Echo "DriveIntegrity: " & objItem.DriveIntegrity
Wscript.Echo "ErrorCleared: " & objItem.ErrorCleared
Wscript.Echo "ErrorDescription: " & objItem.ErrorDescription
Wscript.Echo "ErrorMethodology: " & objItem.ErrorMethodology
Wscript.Echo "FileSystemFlags: " & objItem.FileSystemFlags
Wscript.Echo "FileSystemFlagsEx: " & objItem.FileSystemFlagsEx
Wscript.Echo "Id: " & objItem.Id
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "LastErrorCode: " & objItem.LastErrorCode
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "MaxBlockSize: " & objItem.MaxBlockSize
Wscript.Echo "MaximumComponentLength: " & objItem.MaximumComponentLength
Wscript.Echo "MaxMediaSize: " & objItem.MaxMediaSize
Wscript.Echo "MediaLoaded: " & objItem.MediaLoaded
Wscript.Echo "MediaType: " & objItem.MediaType
Wscript.Echo "MfrAssignedRevisionLevel: " &
objItem.MfrAssignedRevisionLevel
Wscript.Echo "MinBlockSize: " & objItem.MinBlockSize
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "NeedsCleaning: " & objItem.NeedsCleaning
Wscript.Echo "NumberOfMediaSupported: " & objItem.NumberOfMediaSupported
Wscript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
Wscript.Echo "PowerManagementCapabilities: " &
objItem.PowerManagementCapabilities
Wscript.Echo "PowerManagementSupported: " &
objItem.PowerManagementSupported
Wscript.Echo "RevisionLevel: " & objItem.RevisionLevel
Wscript.Echo "SCSIBus: " & objItem.SCSIBus
Wscript.Echo "SCSILogicalUnit: " & objItem.SCSILogicalUnit
Wscript.Echo "SCSIPort: " & objItem.SCSIPort
Wscript.Echo "SCSITargetId: " & objItem.SCSITargetId
Wscript.Echo "Size: " & objItem.Size
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "StatusInfo: " & objItem.StatusInfo
Wscript.Echo "SystemCreationClassName: " &
objItem.SystemCreationClassName
Wscript.Echo "SystemName: " & objItem.SystemName
Wscript.Echo "TransferRate: " & objItem.TransferRate
Wscript.Echo "VolumeName: " & objItem.VolumeName
Wscript.Echo "VolumeSerialNumber: " & objItem.VolumeSerialNumber
Next
JD
> -----Original Message-----
> From: thin-bounce@xxxxxxxxxxxxx
> [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf Of Christophe MORVAN
> Sent: Friday, 19 March 2004 12:48 a.m.
> To: thin@xxxxxxxxxxxxx
> Cc: .CHEVALIER Philippe
> Subject: [THIN] How getting the CDROM drive letter of the client
>
> Hi all
>
> Our servers are NT4 TSE SP6/ MF XP SP1/FR1 .
>
> I would like to give my users the possibility to access their
> local CD-ROM drive in their ICA session. I'd like to write a
> VBScript tool which automaticaly find the drive letter used
> localy for the CD-ROM on the client computer.
> The following command line "CHANGE CLIENT /VIEW" gives the
> result, but my users don't have enough permissions to execute
> the "change.exe"
> command ........... On my NT4 TSE MF XP boxes, client drives
> are not mapped automaticaly in the ICA user's session.
>
>
> Is there a simple way (API, command, ...) to retrieve the
> client computer's CdRom drive letter ?
>
> Any help would be greatly appreciated.
>
> Best regards.
>
> --
> Christophe MORVAN
>
> THALES Syst=E8mes A=E9roport=E9s
> 2, Avenue Gay Lussac
> 78851 ELANCOURT
> Tel:33-01-34-81-47-89
> Fax:33-01-34-81-65-49
>
>
> ********************************************************
> This weeks sponsor Emergent Online.
> Emergent OnLine is the leading server-based computing
> consulting integration firm in the nation. Emergent OnLine
> delivers expert consulting services you can depend on.
> http://www.go-eol.com
> **********************************************************
> Useful Thin Client Computing Links are available at:
> http://thin.net/links.cfm
> ***********************************************************
> For Archives, to Unsubscribe, Subscribe or set Digest or
> Vacation mode use the below link:
> http://thin.net/citrixlist.cfm
>
********************************************************
This weeks sponsor Emergent Online.
Emergent OnLine is the leading server-based computing consulting integration
firm in the nation. Emergent OnLine delivers expert
consulting services you can depend on.
http://www.go-eol.com
**********************************************************
Useful Thin Client Computing Links are available at:
http://thin.net/links.cfm
***********************************************************
For Archives, to Unsubscribe, Subscribe or
set Digest or Vacation mode use the below link:
http://thin.net/citrixlist.cfm
Other related posts:
