VBS+FUNCTION или SUB

Windows 95, 98, ME и 3,11; WinNT, Win2000, WinXP, Win2003, Vista, 7
Правила форума
Убедительная просьба юзать теги [cоde] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
therb1
ефрейтор
Сообщения: 53
Зарегистрирован: 2011-05-10 2:19:46

VBS+FUNCTION или SUB

Непрочитанное сообщение therb1 » 2014-06-24 11:04:35

Народ помогите пожалуйста с вопросом
Как запихнуть этот код в Function что бы получить значение ss?

Код: Выделить всё

' окно процесса

  Set WshShell = WScript.CreateObject("WScript.Shell")

  if Instr(1, WScript.FullName, "WScript.exe", 1) > 0 Then
     WshShell.Run "CScript """ & WScript.ScriptFullName & """", 0
     Set WshShell = Nothing
     WScript.Quit 1
  End if

  strComputer = "."

  Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" _ 
      & strComputer & "\root\cimv2") 

  Set colProcess = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Process" & " WHERE Name = 'javaw.exe'")

  Set Stream   = CreateObject("ADODB.Stream")

  For Each objProcess in colProcess
      Set WshExec = WshShell.Exec("cmd")
      With WshExec.StdIn
           .WriteLine "tasklist /FI ""IMAGENAME eq " + objProcess.Name + """ /V /FO ""LIST"""
           .WriteLine "exit"
      End With

		Do While Not wshExec.StdOut.AtEndOfStream
                wshExecLine = wshExec.StdOut.ReadLine()

               If (InStr(wshExecLine, StrConv("Заголовок","cp866","Windows-1251"))) Then  
					ss = Right( wshExecLine ,Len(wshExecLine)-15)  
				
				End If
				
            Loop

    '  ss = WshExec.StdOut.Readall
	      'ss = Split(ss,":")
		 
      ss = StrConv(ss, "Windows-1251", "cp866")

	  MsgBox ss
      Set WshExec = Nothing
  Next

  Set Stream   = Nothing
  Set WshShell = Nothing

  WScript.Quit 0


' конвертация из DOS в WINDOWS
Function StrConv(Text, SourceCharset, DestCharset)
    Stream.Type = 2
    Stream.Mode = 3
    Stream.Open
    Stream.Charset = SourceCharset
    Stream.WriteText Text
    Stream.Position = 0
    Stream.Charset = DestCharset
    StrConv = Stream.ReadText
    Stream.Close
End Function

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг HostFood.ru

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/