home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 April / VPR0004A.BIN / WMTECH / wmserver.exe / 1033 / RCDATA / CABINET / nsglobal.inc < prev    next >
Text File  |  1999-11-15  |  2KB  |  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 アドミニストレータ"
  12. Dim L_PluginFailure_Text
  13.     L_PluginFailure_Text = "認証パッケージ '%1' が Windows Media ユニキャスト サービスで読み込まれませんでした。ユニキャスト サービスへのすべてのクライアント接続は拒否されます。サービスを再起動するか、認証パッケージを無効にしてください。"
  14.  
  15. Dim L_ErrServicesAllDown_Text
  16.     L_ErrServicesAllDown_Text = "%1 の Windows Media サービスに接続できませんでした。"
  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