Saturday, July 2, 2011

How to generate Solman Key (without having Solman Server)

You might want to install SAP ECC 5 or SAP ECC 6 and been asking SolmanKey. What if you don't have Solman Server ? Then how would you generate solman key ? There are 2 ways (if you don't have Solman Server to generate solman key) :

1. Ask your friend which have Solman Server to generate it.
2. Use this simple script (VB Script) to generate it.

-------------------------------


''''''''''''''''''''''''''''''''''''''
'   Solution Manager Key Generator   '
'Save to SolManKeyGen.vbs and execute'
'                                    '
''''''''''''''''''''''''''''''''''''''
'-------------------------------------------------------
Dim SIDs, SNs, SERVs, msg, ENDs, KEYs
msg="System ID (3 chr.)"
SIDs=InputBox(msg,"Solution Manager Key Generator")
msg="System Number (2 dig.)"
SNs=InputBox(msg,"Solution Manager Key Generator")
msg="Server Name (max. 15 chr.)"
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


-------------------------------

Copy this script to your Windows PC and save it as SolManKeyGen.vbs and then execute it.
Just like that....and shit, now you have solman key....

26 comments:

blackknight123 said...

thank u man.....
excellent...
i want to know some more stuff like this .
pls....

Ardhian said...

@blackknight123 :

keep watching this blog and spread to your friends about my blog

Anonymous said...

Hi Dude

Thanks u very much it worked like a charm... i stuck up in the installation process & it helped me a lot.
Thanks a lot

Anonymous said...

its working thank you

Anonymous said...

Hi dude!

Thanks a lot u saved us....

Anonymous said...

please tell me how to save on which format it notepad or wordpad please tell me on the processs guys

Charles said...

Fantastic- thank you very much...

SAP Basis Mania said...

Thanks for your useful trick..

Anonymous said...

WAS A CAKE WALK. THANKS

sap upgrade tools said...

Wow, amazing...its so very simple.Thanks a ton for helping me out.And moreover, we would like more stuff like this to be shared with us.

Anonymous said...

wow man... your script is AMAZING.
I can continue SAP Install without create new system on SOLMAN server.
It's very usefull..

Anonymous said...


awesome,this script saves me, thanks for code to generate it, give us some mail contact, and please post helpulf posts like this again, thnks!!

Shamil Ahmed said...

hI MAN,

u r really superb in SAP. it work like a charm.
Nw i want an access key for abap development. Could u pls help for this..

Anonymous said...

wow, amazing, where did you get this? :)

Mania said...

Wow this is awesome works so easy !!!

Anonymous said...

OMG, this is awesome! Thank You!! very much!!

Yogesh Garg said...

That's mind blowing ........ Thanks a lot ....

Anonymous said...

there is no word to say

Anonymous said...

Wow mana u r genious

u saved me

THANKS a lot it worked...

Rohit Kawankar said...

Excellent scrpipt worked

Anonymous said...

MAGGICALLLL ...

Rajendra said...

It works.
Great job. You Rock
Thanks a lot.

Sanjiv Kumar said...

you are a cham.. man

great script..

but now i just installed my quality system ..but it didn,t ask any key the time of installation.

Regards,
Sanjiv

Anonymous said...

It's work like a charm. Thanks a lot :)

Uvan Govender said...

GENIUS!!!!! You are a legendary life save!

Shruti Ramalingam said...

Thanks for the great information ,was looking for this information from long.Great blog SAP Basis Training in Chennai