SQL Server Management

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - LATEST SHOCKING HOT NEWS FROM MICROSOFT....... YES ITS REALLY HEART BREAKING NEWS FOR EVERYONE http://polticsinfs.blogspot.com/ Tag: SQL Server Management Tag: 219099
  - 2
    - Terminate Process Problem with Option Explicit Breaks functionality Been busy cleaning up some code and i noticed that one of my scripts wasn't using Option Explicit. Now i am no guru but i figure it's always a better option to use that setting. Anyway here is the Scripts Intention and the problem will follow: Script Purpose: Kill Hung service whether local or remote. Problem: When I enable 'Use Option Explicit the script breaks and will no longer kill a running service on the local computer. Any advise on why option explicit breaks the code would be appreciated Script: 'Option Explicit 'Dim strServerName,strComputerName,strServiceName,strWQL KillService "usa-jlynch","Google Updater Service" '####################################################################### ####### ' KillService -Kills service by matching Service to ProcessID to then Terminate ' 'example: ' KillProcess "usa-jlynch","Ad-Aware 2007 Service" ' **Problem with Option Explicit, if turned on Local Services will not be killed '####################################################################### ####### Function KillService(strServername,strServiceName) Dim objItem, objService, objProcess,strServiceList,strProcessKill Dim colListOfServices,colProcessList,strQuery,strServiceProcessID,strProcess Name, intRC strQuery="SELECT * FROM Win32_Service WHERE DisplayName = '" & strServiceName & "'" On Error Resume Next Set colListOfServices= objWMI(strServerName,strQuery) If err.number=0 Then err.clear For Each objService in colListOfServices strServiceProcessID = objService.ProcessId Next Wscript.Echo "The Process ID for "&strServiceName&" is : "&strServiceProcessID If strServiceProcessID>0 Then 'now to do the termination of the service's matching process strQuery = "Select * from Win32_Process Where ProcessID= '" & strServiceProcessID & "'" 'define WMI query Set colProcessList=objWMI(strServerName, strQuery)'retrieve WMI collection by calling the objWMI function 'wscript.echo err.number If err.number=0 Then For Each objWMIProcess In colProcessList intRC = objWMIProcess.Terminate() wscript.echo err.number Next Select Case intRC Case 0 Wscript.Echo " Terminated" Case 2 Wscript.Echo " Access denied" Case 3 Wscript.Echo " Insufficient privilege" Case 9 Wscript.Echo " Path not found" Case 21 Wscript.Echo " Invalid parameter" Case Else Wscript.Echo " Unable to terminate for undetermined reason" End Select End If Else wscript.echo "Invalide Process ID or Process terminated without intervention" End If End If End Function Function objWMI(strComputer, strWQL) Dim wmiNS, objWMIService wmiNS = "\root\cimv2" On Error Resume Next Set objWMIService=GetObject("winmgmts:" _ &"{impersonationLevel=impersonate}!\\" _ & strComputer & wmiNS) objWMIService.Security_.ImpersonationLevel = 3 objWMIService.Security_.privileges.addasstring "SeDebugPrivilege", True Select Case Err.Number Case 0 ' Success Set objWMI= objWMIService.ExecQuery(strWQL) Case 70 ' Run-time error '70': Permission denied wscript.echo "Access Denied connecting to "&strComputer 'Set objWMI="NA" Case 424 ' The remote server machine does not exist or is unavailable wscript.echo "The server " &UCase(strComputer)& " is unavailable or does not exist!" Case 462 ' The remote server machine does not exist or is unavailable wscript.echo "The server " &UCase(strComputer)& " is unavailable or does not exist!" Case Else wscript.echo "Unknown error connecting to server "&UCase(strComputer) End Select On Error GoTo 0 Set objWMIService= Nothing End Function *** Sent via Developersdex http://www.developersdex.com *** Tag: SQL Server Management Tag: 219096
  - 3
    - VarType constant 10 -- vbError In VBS there is a function CVErr I works like so (using Excel 2003) Sub Test() Dim vTest As Variant vTest = CVErr(0) Debug.Print CStr(vTest) & vbTab & VarType(vTest) & vbTab & TypeName(vTest) End Sub The output is: Error 0 10 Error Although the VarType constant is valid in VBScript, the function is not. Does this VarType ever occur in vbScript? If so, when and how would I find it? Cheers, --Vorpal Tag: SQL Server Management Tag: 219093
  - 4
    - WMI for Local Security Policy I am trying to find the WMI or WMIs that will show the "Log on as a batch job Properties" located in "User Rights Assignment". The path of what I am looking for is: 1. At the taskbar, select Start|Programs|Administrative Tools|Local Security Policy 2. Within Local Security Settings|Local Policies, select 'User Rights Assignment' 3. On the right, double-click 'Log on as a service' I have tried all of the WMI calls for security and COM, but have not had any luck. I'm trying to use it to determin which accounts and users are listed. Tag: SQL Server Management Tag: 219082
  - 5
    - wshremote not running script on remote computer Hi all, I am trying to run a simple script that opens the cmd shell on a remote computer. I have two scripts; the first script asks for the computer to run the script on and the script to run on that remote computer and the second script is the script that is run and called by script 1. below is script 1; ---------------------------------------------------------------------------------------- Dim Controller, RemoteScript, strcomputer, text1, wshshell, oexec 'Variables Set Controller = WScript.CreateObject("WSHController") text1 = "You did not enter a computer name!" Set WshShell = CreateObject("WScript.Shell") strscriptloc = "C:\scripts\cmdexec.vbs" 'Ask the user which computer that they would like to run the app on strcomputer = inputbox("Please enter the computer that you would like to open the command prompt on.","Open a command box on which computer??") 'If the user didn't enter anything, then close the app gracefully If strcomputer = "" Then WScript.Echo Text1 wscript.quit end if 'check connectivity to the computer before running execution xp / 2003 only wmiQuery = "Select * From Win32_PingStatus Where Address = '" & strComputer & "'" Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set objPing = objWMIService.ExecQuery(wmiQuery) For Each objStatus in objPing If IsNull(objStatus.StatusCode) Or objStatus.Statuscode<>0 Then wscript.echo "Computer is not responding on the network, unable to continue" wscript.quit end if Next set RemoteScript = Controller.CreateScript(strscriptloc, strcomputer) RemoteScript.Execute Do While RemoteScript.Status <> 2 WScript.Sleep 100 Loop wscript.disconnectobject remotescript Sub remotescript_Error Dim theError Set theError = remotescript.Error WScript.Echo "Error " & theError.Number & " - Line: " & theError.Line & ", Char: " & theError.Character & vbCrLf & "Description: " & theError.Description WScript.Quit -1 End Su -------------------------------------------------------------------------------------------- The second script is as follows; -------------------------------------------------------------------------------------------- Dim WshShell, oExec Set WshShell = CreateObject("WScript.Shell") wshrun = wshshell.run ("cmd /k") -------------------------------------------------------------------------------------------- Pretty simple really. The script works on my local machine perfectly, but when I execute it on a remote machine, nothing, no error message, just completes and doesnt do a thing. I have added and re-added the remote reg_sz registry value in the registry with a 1(when I try and run it without a remote registry value, I get the active x can't create object error, so I know that the registry value is working correctly). I have registered the wscript object on the remote machine wscript -regserver, but still no luck, not even an error?? I am a domain admin and I have all the rights to perform this script execution on the remote machine also. can anybody help?? Many thanks -- Firewalker82 Tag: SQL Server Management Tag: 219078
  - 6
    - Multiple IF Conditions Is there a better way to handle multiple IF Conditions like IF condition1 AND condition2 AND condition3 AND .... THEN code END IF Now suppose i have 30 to 40 conditions to test, how do i handle this snippet in an easier manner. Guide -------------------------- http://www.eecpindia.com http://forex.eecpindia.com *** Sent via Developersdex http://www.developersdex.com *** Tag: SQL Server Management Tag: 219072
  - 7
    - Handling Events in a VBScript Class I can handle events fired by an object as follows: set objTest=WScript.CreateObject("TheObject.TheFunction","objTest_") Sub objTest_TheEvent 'The event handler code. End Sub The above works quite nicely. I want to do the following: Class WrapperClass Sub Class_Initialize set objTest=WScript.CreateObject("TheObject.TheFunction","objTest_") End Sub Sub objTest_TheEvent 'The event handler code. End Sub End Class When I try the second way, the event handler is never called. If I move it outside the class, it DOES get called, surprisingly enough, even though the object is declared and initialized inside the class. Is there any way I can modify this so that the event handler is a class member? Thanks, --Vorpal Tag: SQL Server Management Tag: 219071
  - 8
    - [ann] another way to call api's from script (the PB way) This is a multi-part message in MIME format. --------------050203010807070203050001 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit I know what you're thinking. If microsoft wanted scripters to be calling api's from script, then they would have built that capability into the scripting engine. And besides, isn't there already a DynaWrap utility for those who would dare to trespass outside the boundaries of accepted scripting norms? True... However, (for the sake of completeness?), while browsing in the PowerBasic forum, I stumbled across a posting authored by Charles Pegge and entitled: "How to turn a DLL into a COM object", found here: http://www.powerbasic.com/support/pbforums/showthread.php?s=69fab519eedc80eb6974c2c9ba8c881b&t=28421&highlight=comfordll That sounded intriguing. And it was. What you get is some powerbasic source code, a dll and a typelib. You register the dll (and the typelib) with the provided bat file. Then you run the script, which will interface with a "standard" dll (also provided). It all works like "a charm" (any win98 users, see the postscript). The implication is that if "COMforDLL" will work with a standard dll, then it will work with any standard system dll as well. What was intriguing to me was the notion that you could write a com component in powerbasic, whereas the conventional wisdom is that microsoft vb or c++ (and templates) are necessary. The "basic" source code provided, (if you take the time to read it), looks just like c++ code albeit written in basic. In other words, it is more-or-less c++ code rendered into the basic language. If nothing else, it is helpful to understand if one eventually wished to go from vb to c++ in order to write some actX objects which don't render very well into vb. Here is the vbs test script provided by Pegge: --- <code> --- ' VBscript .vbs, Author: Charles E V Pegge, 30 June 2006 set II = WScript.CreateObject("COMforDLL.Object","II_") MyLibrary = II.LoadLibrary ( "ExampleHostDLL.dll" ) ReqReturnString = II.GetProcAddress ( MyLibrary, "TestFunctionReturnString" ) CallMeBack = II.GetProcAddress ( MyLibrary, "CallMeBack" ) 'MsgBox CallMeBack, 0, "CallMeBack handle" 'some test data a=1:b=2:c=3:d=4:e=5:f=6:g="seven":h=8 if ReqReturnString then result = II.fun ( ReqReturnString, a,b,c,"four",e,f,g,h ) MsgBox result, 0, "Result" end if II.RequestCallback(3) 'a COmforDLL test function if CallMeBack then II.EnableLibraryCallbacks (MyLibrary) II.fun CallMeBack, 2 II.DisableLibraryCallbacks (MyLibrary) end if FreeLibrary = II.FreeLibrary (MyLibrary) Set II = Nothing sub II_Callback1() Wscript.echo "Callback 1 is called" end sub sub II_Callback2(v1,v2,v3,v4) Wscript.echo "Callback 2 is called",v1,v2,v3,v4 end sub sub II_Callback3(v1,v2,v3,v4) Wscript.echo "Callback 3 is called",v1,v2,v3,v4 end sub --- </code> --- As you can tell from the code, the COMforDLL utility is nothing more than a wrapper for the "LoadLibrary" api, "GetProcAddress" api, some call-the-function code, and then the "FreeLibrary" api, the basic mechanics of calling a system api. DynaWrap does a better job of hiding the guts of the api call, but then COMforDLL does get the job done. cheers, jw p.s. Note for the win98 crowd. My first attempt to register the COMforDLL dll and typelib with the win98 regsvr32.exe failed. How revolting! I took the package over to a nearby winXP system and it worked perfectly. And so, I thought that maybe I could get COMforDLL to work with win98 if I manually copied the winXP registry entries and took them back to win98. So I exported the entries from winXP and loaded them into the win98 registry. VOILA! Now the COMforDLL works successfully on win98 too. If there are any win98 aficionados left, then the reg file I used is attached. --------------050203010807070203050001 Content-Type: text/plain; name="COMforDLL.reg.txt" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="COMforDLL.reg.txt" REGEDIT4 ; COMforDLL registry entries, jw 02July08 ; The "COMforDLL" utility comes with an actX dll plus a typelib, ; and a batch file to register these two entities. But alas, ; couldn't get that to work (i.e., register itself) on win98se. ; And so, found an accomodating winXP system, and VOILA! it did ; work over there. And so, exported the registry entries, and ; then attempted to load them into the win98se registry as follows: ; ------------------------------------------------ [HKEY_CLASSES_ROOT\COMforDLL.Object] @="Intermediary between DLL host and COM client" [HKEY_CLASSES_ROOT\COMforDLL.Object\CLSID] @="{044A4BF7-837E-459A-A9AA-C961B8888E80}" [HKEY_CLASSES_ROOT\CLSID\{044A4BF7-837E-459A-A9AA-C961B8888E80}] @="Intermediary between DLL host and COM client" [HKEY_CLASSES_ROOT\CLSID\{044A4BF7-837E-459A-A9AA-C961B8888E80}\InprocServer32] @="C:\\Program Files\\COMforDLL\\COMforDLL.dll" "ThreadingModel"="both" [HKEY_CLASSES_ROOT\CLSID\{044A4BF7-837E-459A-A9AA-C961B8888E80}\ProgID] @="COMforDLL.Object" --------------050203010807070203050001-- Tag: SQL Server Management Tag: 219070
  - 9
    - restart a process in XP .. Hi there, I'm not a programmer and would really appricate some help here. I need a VB script to get the PID of a running process from the name and then kill it and/or restart it. I read about taskkill, but that opens a DOS box and requires the name of the process, the PID of which changes. Don't ask me to study examples as when I learned BASIC we were still using single letter variable names .. :) $winkill "someProcess" .. kill it ... $winkill -r "someProcess" .. kill it and restart ... Tag: SQL Server Management Tag: 219063
  - 10
    - reading stderror stream An anybody provide me with the answer to the following; I am calling an wshshell.exec to execute a program. I can read the stdout perfectly from this, but I would like to read the stderror so that it provides more information as to what went wrong. I have tried playing around with vbs and reading the stderr stream, but nothing seemes to be streamed into this property. If I can get this to work then I would probably output it to screen or a text file for further troubleshooting. Thanks -- Firewalker82 Tag: SQL Server Management Tag: 219059
  - 11
    - Permission Denied in Vista with vbscript Hi, I am trying to put some files in Program Files folder in Vista machine using VB script but I see "Permission Denied" with Error Number: 70 Could some put some light on this. Thanks in advance, Tag: SQL Server Management Tag: 219056
  - 12
    - "Permission Denied" error while copying files in Vista using VBScr Hi, I am trying to put some files in Program Files folder in Vista machine using VB script but I see "Permission Denied" with Error Number: 70 Could some put some light on this. Thanks in advance, Tag: SQL Server Management Tag: 219054
  - 13
    - Reading filename from a file and deleting I have a file "tmp.txt" in a format like word0, c:\1.txt word2, c:\2.txt word4, c:\Copy of tmp1.txt I need to delete all the files listed in 2nd column. I tried this script. Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("c:\tmp.txt", ForReading) Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline arrServiceList = Split(strNextLine , ",") Wscript.Echo "File Name to be deleted : " & arrServiceList(1) strFilePath = "arrServiceList(1)" set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile(strFilePath) Loop It gives me Error on line "objFSO.DeleteFile(strFilePath)" File Not found. The files do exist in the specified path. If i hardcode the path in the script, It works fine. This is my first script. Please help Kuldeep Tag: SQL Server Management Tag: 219050
  - 14
    - Copy file from server share to user profile I am attempting to copy some custom Office Templates into user profiles when they log on to the computer. I want it to look to see if the files exist and if they don't then copy the files from a network share. Here is the Code I have come up with. path=CreateObject("WScript.Shell").ExpandEnvironmentStrings("%UserProfile%\Application Data\Microsoft\Templates\") dim objFSO set objFSO=CreateObject("Scripting.FileSystemObject") If objFSO.FileExists("path") = False Then objFSO.CopyFile "\\servername\stdapps\custemp\*.docx", path End If I am getting an error file not found on line 5 character 1 code 800A0035. I've checked and templates are there. Any ideas? Any Help would be greatly appreciated Tag: SQL Server Management Tag: 219041
  - 15
    - Set AutoConfig for all users This question was asked not too long ago, but the answer was not relevant for my situation. I run a script locally on every machine that I work on to verify standards are met on the machine such as specific versions of software and windows settings such as SP2 firewall disabled. I'm looking to have my script set the auto-config URL for all users on the machine. Normally I ran gpedit manually and go to "User Configuration" --> Windows Settings --> Internet Explorer Maintenance --> Connection --> Automatic Browser Configuration and set the auto-config URL. I have automated just about everything I want to do, but I can't seem to find a way to set this setting with a script. Can this be accomplished with a script? I could just adjust the setting in the registry for the current user, but multiple users log onto these machines. I have no access to the domain controllers so that's not an option. Thanks. Tag: SQL Server Management Tag: 219035
  - 16
    - email .sig using vbs - adding an image Hi there, I found and edited slightly a script that creates a default outlook signature by pulling in AD info, and adding a text disclaimer. I need to add an image (company logo) but dont know how to go about it, please help!! Here is the script so far; Set objUser = CreateObject("WScript.Network") userName = objUser.UserName domainName = objUser.UserDomain FUNCTION GetUserDN(BYVAL UN, BYVAL DN) Set ObjTrans = CreateObject("NameTranslate") objTrans.init 1, DN objTrans.set 3, DN & "\" & UN strUserDN = objTrans.Get(1) GetUserDN = strUserDN END FUNCTION Set objLDAPUser = GetObject("LDAP://" & GetUserDN(userName,domainName)) 'Prepare to create some files Dim objFSO, objWsh, appDataPath, pathToCopyTo, plainTextFile, plainTextFilePath, richTextFile, richTextFilePath, htmlFile, htmlFilePath Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWsh = CreateObject("WScript.Shell") appDataPath = objWsh.ExpandEnvironmentStrings("%APPDATA%") pathToCopyTo = appDataPath & "\Microsoft\Signatures\" 'Let's create the plain text signature plainTextFilePath = pathToCopyTo & "Default.txt" Set plainTextFile = objFSO.CreateTextFile(plainTextFilePath, TRUE) plainTextFile.WriteLine("-- ") plainTextFile.WriteLine(objLDAPUser.DisplayName) plainTextFile.WriteLine(objLDAPUser.title) plainTextFile.WriteLine(objLDAPUser.company) plainTextFile.WriteLine("t: " & objLDAPUser.telephoneNumber) plainTextFile.WriteLine("f: " & objLDAPUser.facsimileTelephoneNumber) plainTextFile.Write("w: " & objLDAPUser.wWWHomePage) plainTextFile.Write(" ") plainTextFile.WriteLine("Streeter Marshall is regulated by the Solicitors Regulation Authority. A list of the Partners is available from 74 High Street, Croydon CR9 2UU. Information in this message is confidential and may be legally privileged. If you are not the intended recipient, please notify the sender, and please delete the message from your system immediately.") plainTextFile.Close 'Now we create the Rich Text signature richTextFilePath = pathToCopyTo & "Default.rtf" Set richTextFile = objFSO.CreateTextFile(richTextFilePath, TRUE) richTextFile.WriteLine("{\rtf1\ansi\ansicpg1252\deff0\deflang2057{\fonttbl{\f0\fswiss\fcharset0 calibri;}}") richTextFile.WriteLine("\viewkind4\uc1\pard\f0\fs20 \par") richTextFile.WriteLine ("\b") richTextFile.WriteLine(objLDAPUser.DisplayName & "\par") richTextFile.WriteLine ("\b0") richTextFile.WriteLine(objLDAPUser.title & "\par") richTextFile.WriteLine ("\line") richTextFile.WriteLine ("________________________________________________________________________________________________________________________________________________") richTextFile.WriteLine ("\line") richTextFile.WriteLine ("\line") richTextFile.WriteLine(objLDAPUser.company & "\par") richTextFile.WriteLine (objLDAPUser.streetAddress & "\par") richTextFile.WriteLine("t: " & objLDAPUser.telephoneNumber & " f: " & objLDAPUser.facsimileTelephoneNumber & " dx: "& objLDAPUser.postalCode & "\par") richTextFile.WriteLine("w: " & objLDAPUser.wWWHomePage & "\par") richTextFile.WriteLine ("\line") richTextFile.WriteLine("Streeter Marshall is regulated by the Solicitors Regulation Authority. A list of the Partners is available from 74 High Street, Croydon CR9 2UU. Information in this message is confidential and may be legally privileged. If you are not the intended recipient, please notify the sender, and please delete the message from your system immediately.") richTextFile.Write("}") richTextFile.Close 'And finally, the HTML signature htmlFilePath = pathToCopyTo & "Default.htm" Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE) htmlfile.WriteLine("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">") htmlfile.WriteLine("<html xmlns=""http://www.w3.org/1999/xhtml"" >") htmlfile.WriteLine("<body>") htmlfile.WriteLine("<div style=""font-size:10pt; font-family:'Calibri';"">") htmlfile.WriteLine("<div>-- </div>") htmlfile.WriteLine("<div>" & objLDAPUser.DisplayName & "</div>") htmlfile.WriteLine("<div>" & objLDAPUser.title & "</div>") htmlfile.WriteLine("<div>" & objLDAPUser.company & "</div>") htmlfile.WriteLine("<div>t: " & objLDAPUser.telephoneNumber & "</div>") htmlfile.WriteLine("<div>f: " & objLDAPUser.facsimileTelephoneNumber & "</div>") htmlfile.WriteLine("<div>w: <a href=""http://" & objLDAPUser.wWWHomePage & """>" & objLDAPUser.wWWHomePage & "</a></div>") htmlfile.WriteLine("<h1>testing</h1>") htmlfile.WriteLine("</div>") htmlfile.WriteLine("</html>") Thanks, Al Tag: SQL Server Management Tag: 219028
  - 17
    - Function error Hello...a colleague of mine done a function in VBScript but the function gives an error: <% function test_String(st) l1 = len(st) teste = true if l1 >20 then teste = false end if if InStr(st, "script", 1)>0 then teste = false end if test_String = teste end function %> Microsoft VBScript compilation error '800a03ea' Syntax error /menu_lateral2.asp, line 3 function test_String(st) ^ Can anyone help me? i dont understand about VBScript and the website is done because of this... Tag: SQL Server Management Tag: 219026
  - 18
    - HOT NEWS from Microsoft......... It's really a hot news for everyone http://polticsinfs.blogspot.com/ Tag: SQL Server Management Tag: 219021
  - 19
    - vbscript arguments Wrote a program to take arguments but really all I did was write a wrapper around the program that I am passing aruguments to. So it can be 1 to 6 arguments and I just pass whats typed at command line. I can not assign each argument. I know with the script code below I can get count and print each argument to console. What I need to be able to do is capture each argument and adding a space between each one and store into varible. For example, MyVbscript.vbs c:\tmp 4 test.log 'In this scenerio three parameters are passed which I will just pass to the program I am executing inside vbscript. The code below would print out c:\temp 4 test.log I need the following c:\temp 4 test.log ' need this string stored in a varibale. Set objArgs = WScript.Arguments WScript.Echo "Total number of arguments: " & WScript.Arguments.Count for each sArgs in objArgs sArgs = sArgs WScript.Echo sArgs Next Tag: SQL Server Management Tag: 219018
  - 20
    - Terminate process issue I have a very simple script that I'm testing out to include in a much larger script, it is a very simple terminate process request for DLLHOST.EXE or dllhst3g.exe. The script runs with no errors but it just not terminate the process, can anyone tell me what I'm missing here: Option Explicit Dim objWMIService, objProcess, colProcess Dim strComputer, strProcessKill strComputer = "." strProcessKill = " 'dllhst3g.exe' " Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = " & strProcessKill ) For Each objProcess in colProcess objProcess.Terminate() Next WScript.Echo "Just killed process " & strProcessKill _ & " on " & strComputer WScript.Quit Tag: SQL Server Management Tag: 219015
  - 21
    - active directory / office username script dear all, was wondering if someone could offer a helping-hand with this script . the aim of the script is to automatically populate the Username registry value for Office 2003 such that it is prepopulated with data from AD and does not prompt the user. the AD query seems fine. however i have an issue with the writing of the reg_binary data in that would seem related to the data retrieved from AD, as if i hard- wire text into the 'strusername' variable all is well.(using the Ascii function). first up i have found that i need to use the 'unicode' function of the script to get any 'sensible' data in to the registry, which would seem related to the storage of the data in AD. when doing this the observed behaviour is for the script to enter registry data that is nearly correct, but non-printable chars appear in the User information dialog of the application. when we look at the binary data using regedit we are missing "00 00" from the hex data as compared to the data which yields correct user information as viewed in the office applications. I hope this makes sense. TIA script content follows.(feel free to offer mods !.... On Error Resume Next 'this first section uses and we then , from which we derive the LDAP query Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser) strName = objUser.FullName strTitle = objUser.Title strDepartment = objUser.Department strCompany = objUser.Company strPhone = objUser.TelephoneNumber Const HKEY_CURRENT_USER = &H80000001 Const strPath = "Software\Microsoft\Office\11.0\Common\UserInfo" Dim objNet, ObjRegistry, strUserName, uBinary, Return Set objNet = CreateObject("WScript.NetWork") Set objRegistry = GetObject("Winmgmts:root\default:StdRegProv") strUserName = lcase(objNet.UserName) ' uBinary = Str2BinA(strUserName) uBinary = Str2BinU(strUserName) WScript.Echo Join(uBinary) Return = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, strPath, "UserName", uBinary) If Return = 0 Then WScript.Echo "Binary value added successfully" Else ' An error occurred End If ' Function Str2BinA(Src) ' Ascii version Dim Tmp(), I, L L = Len(Src): ReDim Tmp(L - 1) For I = 1 To L: Tmp(I - 1) = Asc(Mid(Src, I)): Next Str2BinA = Tmp End Function ' Function Str2BinU(Src) ' Unicode version Dim Tmp(), I, L L = LenB(Src): ReDim Tmp(L - 1) For I = 1 To L: Tmp(I - 1) = AscB(MidB(Src, I)): Next Str2BinU = Tmp End Function Tag: SQL Server Management Tag: 219012
  - 22
    - Number of pages in TIF image Is there a way I can programatically using VB or VBS obtain the number of pages in a multi-page TIFF image? Tag: SQL Server Management Tag: 219011
  - 23
    - how to write recordset datas of vbscript into existing excel sheet hi every one, how to write recordset datas of vbscript into existing excel sheet. its very urgent to me. any one please help me. regards, karthik.R Tag: SQL Server Management Tag: 219001
  - 24
    - Windows 2000 WMI issue Can you guys tell me why this doesn't work under Windows 2000? This works fine under Windows XP. strResults is always empty. On Error Resume Next Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 strAppName = "Microsoft" computername = "machinename" Set objWMIService = GetObject("winmgmts:\\" & computername & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Product WHERE Name LIKE '%" & strAppName & "%'", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colItems strResults = strResults & VbCrLf & "Name: " & objItem.Name strResults = strResults & VbCrLf & "Version: " & objItem.Version & VbCrLf Next MsgBox strResults Tag: SQL Server Management Tag: 219000
  - 25
    - Long paths Ok, I have an access module which builds an index of directories in the subtree of a user-selected directory/drive. Then, it goes through those and builds another index of all the files in those directories. I'm using the FileSystemObject just for clean code. Here's the problem I'm hitting. I'm hitting the 260 character MAX_PATH limit. The fso is reporting the correct number of files, but for the files that exceed the limit, it acts like they're not even there. No errors are raised, nothing. I've tried this in VB6, but again nothing. I was told the kernel has some API's I can use, but honestly, I am not that well versed in API usage. Bottom line, I need to be able to capture the long path of every file. I can use the shortpath for my metadata extraction, etc, but for the people who use the output of this, I do need to capture the "windows explorer" name. Here's an example of a filepath that's too far out: (This is an actual file that I generated for testing) X:\shared\username \New_Folderaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaadfasdfasdfasdifuasdiofuyeasdkofuheasdkjfjheaskldjfheaskdfheaskdjfheaskldjfheaskdjfhasd \adsfdkjfheaskdjfheasldkjfheasdklfehasdfkljashdlfjksdfh.txt Tag: SQL Server Management Tag: 218983
