The most creative use for an ammo can I have is an emergency cold weather kit for the car. 
Inside the kit I have:

.50cal ammo can
A clean quart sized paint can
A roll of toilet paper
16 –32 fl oz Isopropyl alcohol (highest percentage ~91%+)
Matches/ lighter
Several hand warmers
Extra pair of gloves and a stocking cap.

Pretty easy to setup.  First, pull the cardboard core out of the toilet roll and then stuff it inside the paint can.  This is the wick.  The rest of the items are put inside until needed.  In the event your are stuck somewhere and need quick heat, take out all the stuff, pour a bottle (or about 16fl oz.) of alcohol into the paint can, light it, and place the wick inside of the ammo can.  The ammo can provides a simple buffer so you can move the flame around without burning yourself.  Use the other items as needed.  Alcohol burns clean so fumes should not be a problem inside a vehicle.  To put it out just seal up the can to snuff the flame.

[Hand warmers not pictured, I used them the other day and haven't replaced them yet]

 1 On Error Resume Next
 2 
 3 randomize()
 4 
 5 'Gets username for logged on user
 6 Set objNetwork = CreateObject("Wscript.Network")
 7 strUserName = objNetwork.UserName
 8 
 9 set objFSO = createobject("Scripting.FileSystemObject")
10 
11 'uses user name to discover fully qualified LDAP path for AD
12 Set objSysInfo = CreateObject("ADSystemInfo")
13 strUser = objSysInfo.UserName
14 Set objUser = GetObject("LDAP://" & strUser)
15 
16 'Search scope set to target OU and all subtrees
17 Const ADS_SCOPE_SUBTREE = 2
18 
19 'creates ADO connection to AD
20 Set objConnection = CreateObject("ADODB.Connection")
21 Set objCommand =   CreateObject("ADODB.Command")
22 objConnection.Provider = "ADsDSOObject"
23 objConnection.Open "Active Directory Provider"
24 Set objCommand.ActiveConnection = objConnection
25 
26 'Search parameters
27 objCommand.Properties("Page Size") = 500
28 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
29 objCommandProperties("Sort On") = "Name"
30 
31 'WQL query for user information
32 objCommand.CommandText = "SELECT givenName, SN, telephoneNumber, mail FROM '" & objUser.AdsPath & "'"
33 Set objRecordSet = objCommand.Execute
34 
35 'loops through returned records and sets fields to string variables
36 objRecordSet.MoveFirst
37 Do Until objRecordSet.EOF
38     strFirstName = objRecordSet.Fields("givenName").Value
39     strLastName = objRecordSet.Fields("SN").Value
40     strPhone = objRecordSet.Fields("telephoneNumber").Value
41     strEmail = objRecordSet.Fields("mail").Value
42 
43     objRecordSet.MoveNext
44 Loop
45 
46 ' Open WMI Service connection to local computer
47 strComputer = "."
48 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
49 
50 Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
51 
52 dim max,min
53 max=10
54 min=1
55 
56 rndChoice = Int((max-min+1)*Rnd+min)
57 
58 

]]> https://arbitraryramblings.wordpress.com/2010/10/21/code-snipit-test/feed/ 0 teraax