Transparency skin deep for IDv2.0

The thing rendered most transparent by the Cabinet Office transparency programme is the transparency programme itself: you can see right through it.

This became apparent when Prime Minister David Cameron dropped his pants over the News International phone hacking scandal. The government has made a principle of transparency where it suits, and a patsy where it does not. That’s a shame, because there are things like the ConDem’s next generation ID scheme that would really benefit from the sort of transparency the government made a commitment in its coalition agreement.

The promotional blurb for the Cabinet Office transparency programme declared its power to “strengthen people’s trust in government” and “encourage greater public participation in decision-making.”

Computer Weekly had this in mind when it sought details of Cabinet Office dealings with industry over the next generation ID scheme. Just like Labour’s horrifying, original ID scheme, the ConDem scheme is being concocted in secret meetings with industry. Of particular concern is power it may give banks and markets over people’s personal data.

But Cabinet Office refused the information because, it said, collating it would take too much effort. We bet it didn’t take much effort to get the ideas from industry in the first place, nor to keep them informed about their progress.

Government actually finds transparency very easy to do when it suits.

Within hours of News International chief executive Rebbecca Brooks resigning under pressure from the phone hacking scandal on Friday, the Prime Minister had (under fire over the suspected intimacy of his friendship with her) published a list of meetings he had with the press in the last year. It was good to get this cleared up before police arrested her at the weekend. (UPDATE *)

Yet appeals under Freedom of Information law for details of government dealings with private business show how opaque government continues to be. We only know about the next generation ID scheme because Computer Weekly exposed it.

Now we know about it, we are refused further disclosure. We will likely not here more about it till the plans are finalised. So much for greater public participation in decision making.

ConDem transparency policy has always been opportunistic. Forged in the shadow of the 2009 expenses scandal, it has given us little more than open data, which was already afoot under Labour and quite conveniently serves serves the ends of the Big Society programme – that is, the dismantling and fire sale of public sector.

That’s not to say that when this government’s transparency programme was unveiled in the May sunshine after the 2010 general election, the Cameron and Deputy Prime Minister Nick Clegg didn’t believe what they were saying.

“For years, politicians could argue that because they held all the information, they needed more power,” they said in the coalition agreement.

“Technological innovation has – with astonishing speed – developed the opportunity to spread information and decentralise power in a way we have never seen before. So we will extend transparency to every area of public life,” they said. What is really astonishing is just how shallow this transparency programme is.


Oops. This story originally said that the Prime Minister’s disclosure revealed only two meetings with Brooks, and did so in a way that implied this was convenient to him:

“Lo and behold, he had only two meetings with Brooks, though more than any with News International as a whole,” it said.

It did in fact reveal seven meetings with Brooks, three with the Murdochs and about 36 per cent of press meetings (26 in total) with News Corp. overall.

Join the conversation

1 comment

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

Please I need help no errors with this code

Imports System.Management
Imports System.Data.SqlClient
Imports Microsoft.Win32

Imports System
Imports System.Collections.Generic
Imports System.Collections.Specialized
Imports System.Text
Imports Microsoft.SqlServer.Management.Common
Imports Microsoft.SqlServer.Management.Smo
Public Class Config
Dim mac_beg As String
Dim ip_adress As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim mycomm As SqlCommand
mycomm = New SqlCommand("Select * From Tbl_Drawer", Gopos_database)
Dim myreader As SqlDataReader = Nothing
myreader = mycomm.ExecuteReader()
While myreader.Read


End While

Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")

For Each WmiObj As ManagementObject In Wmi.Get

If CBool(WmiObj("IPEnabled")) Then
mac_beg = WmiObj("MACAddress")

ip_adress = WmiObj("IPAddress")(0)
End If

TextBox4.Text = mac_beg
TextBox1.Text = ip_adress
TextBox2.Text = ""
TextBox3.Text = ""

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim IPAddress As String = TextBox1.Text
Dim SubnetMask As String = TextBox2.Text
Dim Gateway As String = TextBox3.Text

Dim objMC As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")

Dim objMOC As ManagementObjectCollection = objMC.GetInstances()

For Each objMO As ManagementObject In objMOC

If (Not CBool(objMO("IPEnabled"))) Then

Continue For

End If


Dim objNewIP As ManagementBaseObject = Nothing

Dim objSetIP As ManagementBaseObject = Nothing

Dim objNewGate As ManagementBaseObject = Nothing

objNewIP = objMO.GetMethodParameters("EnableStatic")

objNewGate = objMO.GetMethodParameters("SetGateways")

'Set DefaultGateway

objNewGate("DefaultIPGateway") = New String() {Gateway}

objNewGate("GatewayCostMetric") = New Integer() {1}

'Set IPAddress and Subnet Mask

objNewIP("IPAddress") = New String() {IPAddress}

objNewIP("SubnetMask") = New String() {SubnetMask}

objSetIP = objMO.InvokeMethod("EnableStatic", objNewIP, Nothing)

objSetIP = objMO.InvokeMethod("SetGateways", objNewGate, Nothing)

MessageBox.Show("Updated IPAddress, SubnetMask and Default Gateway!")

Catch ex As Exception

MessageBox.Show("IP:غير قادر على وضع عنوان" & ex.Message)
End Try

Next objMO
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim last_mac As Integer

Dim mycomm As SqlCommand
mycomm = New SqlCommand("Select * From Tbl_Machine order By Machine_ID asc", Gopos_database)
Dim myreader As SqlDataReader = Nothing
myreader = mycomm.ExecuteReader()
While myreader.Read

last_mac = myreader("Machine_ID")

End While

last_mac = last_mac + 1

Dim mycomm2 As SqlCommand
mycomm2 = New SqlCommand("Insert Into Tbl_Machine (Machine_ID, Mac_Address,Drawer_ID) values ( '" & last_mac & "', '" & mac_beg & "', '" & ComboBox1.Text & "')", Gopos_database)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim reg As RegistryKey
reg = Registry.CurrentUser.OpenSubKey("Control Panel\International", True)

reg.SetValue("sShortDate", "dd/MM/yyyy")
reg.SetValue("sLongDate", "dd/MM/yyyy")

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim conn As New SqlConnection("Server=(SQLEXPRESS);Data Source=;Integrated Security=SSPI")
Dim cmd As New SqlCommand("", conn)

cmd.CommandText = "CREATE DATABASE 'Gopos' ON" & _
"PRIMARY ( FILENAME = 'Gopos.mdf' ) " & _



End Sub
End Class