How to check if any USB devices connected on Logout?? 1

[Sharpharp]

Hi all,

I've been tasked to find out if there is a way of warning users that they have left a USB device or memory card left inserted in a USB card reader, when the USER logs out.

We have a lot of users to leave usb memory sticks plugged in or cards in the usb card readers. This is in a public PC area, so I was wondering if its possible to build a VBScript that runs on Logout that can detect if any USB Memory Sticks or Cards are left inserted on a PC.

Any help would be appreciated, i've googled a few articles, but couldn't find anything on the subject.

Thanks in advance
Sharpy

 

[markdmac]

I really don't liek the idea of overly delaying logout, but you can put a pause in that waits for user input like this:

On Error Resume Next
dim oWMP, colCDROMs, i, strComputer, objWMIService, colItems, objItem

Const CDROM = 4
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem in colItems
    If objItem.MediaLoaded <> 0 Then
    'Use the below line instead of above to eject if empty
    'If objItem.MediaLoaded = 0 Then
        Eject objItem.Drive 
    End If
Next

Sub Eject(Drive)
 Set oWMP = Wscript.CreateObject("WMPlayer.OCX.7")
 Set colCDROMs = oWMP.cdromCollection

 if colCDROMs.Count >= 1 then

 For i = 0 to colCDROMs.Count - 1
     If oWMP.cdromCollection.item(index).driveSpecifier = Drive Then
        colCDROMs.Item(i).Eject 
 		MsgBox "Please remove the CD/DVD from the drive and click OK to continue shutdown."
 		colCDROMs.Item(i).Eject
     End If
 Next

 End If
 
  
 oWMP.close
 set colCDROMs = nothing
 set oWMP = nothing
 set i = nothing
End Sub

An alternative, with just a delay (and having the sleep in the right place -sorry)

On Error Resume Next
dim oWMP, colCDROMs, i, strComputer, objWMIService, colItems, objItem

Const CDROM = 4
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem in colItems
    If objItem.MediaLoaded <> 0 Then
    'Use the below line instead of above to eject if empty
    'If objItem.MediaLoaded = 0 Then
        Eject objItem.Drive 
    End If
Next

Sub Eject(Drive)
 Set oWMP = Wscript.CreateObject("WMPlayer.OCX.7")
 Set colCDROMs = oWMP.cdromCollection

 if colCDROMs.Count >= 1 then

 For i = 0 to colCDROMs.Count - 1
     If oWMP.cdromCollection.item(index).driveSpecifier = Drive Then
        colCDROMs.Item(i).eject : WScript.Sleep 5000 : colCDROMs.Item(i).Eject
     End If
 Next

 End If
 
  
 oWMP.close
 set colCDROMs = nothing
 set oWMP = nothing
 set i = nothing
End Sub

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[PHV]

Mark, why not using the WshShell.Popup method to have the message AND the sleep ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[markdmac]

An excellent suggestion PHV. I so seldomly use WSHShell.Popup that I forget about it.

On Error Resume Next
dim oWMP, colCDROMs, i, strComputer, objWMIService, colItems, objItem
Const CDROM = 4
strComputer = "."


Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem in colItems
    If objItem.MediaLoaded <> 0 Then
    'Use the below line instead of above to eject if empty
    'If objItem.MediaLoaded = 0 Then
        Eject objItem.Drive 
    End If
Next

Sub Eject(Drive)
 Set WshShell = CreateObject("WScript.Shell")
 Set oWMP = Wscript.CreateObject("WMPlayer.OCX.7")
 Set colCDROMs = oWMP.cdromCollection

 if colCDROMs.Count >= 1 then

 For i = 0 to colCDROMs.Count - 1
     If oWMP.cdromCollection.item(index).driveSpecifier = Drive Then
        colCDROMs.Item(i).Eject 
         WshSHell.Popup "Please remove the CD/DVD from the drive and click OK to continue shutdown.",5,"Remove CD",48
         colCDROMs.Item(i).Eject
     End If
 Next

 End If
 
  
 oWMP.close
 set colCDROMs = nothing
 set oWMP = nothing
 set i = nothing
End Sub

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[Sharpharp]

Great idea, i like the pop up box, and the drive tray stayed out slightly longer.

Ok, one final final final query This is just for added entertainment value.

I have added a script which uses the system motherboard internal speaker to "Beep" Alert the user if they get up to leave without noticing the boxes pop up boxes.

Like so, WshShell.Run "cmd /c @echo " & beep, 0

So was wondering if there is anyway to play a tune using the internal motherboard speaker, rather than a single or two beeps, something that gets there notice?

It needs to be the motherboard speaker beeping, because we have the sound disabled on the pc's generally.

Many thanks again.