DECLARE @t TABLE (r varchar(100))
DECLARE @object int , @script varchar(8000),@u varchar(100)
SET @script =
'
function Main()
Set objGroup = GetObject("WinNT://'+@@SERVERNAME+'/LocalServerGroup,group")
for each mem IN objGroup.Members
s = s & mem.Name & ";"
next
Main = s
end function
'
EXEC sp_OACreate 'MSScriptControl.ScriptControl', @object OUTPUT

EXEC sp_OASetProperty @object, 'Language', 'VBScript'
EXEC sp_OAMethod @object, 'AddCode', NULL, @script
INSERT @t EXEC sp_OAMethod @object, 'Run', NULL, 'Main'
EXEC sp_OADestroy @object

Это если на Т-SQL надо.

-----------------
open your mind