home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December (Special) / PCWorld_2002-12_Special_cd.bin / Software / Ostatni / win2ksp3cs / W2Ksp3.exe / i386 / wms4.cab / nsglobal.inc < prev    next >
Encoding:
Text File  |  2000-01-26  |  1.5 KB  |  49 lines
  1. '
  2. '////////////////////////////////////////////////////////////////////
  3. '//
  4. '// Source File nsglobal.htm
  5. '//
  6. '// Windows Media Administrator, ver 3.0
  7. '// Copyright 2/4/98 Microsoft Corporation
  8.  
  9. '////////////////////////////////////////////////////////////////////
  10. Dim L_MsgBoxTitle_Text
  11.     L_MsgBoxTitle_Text = "Sprßvce Windows Media"
  12. Dim L_PluginFailure_Text
  13.     L_PluginFailure_Text = "NaΦtenφ balφΦku pro ov∞°ovßnφ %1 se slu₧bou Windows Media Unicast Service se nezda°ilo. VÜechna p°ipojenφ klient∙ ke slu₧b∞ vysφlßnφ Unicast budou nynφ odmφtnuta. Spus¥te slu₧bu znovu nebo zaka₧te balφΦek pro ov∞°ovßnφ."
  14.  
  15. Dim L_ErrServicesAllDown_Text
  16.     L_ErrServicesAllDown_Text = "P°ipojenφ ke slu₧b∞ Windows Media Services na serveru %1 se nezda°ilo."
  17. 'Constants
  18. Dim    NSOADM_PLUGIN_ERROR
  19.     NSOADM_PLUGIN_ERROR=1
  20. Dim    NSOADM_PLUGIN_LOADED
  21.     NSOADM_PLUGIN_LOADED=2
  22. Dim    NSOADM_PLUGIN_ENABLED
  23.     NSOADM_PLUGIN_ENABLED=4
  24. Dim    NSOADM_PLUGIN_RUNNING
  25.     NSOADM_PLUGIN_RUNNING=8
  26. Dim    NSOADM_PLUGIN_LOAD_NEXT_RESTART
  27.     NSOADM_PLUGIN_LOAD_NEXT_RESTART=16
  28. Dim    NSOADM_PLUGIN_UNLOAD_NEXT_RESTART
  29.     NSOADM_PLUGIN_UNLOAD_NEXT_RESTART=32
  30.     
  31. Function FormatMessage( str, params ) 
  32. On Error Resume Next
  33.     parmCopy = params
  34.     
  35.     SubStrs = split( str, "%" ) 
  36.     final = SubStrs
  37.     count = 0
  38.     
  39.     For Each s in SubStrs
  40.         Err.Clear    
  41.         i = CInt( Left( s, 1 ) )
  42.         If Err.Number = 0 Then  
  43.             final(count) = parmCopy( i-1 ) & Mid( s, 2 )
  44.         End If
  45.         count = count + 1
  46.     Next
  47.     
  48.     FormatMessage = Join( final, "" )
  49. End Function