VBScript – Getting Script Name from wscript.exe Process

Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” _
& “.” & “\root\cimv2”)

Set colProcesses = objWMIService.ExecQuery( _
“Select * from Win32_Process ” _
& “Where Name = ‘WScript.exe'”, , 48)

Dim strReport
For Each objProcess in colProcesses
‘ skip current script, and display the rest
If InStr (objProcess.CommandLine, WScript.ScriptName) = 0 Then
strReport = strReport & vbNewLine & vbNewLine & _
“ProcessId: ” & objProcess.ProcessId & vbNewLine & _
“ParentProcessId: ” & objProcess.ParentProcessId & _
vbNewLine & “CommandLine: ” & objProcess.CommandLine & _
vbNewLine & “Caption: ” & objProcess.Caption & _
vbNewLine & “ExecutablePath: ” & objProcess.ExecutablePath
End If
Next
WScript.Echo strReport

Exchange Der Benutzer verfügt nicht über die erforderlichen Zugriffsrechte.

Um das Problem zu beheben gehen Sie bitte in das Active Directory und wählen unter Ansicht -> Erweiterte Features aus.

Danach in die Eigenschaften des betroffenen Users -> Sicherheit -> Erweitert.

Dort setzen Sie bitte den Haken “Vererbbare Berechtigungen des übergeordneten Objektes einschließen”.

Zulassen Zertifikatsherausgeber – auswaehlen

Vererbbare Berechtigung des übergeordneten Objetkts einschliessen – haken setzen.

Exchange 2010

http://www.microsoft.com/downloads/details.aspx?FamilyId=60C92A37-719C-4077-B5C6-CAC34F4227CC&displaylang=en

Import-Module ServerManager
Add-WindowsFeature NET-Framework,RSAT-ADDS,Web-Server,Web-Basic-Auth,Web-Windows-Auth,Web-Metabase,Web-Net-Ext,Web-Lgcy-Mgmt-Console,WAS-Process-Model,RSAT-Web-Server,Web-ISAPI-Ext,Web-Digest-Auth,Web-Dyn-Compression,NET-HTTP-Activation,RPC-Over-HTTP-Proxy –Restart
Set-Service NetTcpPortSharing -StartupType Automatic