Category Archives: Utils

IBAN calculator from CCC

For Europe Users:
This form if for calculate IBAN for a multiple accounts (20) digits
and check the digit control of the account too
only paste yours CCC and the  IBAN is placed in a milisecond

if this link is usefull for you, pelase share it.

Facebooktwittergoogle_plusredditpinterestlinkedinmail

Read More ...

Print EAN128 Barcodes with Crystal Reports only

Is possible to create one report with Crystal Reports that includes Barcodes and no need to buy expensive fonts or dll to print encoded values EAN128.
You only need one code 128 font , I recommend this:

Code128Font

where is the trick?

The result:
Result

How it’s made?
realy simple:
First you need to know the table of AI (Application Identifier) and his lengths, and if the lenght of the values are fixed or variable, and if they needs checksum.

there is a complete guide to know about this.

in the sample of the botton first AI (SSCC) needs checksum.
I was created 2 functions in the label:

Label functions

then simply call the function Ean128 to generate the barcode, and assigns the font Code128:

call function

If you are interested in the sample label, pease contact me:

colome.disco@gmail.com

Facebooktwittergoogle_plusredditpinterestlinkedinmail

Read More ...

CEC encrypting compressor

This is a small program to encrypt and compress command prompt mode.

the main features:

own encryption (bit level, not byte), not based on any standard algorithm
is small and easily portable
high compression rate in files with little variety of characters.
I leave the link here to download: cec.zip
the syntax is very simple:

cec compressor

Facebooktwittergoogle_plusredditpinterestlinkedinmail

Read More ...

Install printers

Many times we have the perennial problem in Active Directory environments that occasionally a user session on a machine that is not his usual, this causes without designated network printers to install printers, you can use this script:
one file instalar.bat that installs the printer, use the microsoft script prnmngr.vbs , first check that the printer is not connected in this case\\servidor\impressorared, if there is then installed on another call at the same script
Finally use the scriptdefprinter.vbs, establishing it as the default

 REM ***** Check and Install Copier*****
cscript prnmngr.vbs -l | find "Printer name \\servidor\impressorared"
IF ERRORLEVEL 1 ( cscript prnmngr.vbs -ac -p "\\servidor\impressorared"
echo "\\iocor\fax installed"
)
cscript defprinter.vbs \\servidor\impressorared

the script defprinter.vbs:

Option Explicit
dim objArgs
Set objArgs = WScript.Arguments
Dim objPrinter
Set objPrinter = CreateObject("WScript.Network")
objPrinter.SetDefaultPrinter objArgs(0)
' End of example VBScript
Facebooktwittergoogle_plusredditpinterestlinkedinmail

Read More ...

Automated users creation

This simple script (useful for workgroup environments), is useful for generating users have in a text file users.txt this file has the following 2 fields for each line are separated by commas: user, password, example would be this::
pepito,passworddepepito
jaimito,passworddejaimito
joselito,passworddejoselito
….
the script reads the file and generates the user adds them to the Administrators group and sets the password expiration to never.

' get local computer name
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("usuarios.txt", ForReading)
Do Until objTextFile.AtEndOfStream
  strNextLine = objTextFile.Readline
  arrServiceList = Split(strNextLine , ",")
  strAccount=arrServiceList(0)
  strPswd=arrServiceList(1)
  ' check if local account already exists
  intExists = 0
  Set colAccounts = GetObject("WinNT://" & strComputer & "")
  colAccounts.Filter = Array("user")
  For Each objUser In colAccounts
    If objUser.Name = strAccount Then
       intExists = 1
    End If
Next
If intExists = 0 Then
  ' create local user
  Set colAccounts = GetObject("WinNT://" & strComputer & "")
  Set objUser = colAccounts.Create("user", strAccount)
  ' set pswd
  objUser.SetPassword strPswd
  objUser.SetInfo
  ' set pswd never expires
  Set objUser = GetObject("WinNT://" & strComputer & "/" & strAccount & ",User")
  objUserFlags = objUser.Get("UserFlags")
  objPasswordExpirationFlag = objUserFlags Or ADS_UF_DONT_EXPIRE_PASSWD
  objUser.Put "userFlags", objPasswordExpirationFlag
  objUser.SetInfo
  ' add to local admins group
  Set objGroup = GetObject("WinNT://" & strComputer & "/Administradores,group")
  Set objUser = GetObject("WinNT://" & strComputer & "/" & strAccount & ",user")
  objGroup.Add(objUser.ADsPath)
End If
Loop
Facebooktwittergoogle_plusredditpinterestlinkedinmail

Read More ...

Categories

Subscribe to my Newsletter

By continuing to use the site, you agree to the use of cookies. more information

The cookie settings on this website are set to "allow cookies" to give you the best browsing experience possible. If you continue to use this website without changing your cookie settings or you click "Accept" below then you are consenting to this.

Close