MUNDOSAP

Regresar   MUNDOSAP > ADMINISTRACION SAP > Administración de Sistemas SAP
Nombre de Usuario
Contraseña
Home Descargas Registrar FAQ Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




 
Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Viejo 13/07/09, 22:45:56
Avatar de rikardote
rikardote rikardote is offline
Senior Member
 
Fecha de Ingreso: ene 2007
Mensajes: 212
Talking Solution Manager Key.

Se que posiblemente algunos de ustedes no tengan a la mano un solution manager, por lo que me permito el darles esta erramienta:


Toma todo el codigo y pegalo en un TXT.
**********************************************************

Dim SIDs, SNs, SERVs, msg, ENDs, KEYs
msg="Numero de Sistema (3 Digitos.)"
SIDs=InputBox(msg,"Solution Manager Key Generator")
msg="Numero de Sistema (2 Digitos.)"
SNs=InputBox(msg,"Solution Manager Key Generator")
msg="Nombre de servidor (Maximo. 15 Digitos.)"
SERVs=InputBox(msg,"Solution Manager Key Generator")
KEYs=SolManKeyGen(SIDs, SNs, SERVs)
msg="Solution Manager Key"
ENDs=InputBox(msg,"Solution Manager Key Generator",KEYs)
'-------------------------------------------------------
Function SolManKeyGen(SIDst, SNst, SERVst)
Dim SIDSNhex(5)
Dim SERVhex(15)
Dim reshex(5)
SIDSNstr = UCase(SIDst) + UCase(SNst)
SERVstr = UCase(SERVst)
For arrcnt = 1 To 5
SIDSNhex(arrcnt) = Asc(Mid(SIDSNstr, arrcnt, 1))
Next
For arrcnt = 1 To Len(SERVstr)
SERVhex(arrcnt) = Asc(Mid(SERVstr, arrcnt, 1))
Next
For arrcnt = Len(SERVstr) + 1 To 15
SERVhex(arrcnt) = 0
Next
If (Len(SERVstr) > 0) Then
If (Len(SERVstr) < 5) Then
For arrcnt = Len(SERVstr) + 1 To 5
SERVhex(arrcnt) = Asc(" ")
Next
End If
End If
If (Len(SERVstr) > 5) Then
If (Len(SERVstr) < 10) Then
For arrcnt = Len(SERVstr) + 1 To 10
SERVhex(arrcnt) = Asc(" ")
Next
End If
End If
If (Len(SERVstr) > 10) Then
If (Len(SERVstr) < 15) Then
For arrcnt = Len(SERVstr) + 1 To 15
SERVhex(arrcnt) = Asc(" ")
Next
End If
End If
For arrcnt = 1 To 5
reshex(arrcnt) = ((((0 Xor SIDSNhex(arrcnt)) Xor SERVhex(arrcnt)) Xor SERVhex(arrcnt + 5)) Xor SERVhex(arrcnt + 10))
Next
reshex(1) = reshex(1) Xor 84 Xor 0
reshex(2) = reshex(2) Xor 131 Xor 11
reshex(3) = reshex(3) Xor 194 Xor 46
reshex(4) = reshex(4) Xor 52 Xor 105
reshex(5) = reshex(5) Xor 119 Xor 188
hexstr = "0123456789ABCDEF"
resstr = ""
For arrcnt = 1 To 5
hihex = reshex(arrcnt) \ 16
lohex = reshex(arrcnt) Mod 16
resstr = resstr + Mid(hexstr, hihex + 1, 1) + Mid(hexstr, lohex + 1, 1)
Next
SolManKeyGen = resstr
End Function


**********************************************************

Guarda el TXT y cambiale la extencion a vbs

Ejemplo: tool.txt a tool.vbs

Ejecutalo y listo.

Dale los datos y te generara tu llave del solution manager.

Úlima edición por johangonz fecha: 05/05/10 a las 03:22:31. Razón: Colocar el Post como fijo
Responder Con Cita
  #2  
Viejo 14/07/09, 08:31:40
Javier.Garcia Javier.Garcia is offline
Member
 
Fecha de Ingreso: abr 2009
Mensajes: 35
Muy buen aporte...
Responder Con Cita
  #3  
Viejo 15/07/09, 07:41:05
lluiski lluiski is offline
Junior Member
 
Fecha de Ingreso: mar 2007
Mensajes: 16
Fantastico, supongo que solo funciona para Solution Manager no????
__________________
Admin SAP-BASIS y puede con un futura persona de Branding & SEO/SEM
Responder Con Cita
  #4  
Viejo 19/01/10, 06:15:58
Avatar de BREZHNEV
BREZHNEV BREZHNEV is offline
Senior Member
 
Fecha de Ingreso: ene 2008
Mensajes: 478
Muy buen aporte, me sirvio, muchas gracias!!
__________________
=============
==»BREZHNEV«==
=============
Responder Con Cita
  #5  
Viejo 20/01/10, 14:25:00
koletas koletas is offline
Senior Member
 
Fecha de Ingreso: feb 2006
Localización: Aranda De Duero, España
Mensajes: 370
Un lujazo, gracias
__________________
SAP Basis Consultant
Responder Con Cita
  #6  
Viejo 21/01/10, 18:58:19
alejandrovb28 alejandrovb28 is offline
Member
 
Fecha de Ingreso: abr 2008
Mensajes: 77
Te Sacaste un 1000! con este programita...

Gracias!
Mercy!
Danke!
Thank You!
Grazie!
Responder Con Cita
  #7  
Viejo 22/04/10, 15:50:34
jgsanz jgsanz is offline
Senior Member
 
Fecha de Ingreso: nov 2006
Mensajes: 294
Muyyyy Bueno
Responder Con Cita
  #8  
Viejo 05/05/10, 03:21:04
Avatar de johangonz
johangonz johangonz is offline
Moderator
 
Fecha de Ingreso: may 2006
Mensajes: 816
JAJAJAJA... habrá que colocarlo como fijo!
__________________
Johan González
CEO
NW Consulting Services

Siguenos en Facebook:
Moderador

---------------------------
Responder Con Cita
  #9  
Viejo 09/06/10, 11:51:46
kuatroka kuatroka is offline
Junior Member
 
Fecha de Ingreso: jul 2006
Mensajes: 24
Eres un autentico crack tio! Y encima apoyando la comunidad! un monton de gracias!! yo tuve que instalar un SM local para poder hincharme a generar las claves para el futuro

un saludo y na vez mas gracias por el gran aporte!
Responder Con Cita
  #10  
Viejo 11/06/10, 23:47:31
jalexvides jalexvides is offline
Junior Member
 
Fecha de Ingreso: oct 2008
Mensajes: 3
Thumbs up

Viejo, que excelente aporte has hecho. Muchas Gracias, fue de gran ayuda.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Reglas de Mensajes
no puedes crear nuevos temas
no puedes responder temas
no puedes adjuntar archivos
no puedes editar tus mensajes

El código vB está On
Las caritas están On
Código [IMG] está On
Código HTML está Off
Saltar a Foro


Husos Horarios son GMT. La hora en este momento es 10:46:26.


www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web