John Arends » Windows http://www.johnarends.com Techno babble Fri, 13 Jan 2012 04:21:04 +0000 en hourly 1 http://wordpress.org/?v=3.3.1 Trying to prevent lab users from forgetting their USB jump drives http://www.johnarends.com/2009/09/trying-to-prevent-lab-users-from-forgetting-their-usb-jump-drives/ http://www.johnarends.com/2009/09/trying-to-prevent-lab-users-from-forgetting-their-usb-jump-drives/#comments Tue, 08 Sep 2009 04:09:00 +0000 John http://www.johnarends.com/?p=11 One of the things I do at work is manage some university computer labs. Our student workers keep an eye on things, and noticed an increasing number of people were walking away leaving their USB jump drives still plugged into the computer. (It seems like most students call them a "USB" now, which to me is the same thing as calling a firewire hard drive a "firewire," but I digress...)

Anyway, I Googled around a bit, and wrote some VBscript code to add to our logout script to try to detect USB drives. It works pretty well, since we've had a huge reduction of lost drives piling up in our lost and found drawer since the script was put in place.

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Drives = FSO.Drives
strMessage = "Please unplug your USB Drive!" & vbcr & vbcr & "Please unplug your USB Drive!" & vbcr & vbcr & "Please unplug your USB Drive!" _
& vbcr & vbcr & "DO NOT FORGET!"
For Each DiskDrive In Drives
If DiskDrive.DriveType = "1" Then
If DiskDrive.IsReady = "True" Then
strMbox = MsgBox(strMessage ,48,"Unplug USB Drive")
End If
End If
Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Drives = FSO.Drives

strMessage = "Please unplug your USB Drive!" & vbcr & vbcr & "Please unplug your USB Drive!" & vbcr & vbcr & "Please unplug your USB Drive!" _
     & vbcr & vbcr & "DO NOT FORGET!"

For Each DiskDrive In Drives
	If DiskDrive.DriveType = "1" Then
		If DiskDrive.IsReady = "True" Then	
			strMbox = MsgBox(strMessage ,48,"Unplug USB Drive")
		End If
	End If
Next
]]> http://www.johnarends.com/2009/09/trying-to-prevent-lab-users-from-forgetting-their-usb-jump-drives/feed/ 0 Getting Vista to work with older CIFS servers http://www.johnarends.com/2008/08/getting-vista-to-work-with-older-cifs-servers/ http://www.johnarends.com/2008/08/getting-vista-to-work-with-older-cifs-servers/#comments Mon, 11 Aug 2008 16:57:40 +0000 John http://www.johnarends.com/?p=6 I occasionally need to connect to CIFS shares on a Samba 2.0 server and an OS/2 server from my Vista machine but it doesn't work by default. The fix is relatively easy.

This link was helpful:

http://www.builderau.com.au/blogs/codemonkeybusiness/viewblogpost.htm?p=339270746

]]> http://www.johnarends.com/2008/08/getting-vista-to-work-with-older-cifs-servers/feed/ 0