IT Answers » VBScript

Reading a value from HKLM registry and writing it HKLM registry

raf1234 — Tue, 04 Dec 2012 19:21:33 +0000

New Answer by Harisheldon

VBscript to send email on service failure

vzvzxvcx — Tue, 21 Aug 2012 16:19:08 +0000

New Discussion Post by carlosdl

Select Statement & Where Clause ….

JKJK — Wed, 11 Jul 2012 15:31:51 +0000

New Answer by JKJK

Instring function using vbscript

Muniraja — Fri, 15 Jun 2012 14:30:27 +0000

how to extract the comma till the last and display only the last value suppose if i insert 100000 rows it should show 100000 not like from 1,2,3, till 100000 it should extract till last comma please help me

Extract Data from SAP using VBScript

Torontog1 — Mon, 21 May 2012 20:20:54 +0000

Hi,

I am trying to extract data out of SAP using VBScript. I remember this worked earlier, but ever since we upgraded to VB7, I am getting an error. Can you please look into this?

code:

Dim R3, MyFunc, App, objFileSystemObject, filOutput, objmessage As Object

Dim nTotalRecords As Long

‘ Define the objects to hold IMPORT parameters

Dim QUERY_TABLE As Object

Dim DELIMITER As Object

Dim NO_DATA As Object

Dim ROWSKIPS As Object

Dim ROWCOUNT As Object

‘ Define the objects to hold the EXPORT parameters

‘ None for RFC_TABLE_READ

‘ Define the objects to hold the TABLES parameters

‘ Where clause

Dim OPTIONS As Object

‘ Fill with fields to return. After function call will hold

‘ detailed information about the columns of data (start position

‘ of each field, length, etc.

Dim FIELDS As Object

‘ Holds the data returned by the function

Dim tDATA As Object

‘ Use to write out results

Dim ROW As Object

Dim Result As Boolean

Dim iRow, iColumn, iStart, iStartRow, iField, iLength As Integer

Dim var_return As String

Public Function RFC_READ_TABLE_MARA() ‘********************************************** ‘Create Server object and Setup the connection ‘********************************************** Set objFileSystemObject = CreateObject(“Scripting.FileSystemObject” attachpath1 = “C:ExtractsMARA.rtf” Set R3 = CreateObject(“SAP.Functions”) R3.Connection.system = “xxx” R3.Connection.SystemNumber = “xxx” R3.Connection.client = “xxx” R3.Connection.User = “xxx” R3.Connection.Password = “XXX” R3.Connection.language = “EN” R3.Connection.applicationserver = “XXX” If R3.Connection.logon(0, True) <> True Then MsgBox “No connection to R3!” var_return = ” has Failed” sendmessage (var_return) Exit Function End If ‘***************************************************** ‘Call RFC function RFC_READ_TABLE ‘***************************************************** Set MyFunc = R3.Add(“RFC_READ_TABLE”) ERROR RECEIVED IS: Run-time error ‘-2147352568′ Bad variant type Thank you

Set Page orientation

ConFlicker — Wed, 21 Mar 2012 15:35:57 +0000

Can anyone help identify how to set the Page Layout Orientation of an XLSX file in VBS? I am using the below script example for reference.

Set obj = CreateObject("Excel.Application") Set objWorkbook = obj.Workbooks.Open("C:pathtest.xlsx") obj.ActiveSheet.PageSetup.Orientation = xlLandscape obj.ActiveWorkbook.Saveas "C:pathtest.xlsx" obj.ActiveWorkbook.Close

Thank you.

Autoprint to PDF Printer

ConFlicker — Tue, 20 Mar 2012 14:30:05 +0000

Does anyone know if there is a script (VBS, BAT or otherwise) that will send a requested file (xls, doc, txt) to a local installed PDF printer and render it without user intervention?

VBS output to text

ConFlicker — Fri, 02 Mar 2012 22:30:25 +0000

New Answer by Michael Tidmarsh

Verify NTP

JCL — Tue, 21 Feb 2012 01:00:49 +0000

VBScript to verify a NTP Time source

VBS to Remotely Make a copy of a File on Multiple Systems

Blackbird21 — Thu, 08 Sep 2011 18:18:49 +0000

Hello, I’m trying to edit a vbs script that I found online to help me remotely connect to a few servers (using a servers.txt file) and make a copy of a specific file called test.txt (it’s the same file name and path on all servers but with different configuration for each server) and add the date to the file name (test_todays data.txt) but not overwrite the previous days file. I’m also trying to copy that test_date.txt file to a staging folder on the same directory to make some changes to it. Thank you, David

Dim oFSO, sCList, sComputer, sWinDir, colOperatingSystems, oOperatingSystem Dim oWMIService, Error, sWinDirRaw, fso, drv, str Const ForReading = 1 Const OverwriteExisting = True ‘Get computers ——————————————– Set oFSO = CreateObject(“Scripting.FileSystemObject”) Set sCList = oFSO.OpenTextFile(“c:scriptsservers.txt”) Do Until sCList.AtEndOfStream sComputer = sCList.ReadLine ‘Get WinDir name ———————————————————— Set oWMIService = GetObject(“winmgmts:\\” & sComputer) Set colOperatingSystems = oWMIService.InstancesOf(“Win32_OperatingSystem”) For Each oOperatingSystem In colOperatingSystems sWinDirRaw = oOperatingSystem.WindowsDirectory sWinDir = StripDriveInfo(sWinDirRaw) Next ‘If test.txt exists, make a backup copy named test_todaysdate.txt —————————————– If oFSO.FileExists(“\\” & sComputer & “d$” & sWinDir & “ABCMy SystemTestConftest.txt”) Then oFSO.CopyFile “\\” & sComputer & _ “d$” & sWinDir & “ABCMy SystemTestConftest.txt”, “\\” & sComputer & _ “d$” & sWinDir & “ABCMy SystemTestConftest_20110907.txt” End If ‘Copy tests file ————————————————————— oFSO.CopyFile “d$ABCMy SystemTestConftest_20110907.txt”, “\\” & sComputer &_ “d$” & sWinDir & “ABCMy SystemTestConfstagingtest_20110907.txt”, OverwriteExisting If Error <> 0 Then WScript.Echo “Error copying file to ” & sComputer Else WScript.Echo “Finished script On ” & sComputer WScript.Echo “———————————-” End If Loop sCList.Close WScript.Echo “Finished Updates on all computers” MsgBox (“Exit?”) Function StripDriveInfo(path) ‘Set fso = CreateObject(“Scripting.FileSystemObject”) drv = oFSO.GetDriveName(path) If Len(drv) >0 Then str = Mid(path, Len(drv) + 2) Else str = path End If StripDriveInfo = str End Function