home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Topware / w2ksp2en / w2ksp2.exe / i386 / wms4.cab / nsglobal.inc < prev    next >
Encoding:
Text File  |  1999-06-16  |  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 = "Windows Media Administrator"
  12. Dim L_PluginFailure_Text
  13.     L_PluginFailure_Text = "The authentication package '%1' has failed to load with the Windows Media Unicast service.  All client connections to the unicast service will be refused at this time.  Try restarting the service or disabling the authentication package."
  14.  
  15. Dim L_ErrServicesAllDown_Text
  16.     L_ErrServicesAllDown_Text = "Failed to connect to Windows Media Services on %1."
  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