Imports System.Data.SqlServerCE

Module PswSwitch

Sub Main(ByVal Args() as String)
Dim ConStr as String
  System.Console.WriteLine("Start")
  if Args.Length<3 then
    System.Console.WriteLine("Set or clear password in SDF file. Usage: ")
    System.Console.WriteLine("PswSwitch.exe SDFName + NewPassword") 
    System.Console.WriteLine("PswSwitch.exe SDFName - OldPassword") 
    Return
  End If
  ConStr="Data Source="+Args(0)
  if Args(1)="-" then
    Dim Engine as SqlCeEngine = New SqlCeEngine(ConStr+";Password="+Args(2))
    Engine.Compact(ConStr+";Password='';")
  elseif Args(1)="+" then
    Dim Engine as SqlCeEngine = New SqlCeEngine(ConStr)
    Engine.Compact(ConStr+";Password="+Args(2))
  else
    System.Console.WriteLine("Unknown key:"+Args(1))
  end if
  System.Console.WriteLine("Complete")
End Sub

end module

@echo off
set App=PswSwitch
if not [%1]==[] set App=%1
Echo Try to build %App%
set Compil=C:\WINDOWS\Microsoft.NET\Framework\v3.5\vbc.exe
set Import=System.Data.SqlServerCe
set Ref="C:\Program Files\Microsoft SQL Server Compact Edition\v3.5\Desktop\System.Data.SqlServerCe.dll"
%Compil% %App%.vb /out:%App%.exe /imports:%Import% /reference:%Ref%