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.:cool:

Muy buen aporte...

Fantastico, supongo que solo funciona para Solution Manager no????

Muy buen aporte, me sirvio, muchas gracias!!

Un lujazo, gracias

Te Sacaste un 1000! con este programita...

Gracias!
Mercy!
Danke!
Thank You!
Grazie!:D

Muyyyy Bueno

JAJAJAJA... habrá que colocarlo como fijo! :D

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!

Viejo, que excelente aporte has hecho. Muchas Gracias, fue de gran ayuda.

exelente
 

exelente aporte!, te pasaste, me ha servido para instalar la 6.0. GRACIAS!

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.

Saludos!
 

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?

Gracias
 

muchas gracias !!! :D

Gracias!!
 

Mil Gracias Hombre !! Bendiciones.!

Me salvaste el día!!!!:)

Abrazo!

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:

Gracias
 

Eres una persona sabia.
Saludos

ayuda
 

:( 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.



Un saludo.