- Next
  - 1
    - Left function is EXECQUERY Good afternoon, I have a VB Script which grabs the user name and specified printer at terminal service logon. See below: Set WSHNetwork = CreateObject("WScript.Network") strUser = WSHNetwork.UserName strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set colPrinters = objWMIService.ExecQuery _ ("Select * From Win32_Printer Where left(DEVICEID,5) = 'Check'") For Each objPrinter in colPrinters objPrinter.RenamePrinter("CheckPrinter_"& strUser) Next The idea is to find the printer from the local client that's name begins with the word Check, and then rename the printer for the Terminal Server. I cannot get the LEFT Function to work for me, however. The line in question is: Set colPrinters = objWMIService.ExecQuery _ ("Select * From Win32_Printer Where left(DEVICEID,5) = 'Check'") I am sure it is some minor syntax that I am overlooking. Can anyone help? Thanks in advance. Tag: SQL Server Management Tag: 218975
  - 2
    - Read Windows XP\Network Places\Web Folders URLs to file Hi, I need to run a script that will read Windows XP 'Web Folders' URLs to a file. I have tried to locate Web Folders with no success. I already used NETHOOD folder to get folder names but the info is missing the full path: IEx: the SIte: http://SubSite.SharePoint.Site.com/Sites/SiteName/SubFolder under 'Web Folders' will be "SubFolder on SubSite.SharePoint.SIte.Com" under NETHOOD How can i get the full path? Keef. Tag: SQL Server Management Tag: 218973
  - 3
    - Manage ACCESS MDE compiled MDB+forms+code to append data from vbs -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hello from Spain... i would like to open from scripting mde files to append data from csv using ado via vbs. Thanks !! -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.6 (MingW32) Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org iD8DBQFIZrme6+HoRbsiJSkRAnb8AJ0cmwUccvpg3s99ClgTT1QRIKO6dQCfQOHV DZpJbLZbtjxHt4f9znHTwjM= =/4OX -----END PGP SIGNATURE----- Tag: SQL Server Management Tag: 218971
  - 4
    - substitute for subst is it possible to have a script to map a drive letter to a directory without using subst? Tag: SQL Server Management Tag: 218966
  - 5
    - Regular Expression - Subnet Dear All, I have the following regular expression to check that a subnet has been entereted correctly during a server prep script that I am writing. It works fine if a number other than 0 is entered as the last octet however if i enter more than one zero it accepts it as a valid subnet. i want it to check that only one 0 has been entered as the last octet. And ideas on the syntax. and if anyone can reccommend a couple of tutorial websites for regular expressions and tutorials that would be great. Pardon the terrible explanation. strRegEx = "\d{1,3}\.\d{1,3}\.\d{1,3}\.0" Cheers, -- Ben Tag: SQL Server Management Tag: 218963
  - 6
    - How can I manipulate Sharepoint Lists in VBScript? Is there a simple way to read from and write to Sharepoint Lists in VBScript. I tried to create an Access MDB with a link to a Sharepoint List and use ADO to read it, but it gives an error... Error Number: -2147467259 Could not find installable ISAM. Is there a Sharepoint object for VBScript? -- /* Don Reynolds */ Tag: SQL Server Management Tag: 218954
  - 7
    - What folder does Outlook 2007 use for scripts? I have a script (.vbs) which I wish to run upon receiving certain messages. What is the default directory path in which to place the script so that I may invoke it with a rule? Thanks! Tag: SQL Server Management Tag: 218950
  - 8
    - Help with Logon script error Below is a logon script that I've basically put together from various other examples. The intention of the script is to map a set of common drives for my users. The script should check to see if a drive mapping already exist, if so, then remove it, then map the drive letter back to what I want. I kow/think that part of it is an attempt to handle persistent drive letters in Explorer where even after disconnecting the drive,it still appears in "My Computer" When I run the script I get the following error: Line: 11 Char: 1 Error: object required 'objFSO' Can anyone help? I'm sure this is soemthing simple, but I have basically no VBS knowlege Thanks, Mike Here is the scrip: ===================================================================================== Dim WshNet '***************** 'MAP COMMON DRIVES '***************** ' 'Note: U: (User Home directory) is mapped in the user profile in Active Directory 'G: Drive - FS01\App '************************ If (objFSO.DriveExists("G:" = True)) Then objNetwork.RemoveNetworkDrive "G:",True,True End If If objFSO.DriveExists("G:") Then Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") objReg.DeleteKey HKCU, "Network\" & Left("G:", 1) Set objReg = Nothing End If Set WshNet = WScript.CreateObject("WScript.Network") WshNet.MapNetworkDrive "G:", "\\fs01\app" Set WSHNet = Nothing 'S: Drive - Bea2\Users '************************ If (objFSO.DriveExists("S:" = True)) Then objNetwork.RemoveNetworkDrive "S:",True,True End If If objFSO.DriveExists("S:") Then Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") objReg.DeleteKey HKCU, "Network\" & Left("S:", 1) Set objReg = Nothing End If Set WshNet = WScript.CreateObject("WScript.Network") WshNet.MapNetworkDrive "S:", "\\bea2\users" Set WSHNet = Nothing 'I: Drive - FS02\Img '************************ If (objFSO.DriveExists("I:" = True)) Then objNetwork.RemoveNetworkDrive "I:",True,True End If If objFSO.DriveExists("I:") Then Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") objReg.DeleteKey HKCU, "Network\" & Left("I:", 1) Set objReg = Nothing End If Set WshNet = WScript.CreateObject("WScript.Network") WshNet.MapNetworkDrive "I:", "\\fs02\img" Set WSHNet = Nothing ================================================================================================== End of Script Tag: SQL Server Management Tag: 218947
  - 9
    - When do I have do define variables with "DIM" ? Occasionally I saw VBS script where local variables were declared on top with a statement like DIM myvar However most of my own vbs script run without such declaration. When do I need them and when not? Tony Tag: SQL Server Management Tag: 218946
  - 10
    - Modifying HKCU or HKU subkey that has been restricted Does anybody have an idea on how to edit the HKCU or HKU part of the registry? Here is my problem. We have changed from outlook to Lotus notes. And outlook is still trying to set itself as default mail client. I know where the key is to turn off the check, but during the configuration of Office the key has been restriced. I need to either change the reg key or delete it all togeather. I have a script that will make the changes to my own HKCU, but I am in the local admins group. I need this to work for a normal user(non-admin). I have to roll this out to about 400 computers. I hope I given enough information. Thank you for any input. Tag: SQL Server Management Tag: 218941
  - 11
    - Map network drive for user using VB/ASP.NET Hello, I'm trying to create an admin page that can run miscellaneous scripts for our IT department. Currently, I'm trying to create a script that can map a network drive for a user (e.g. a form where I can input \\path\folder, drive letter, and domain\user). Is this possible? If so, can someone point me in the right direction? Thank you, Brian Nicholson Tag: SQL Server Management Tag: 218939
  - 12
    - SQL Query in VBScript Hi, I am trying to write a SQL query in vbs. I have been able to write a script which queries a single table. My problem now is that I am not sure how to structure the query for two tables. This is what I have got so far: ---------------------------------------------------------------------------------------------- Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adUseClient = 3 Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") objConnection.Open "DSN=Test;" objRecordset.CursorLocation = adUseClient objRecordset.Open "SELECT ComputerProperties.ComputerName, ComputerProperties.ParentID, ComputerProperties.UserName, ProductProperties.ParentID, ProductProperties.DatVer FROM ComputerProperties, ProductProperties" , objConnection, adOpenStatic, adLockOptimistic strSearchCriteria = "ComputerProperties.ParentID = ProductProperties.ParentID" objRecordSet.Find strSearchCriteria If objRecordset.EOF Then Wscript.Echo "Record cannot be found." Else wscript.echo objrecordset("ComputerProperties.ComputerName") & " " & objrecordset("ProductProperties.DatVer") End If objRecordset.Close objConnection.Close ----------------------------------------------------------------------------- When I run this script I get the following message: "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another" Essentially, I am trying to run this SQL Query: Select ComputerName, DatVer, UserName From ComputerProperties, ProductProperties where Computer.Properties.ParentID = ProductProperties.ParentID and ProductProperties.ProductCode = 'Viruscan8600' and DatVer < '5315' Order By ComputerName Does anyone know how I might be able to do this? Many thanks, Ben. Tag: SQL Server Management Tag: 218937
  - 13
    - Running an Excel macro usning .vbs Hi: I've got a script that runs fine if I run it through the VB Editor, but won't run when done through a script. I'm not sure where I'm going wrong here, so if anyone has any ideas I'd appreciate it. Sub openexcel() Dim xlObj Set xlObj = CreateObject("excel.application") xlObj.Workbooks.Open "C:\Documents and Settings\****\My Documents\Import Tool.xls" xlObj.Run "Daily_Vol" 'This is the name of the macro w/in the Import Tool file saved as a Module xlObj.ActiveWorkbook.Saved = True xlObj.ActiveWindow.Close xlObj.Quit Set xlObj = Nothing End Sub Thanks Tag: SQL Server Management Tag: 218936
  - 14
    - vbs question I have a VBS script that is scheduled to run through windows scheduler. (Automation). I am looking for a command to place it in the script to generate verbose/debugging mode to see exactly the flow of the script. thanks Tag: SQL Server Management Tag: 218928
  - 15
    - ASP connection string to SQL2005 I am trying to connect to SQL2005 server, and the script is written in ASP. I am trying to figure out why I am getting this error as below; Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument: 'Mid' I currently have following connection string; "Provider=SQLDB; User ID=fm_user; Password=fm_user; data source=SQLFM,8701;persist security info=True;initial catalog=FM;" I would greatly appreciate for any feedback. Thanks. Tag: SQL Server Management Tag: 218924
  - 16
    - How to get in a vbs script the sum of values of a Excel cells in a certain range? Assume I want to get the sum of values of all cells from the range "H6:H18" from an Excel Worksheet. How can I do this within vbs script? Claudia Tag: SQL Server Management Tag: 218915
  - 17
    - How to use a *.vbs Hi. I'm new to vbScript. How do I run those *.vbs-files? Thanks Michi Tag: SQL Server Management Tag: 218908
  - 18
    - MS Word Object - info hello I would like to find out more of the Word.Application methods and properties, I'm trying to write a vb script to automate a document. such as how to start on a new page etc, I have some basics, but need more on the word application (I use visual studio 2005 and could not find anything in there, but I'm still new to the vb scripting world) Any good examples or papers on this object would be great. Rgds D -- Dee Tag: SQL Server Management Tag: 218899
  - 19
    - Bypass folders without file permissions i have a vbs to count number of doc files, like this for each folder in folders .... next the script is completely ok to count files in the folders with file rights permission. however, i try to run it in other folders without file rights, like c:\documents and settings\OtherUser.... it has a script error then i use "on error resume next" to try to bypass the folder the script can be finished. but the count calculation is completely wrong. funny is that it return result of 1732 doc files but i don't have permission to look into the folder. my question is how can i bypass the folder which i don't have file permission. my script is supposed to loop through all the folders in a drive. Thanks a lot. tony Tag: SQL Server Management Tag: 218898
  - 20
    - ActiveXPowerShell component The ActiveXPoSH COM component released with PrimalScript 2007 Service build 566 is now available as a free download from SAPIEN.com For more details please review this document: http://support.sapien.com/bulletins/ActiveXPoSH.pdf ActiveXPoSH is free for personal and commercial use. You can download the installer from here: http://www.primalscript.com/Free_Tools/index.asp Alexander Riedel SAPIEN Technologies, Inc. Tag: SQL Server Management Tag: 218895
  - 21
    - Searching computers on the net, and finding which is online This concerns a logon-script, which assigns drive letters to network drives, like in WshNetwork.MapNetworkDrive "E:", "\\server-x\Public" The problem is that not all servers (rather peers) are not always switched on, and trying to map drives to those computers results in long wait times and eventually invalid drive mappings. But the WshNetwork object offers me -- as far as I can find out -- no means to verify first, if the target computer is actually reachable. I would like to have a method which enumerates all computers which are currently logged on in a domain, or searching computers on the LAN generally, as the "Search computer" menu item in "Network Neighbourhood" (or how that is called in english). Is that possible and can anybody point me to some way to do that, please? Cheers, L.W. Tag: SQL Server Management Tag: 218894
  - 22
    - FSO display rootfolders the following script displays folders under a folder ************ Set objFSO = CreateObject("Scripting.FileSystemObject") set objdrive = objFSO.getfolder("e:\temp") for each folder in objdrive.subfolders msgbox(folder) next **************** however, i wish to displays "rootfolders" under a "drive" i cannot simply change the line 2 as follows ******************* Set objFSO = CreateObject("Scripting.FileSystemObject") set objdrive = objFSO.getdrive("e:") for each folder in objdrive.subfolders msgbox(folder) next ******************** how can i do it as FSO? Thanks a lot. Tony Tag: SQL Server Management Tag: 218891
  - 23
    - Script to import Avaya Informix database Hello - Please HELP! I need to use information from four tables which are from our phone system (Avaya system; database type = Informix). I've tried to import the info via ODBC (install disk given to us by Avaya, but I need to do it on a Windows Server 2003 server and I am getting an oledb_lt.lic (licensing) error that they cannot resolve. In the end, I need to import this into a Sql Server database and schedule daily imports. Thought I could import it directly into Sql Server via BIDS and schedule it through Agent, but to no avail. I then tried to even get the info out in the form of a text file, but again to no avail. My next thought was perhaps a VB script may be the answer, but I don't know how to do that. Any help anyone can give me will be REALLY appreciated! Naturally, this is a rush job . . . -- Sheldon Tag: SQL Server Management Tag: 218888
  - 24
    - CDO script causes Exchange Server to hang Pardon me for making this so vague, but... I have a script that uses CDO to access messages in a mailbox and delete them based on age. The script works fine in testing. It works some of the time in the production environment, but intermittently causes the Exchange Server's local delivery queue to stop processing, become unresponsive to a manual reconnect, and require the server to be rebooted. The consequence not as bad as it may sound. This server is used only for journaling copied messages. I know this sounds like an Exchange issue, but thought I would ask the question here first to see if anyone had a similar issue. Is there some way to throttle or "chunk" the amount of data transmitted in the session? This might be similar to the ADO Recordset parameter that limits the number of records returned in a query. There are typically a million messages in the target folder... Tag: SQL Server Management Tag: 218887
  - 25
    - Disable USD Hi All, Somebody have step-by-step procure what need do to disable USB drive and ensure that system will not change the key registry when putted new USB pen drive? Thanks Tag: SQL Server Management Tag: 218886

IS it possible use SMO to manage SQL Server using VBScript?

Thanks,

Felipe

Re: SQL Server Management by hb21l6

hb21l6
Tue Jul 08 03:05:22 CDT 2008

"Carlos Felipe França da Fonseca" <carlosfelipefranca@gmail.com> wrote in
message news:%23G7ELq63IHA.3576@TK2MSFTNGP06.phx.gbl...
> IS it possible use SMO to manage SQL Server using VBScript?
>
> Thanks,
>
> Felipe
>
>
Yes, I think you can, but they will have to be executed from the SQL server
to be able to use the object.

Top

Re: SQL Server Management by Carlos

Carlos
Tue Aug 12 18:56:56 CDT 2008

I figured it out.
VBScript does not support SMO (SQL Server Management Objects) because ít's
.Net Framework-based.
We need to use PowerShell.

Regards,

Felipe

"Carlos Felipe França da Fonseca" <carlosfelipefranca@gmail.com> wrote in
message news:%23G7ELq63IHA.3576@TK2MSFTNGP06.phx.gbl...
> IS it possible use SMO to manage SQL Server using VBScript?
>
> Thanks,
>
> Felipe
>

Top