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!
