Ignore:
Timestamp:
Nov 9, 2012, 9:50:47 AM (8 years ago)
Author:
Herwig Bauernfeind
Message:

GUI-Tools: smblogon sample script, fixes and omissions

Location:
trunk/guitools/smblogon
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/guitools/smblogon/smblogon.VRP

    r719 r724  
    77VRXWindow: __VREMainWindow,1,1963,2264,891,8000
    88VRXWindow: __VRESectionListWindow,1,3047,11804,7432,7480
    9 VRXWindow: __VREToolsWindow,1,1975,530,6489,1663
     9VRXWindow: __VREToolsWindow,1,1975,530,6486,1669
    1010VRXWindow: __VREWindListWindow,1,397,11804,2650,3150
    1111UserFile: 1
  • trunk/guitools/smblogon/smblogon.VRX

    r719 r724  
    230230*/
    231231Main_Create:
    232     ok = VRRedirectStdio("ON")
    233     options.!debug = 1
     232    options.!debug = 0
    234233
    235234    call _LoadOtherFuncs
     
    241240
    242241    Credentials. =""
     242    ok = _ucInitObj()
    243243
    244244    call _ParseCommandLine
     
    276276            ok = _ucSetUc()
    277277        end
     278        else say "Credentials not stored!"
    278279    end
    279280    else do /* Authenticate against specified server */
     
    281282    end
    282283    ok = VRSet("TM_Quit","Enabled",1)
     284return
     285
     286/*:VRX         Main_Resize
     287*/
     288Main_Resize:
     289    ok = VRSet("CN_Status","Width", VRGet("Main", "WIdth")-144)
     290    ok = VRSet("CN_Status","Height",VRGet("Main", "Height")-144-434)
    283291return
    284292
     
    347355
    348356    ok = Value('OS','ECS','OS2ENVIRONMENT')
     357    ok = Value("SERVER",Server,"OS2ENVIRONMENT")
     358    ok = Value("USER",Credentials.!Username,"OS2ENVIRONMENT")
     359    ok = Value("PASSWORD",Credentials.!password,"OS2ENVIRONMENT")
     360
    349361    address cmd rpc.queryuser.DIR_DRIVE'\'rpc.queryuser.LOGON_SCRIPT' >'samba.!msg
     362
    350363    do until lines(samba.!msg) = 0
    351364        mountline = linein(samba.!msg)
     
    365378        ok = VRMethod( "CN_STATUS", "SetFieldData",  rh, Status.MessageFH, mountline)
    366379    end
     380    /* remove server and password from environment */
     381    ok = Value("SERVER","","OS2ENVIRONMENT")
     382    ok = value("PASSWORD","","OS2ENVIRONMENT")
    367383    ok = stream(samba.!msg,'c','close')
    368384return
Note: See TracChangeset for help on using the changeset viewer.