System copy of ECC server

[Former Member]

Hello Friends,

While doing system copy of ECC server, it's asking solman key of that server, but the main issue is that we don't have solution manager in place. So, is there any way to get solman key without using solution manager server ?

Please help.

Regards,

Nitu.

[Former Member · Accepted solution]

Hi Nitu,

Though it's not recommnded but still  you can generate solman key without using solution manager. Following is the VBS script which you can use to generate the same. Save the following context in notepad file and save as "SolManKeyGen.vbs" and ENJOY ..

''''''''''''''''''''''''''''''''''''''

'   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

Regards,

Nilutpal.

[Former Member · Accepted solution]

Thanks Nilutpal !!

I have generated solman key with this vbsscript.

Nitu..

[Former Member · Accepted solution]

Thanks Nilutpal Sharmah this helps me too. Save lot of time and effort

[former_member771227 · Accepted solution]

very thank you 🙂