PDA

Ver la Versión Completa : Solution Manager Key.

rikardote
13/07/09, 21:45:56
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.:cool:
Javier.Garcia
14/07/09, 07:31:40
Muy buen aporte...
lluiski
15/07/09, 06:41:05
Fantastico, supongo que solo funciona para Solution Manager no????
BREZHNEV
19/01/10, 05:15:58
Muy buen aporte, me sirvio, muchas gracias!!
koletas
20/01/10, 13:25:00
Un lujazo, gracias
alejandrovb28
21/01/10, 17:58:19
Te Sacaste un 1000! con este programita...

Gracias!
Mercy!
Danke!
Thank You!
Grazie!:D
jgsanz
22/04/10, 14:50:34
Muyyyy Bueno
johangonz
05/05/10, 02:21:04
JAJAJAJA... habrá que colocarlo como fijo! :D
kuatroka
09/06/10, 10:51:46
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 :D

un saludo y na vez mas gracias por el gran aporte!
jalexvides
11/06/10, 22:47:31
Viejo, que excelente aporte has hecho. Muchas Gracias, fue de gran ayuda.
saper2010
25/01/11, 13:43:03
exelente aporte!, te pasaste, me ha servido para instalar la 6.0. GRACIAS!
ghostrider
03/02/11, 11:21:36
Perdón por el desconocimiento del tema, pero que se supone que hace esta solution manager key ?
johangonz
03/02/11, 19:28:44
Perdón por el desconocimiento del tema, pero que se supone que hace esta solution manager key ?
Es la clave que se solicita en la instalacion o upgrade de los nuevos productos SAP y que debes generar en SM, de lo contrario no podras continuar con el proceso de instalacion/upgrade.
rikardote
29/03/11, 22:51:25
Mis estimaos se agradece su apoyo.

alguien a logrado conseguir un Key para los sistemas?


Saludos!
johangonz
30/03/11, 12:06:35
Mis estimaos se agradece su apoyo.

alguien a logrado conseguir un Key para los sistemas?


Saludos!
A que te refieres con un key? te refieres a licencias para los sistemas SAP?
eejmonterov
29/07/11, 07:29:12
muchas gracias !!! :D
oscarepaezm
03/05/12, 05:13:28
Mil Gracias Hombre !! Bendiciones.!
AoC
08/08/13, 17:25:25
Me salvaste el día!!!!:)

Abrazo!
dalanz
26/11/13, 12:49:07
Estoy en ese mismo paso: cuando me solicita el Solution Manager Key.

He creado el archivo vbs,y al ejecutarlo me pregunta por el número de sistema. ¿Cuál es? :confused:
JPMSAP
29/04/14, 21:45:31
Eres una persona sabia.
Saludos
elcharts
14/11/14, 18:10:12
:( disculpen la ignorancia pero me puedes explicar paso a paso como hago para ejecutar este codigo?
ivanhock
17/05/15, 15:43:09
:( disculpen la ignorancia pero me puedes explicar paso a paso como hago para ejecutar este codigo?

Hola,

Sólo necesitas copiar el fichero en un wordpad y cambiar la extensión con el botón derecho.

Lo he subido a google drive, por si lo quieres bajar.

https://drive.google.com/file/d/0B3aYqAdOfJ8tZElONm9WRXl5c0E/view?usp=sharing

Un saludo.