Exploring Windows Azure with LSharp in Full Trust

18 June 2009

I finally got around to updating lsharp.cloudapp.net to use Full Trust (it was just a case of adding enableNativeCodeExecution="true" to the ServiceConfiguration.csfg file, rebuildng and uploading).

Full Trust gives you access to a whole lot more than reported in my earlier article Poking around in Windows Azure

Access to the file system is now allowed

>(new "System.IO.DirectoryInfo" "c:\\windows")
c:\windows

And we can enumerate all the disks

>(reference "System.Management")
(seq (.get (new "System.Management.ManagementObjectSearcher" "SELECT * From Win32_LogicalDisk ")))
(\\RD00155D301BA6\root\cimv2:Win32_LogicalDisk.DeviceID="A:" \\RD00155D301BA6\root\cimv2:Win32_LogicalDisk.DeviceID="C:" \\RD00155D301BA6\root\cimv2:Win32_LogicalDisk.DeviceID="D:" \\RD00155D301BA6\root\cimv2:Win32_LogicalDisk.DeviceID="E:")

All the interesting stuff seems to be on the D drive

>(map (fn(x) (.ToString x)) (.GetDirectories (new "System.IO.DirectoryInfo" "d:\\")))
("$Recycle.Bin" "boot" "Debuggers" "Documents and Settings" "inetpub" "OSdiagnostics" "Packages" "PerfLogs" "Program 

Files" "Program Files (x86)" "ProgramData" "rdsources" "System Volume Information" "Users" "Windows")

We can now get to the registry and find out what kind of processors are being used.

>(reference "Microsoft.Win32")
(.GetValue (.OpenSubKey ( Microsoft.Win32.Registry.LocalMachine) "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0") "VendorIdentifier")
"AuthenticAMD"

Have a play and let me know if you discover anything interesting!