Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
Samples from Users
- !!DISCLAIMER!!
- ADO Table Schemas
- Append RTF files Using COM
- AskFileName Alternative
- Binary OLE example
- Brother Label Printer with b-pac SDK
- Check CDROM Ejected
- COM Object for DLL Calls
- Convert Word Doc to PDF
- Create XML DB from the TXT file then do OLE Lookup
- Creating Shaped Hierarchical Recordset
- Crystal Reports Print Extender
- CSMail Search Inside Mime Messages
- Date Picture Taken
- Delete Message from Exchange
- Directory Browse Dialog Created Using OLE Shell Functions
- Display Spreadsheet as HTML
- Email Address Validator
- Enabling Automatic Updates
- Enumerate Certificates
- Enumerate Windows Updates
- Export Data crom Crystal Reports to Excel
- Forwarding Email Messages
- Get Current Unix TimeStamp
- GroupWise and WinBatch
- IBM Personal Communications Connect Via COM
- IIS UDFs
- Import CSV File Using Office Web Components Spreadsheet
- Inspect mail messages - CDO
- Locate and Validate Credit Card Numbers Using RegExp
- MakeCAB
- Minimize all windows
- Oracle Object for OLE OO4O Access
- Powershell COM
- Publisher SaveAsPicture
- Remove Duplicate Lines from Text File
- Remove SMS Cache Folder
- Set Groupwise Contacts Link
- SkyPe Enumerate Contacts
- SkyPe UDFs
- SNMP v1 Examples
- SQL Syntax Tool
- Symantec LiveStateRecovery ImageJob Code
- Symantec ProtectorAuto OLE Script
- Template Create IIS Site
- Use XMLHTTP to Download a File
- Windows Update Agent
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Check CDROM Ejected
Question:
How can i check the state of the DVD rom drive. Open or closed ?Answer:
The IsReady property seems to handle it:http://msdn2.microsoft.com/en-us/library/ms723221.aspx
Sample code:
#DefineFunction ShowDriveInfo(drvpath)
fs = CreateObject("Scripting.FileSystemObject")
d = fs.GetDrive(drvpath)
Select d.DriveType
Case 0
t = "Unknown"
Break
Case 1
t = "Removable"
Break
Case 2
t = "Fixed"
Break
Case 3
t = "Network"
Break
Case 4
t = "CD-ROM"
Break
Case 5
t = "RAM Disk"
Break
EndSelect
s = "Drive " : d.DriveLetter : ": - " : t
If d.IsReady Then
s = s : @CRLF : "Drive is Ready."
Else
s = s : @CRLF : "Drive is not Ready."
End If
Return s
#EndFunction
ret = ShowDriveInfo("D:")
Message("ShowDriveInfo", ret )
Exit
Article ID: W17191
File Created: 2007:07:03:14:28:40
Last Updated: 2007:07:03:14:28:40