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.

UPDATE 22 JULY 2011

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

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

ComboBox1.Items.Add(myreader("Drawer_ID"))

End While
Gopos_database.Close()


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
Next


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

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

Try

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
Me.Close()
End Sub

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

Gopos_database.Open()
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
Gopos_database.Close()

last_mac = last_mac + 1




Gopos_database.Open()
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)
mycomm2.ExecuteNonQuery()
Gopos_database.Close()


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' ) " & _
"FOR ATTACH"

conn.Open()
cmd.ExecuteNonQuery()

cmd.Dispose()
conn.Dispose()

End Sub
End Class
Cancel

-ADS BY GOOGLE

SearchCIO

SearchSecurity

SearchNetworking

SearchDataCenter

SearchDataManagement

Close