declare @vbtext varchar(3000)
select @vbtext=
'Set fso = CreateObject("Scripting.FileSystemObject")'
+char(13)+char(10)+
'Set f = fso.OpenTextFile("c:\text.txt", 1)'
+char(13)+char(10)+
'f.Close'

exec spRunScript @vbtext
======================================
!! Check your registry for MSScriptControl being installed !!

CREATE PROCEDURE spRunScript @script_text varchar(8000),  @language varchar(8)='VBScript' AS

DECLARE @object int, @hr int

EXEC @hr = sp_OACreate 'MSScriptControl.ScriptControl', @object OUTPUT
IF @hr <> 0 GOTO SCR_ERROR
EXEC @hr = sp_OASetProperty @object, 'Language', @language
IF @hr <> 0 GOTO SCR_ERROR
EXEC @hr = sp_OASetProperty @object, 'Timeout', 60000 -- 1 min 
IF @hr <> 0 GOTO SCR_ERROR
EXEC @hr = sp_OASetProperty @object, 'AllowUI', 0
IF @hr <> 0 GOTO SCR_ERROR
EXEC @hr = sp_OAMethod @object, 'ExecuteStatement', NULL, @script_text
IF @hr <> 0 GOTO SCR_ERROR
EXEC @hr = sp_OADestroy @object
IF @hr <> 0 GOTO SCR_ERROR

RETURN 0

SCR_ERROR:
-- print 'Oops!'
  RETURN -101

SELECT @cmdstr = 'C:\scripts\MyVBScript.vbs'
EXEC master..xp_cmdshell @cmdstr