VBscripts newbie

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
    - how to activate running app from background? yes, is it possible to activate an application that is already running in the background - bring it to the front? I have a script to startup an application (an Access mdb for example). If the Access mdb is already running in the background and the user tries to start it up, I don't want to start up a new instance, but instead activate the instance that is already running - bring it to the front. Is this doable? How to do? I experimented with Set AccObj = GetObject(Path & appName) But where to go from there? Thanks, jj Tag: VBscripts newbie Tag: 161655
  - 2
    - Looking for SNMP COM Gang, I'm looking for a free/cheap SNMP COM object that will let me query SNMP on non-standard ports (IE - our SNMP agents listen on a port other then 161). All it needs to do is be able to walk the tree and return the OIDs nested inside it - that's all. I've been looking for this for a long time and can't seem to find anything simple enough to do it. All the simple COMs only talk on 161, and the others are huge expensive suites I don't need. So does someone out there have an idea? Thanks. Tag: VBscripts newbie Tag: 161653
  - 3
    - Adding Administrators Group to Domain Admins Group in Windows NT Everyone, I am working to over ride NT 4.0 limitations and attempting to nest a local group, Administrators, in a Global Group, domain Admins. If not, I would like to script the adding of the Administrators group from the PDC to all members of the NT domain. Please advise. Tag: VBscripts newbie Tag: 161652
  - 4
    - Retrieving an Item Count from a Public Folder I am trying to write a simple VBScript that queries the number of items in a public folder on Exchange 5.5. I will then move items to another public folder is a certain item count is exceeded. What is the best way to access a public folder via VBScript? Does anyone have any code samples to demonstrate this action? Tag: VBscripts newbie Tag: 161650
  - 5
    - Catching detailed runtime error description from a VB script Hi I am looking for a way to capture error messages at runtime for VB scripts. I cannot use the Err object, because it does not contain information about what actually went wrong (what line in the code, what function/method/property call etc.). So, then I thought of using linenumbering and the Erl function, only to realize that VB scripts do not support linenumbering. By now, frustration is building up.... If you have found a way to solve this issue, I would LOVE to hear from you :-) //Geir Tag: VBscripts newbie Tag: 161649
  - 6
    - LDAP query from child domain When I logon top domain and trying to LDAP query from child domain I get no results, no errors, and object are there, When I logon child domain, script works fine. I have domain admin rights to child domain when logon to top domain. What can I do? Set con = CreateObject("ADODB.Connection") con.Provider = "ADsDSOObject" con.Open "Active Directory Provider" Set Com = CreateObject("ADODB.Command") Set Com.ActiveConnection = con ' This works fine Com.CommandText = "select name from 'LDAP://DC=citaron,DC=net' where objectCategory='group' ORDER BY NAME" ' This dosen't work Com.CommandText = "select name from 'LDAP://DC=edu,DC=citaron,DC=net' where objectCategory='group' ORDER BY NAME" Set rs = Com.Execute While Not rs.EOF msgbox rs.Fields("Name") rs.MoveNext Wend Tag: VBscripts newbie Tag: 161648
  - 7
    - Vbscript causing problems with Internet Security Settings Dear members and gurus, I am very new in vbscript and internet security. I created a button on my website that will call a vbscript function to launch an application located on the user's computer. The vbscript is as follow: ************************************************************* Dim fso,WshShell set fso=CreateObject("Scripting.FileSystemObject") Set WshShell = CreateObject("WScript.Shell") if fso.FileExists("C:\Program Files\IEBAudioRecorder\test.txt") then 'path to the file msgBox("File Exists") WshShell.Run("C:\Progra~1\IEBAud~1\AudioRecorder.exe") 'run application else msgbox("file not found, please download it") WshShell.Run("http://blackfeet:90/library/IEBSoundRecorder.exe") 'download installer from the server end if set fso=nothing set WshShell=nothing ************************************************************* I noticed that if the user's internet setting is set to default(disable) for "Initialize and script ActiveX controls not marked as safe", the vbscript would not run and my application could not be launched. If it is changed to "Enable", a message box will pop up everytime the button tries to run the vbscript, saying "An ActiveX control on this page might be unsafe...Do you want to allow this interaction? Yes/No". I am testing on IE6. How could I solve this problem (allow the vbscript and the application to run, and eliminate the pop up window) without asking the users to change their internet security settings? Is there any other methods to solve this, as I think requesting users to edit their security settings might risk them to malicious scripting. How can I initialize and script activeX controls to marked as safe? Is it possible to sign my vbscript a digital certificate like those for exe/cab/ocx? I sincerely hope that someone could share with me their knowledge and experience on this matter as I am totally helpless. Looking forward to some replies soon. Thanks in advance Tag: VBscripts newbie Tag: 161641
  - 8
    - VBCRLF I have the following lines but cannot figure out how to include a Carrage Return Line Feed so I can split the lines when constructing the E-Mail BodyText = "Your details are as follows :" & VBcrLf 'Does not work BodyText = BodyText & "Click on the link to proceed http://www.raymarine.com" Document.location "mailto:info@zippytech.co.uk&Subject=Warranty Logon Details&Body=" & BodyText I have tried VbCrLF but cannot seem to get this to work in VBScript. Can anybody shed some light on how I could do this. Many thanks Tag: VBscripts newbie Tag: 161640
  - 9
    - Code not working.......... Hi, Following code is not working on my m\c. Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WScript.Echo WshShell.CurrentDirectory Everytime i get the following error :- Microsoft VBScript runtime error: Object doesn't support this propert or method: 'CurrentDirectory' Please help !!! Regards Arpit - arpita_singha ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: VBscripts newbie Tag: 161639
  - 10
    - How to set permission for Shell.Application when using BrowseForFo I tried to use Shell.Application BrowseForFolder to allow myself to browse the windows folders from within a script block in HTML web page. I can fully control the server and can setup the permission whatever I want. I am using the following code but when I invoked it, it always says "Permission Denied" at this step "set objFolder = objShell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)". I don't know what permission I need to grant to whom... Help... <script language="VBScript"> function fnShellBrowseForFolderVB() dim objShell dim ssfWINDOWS dim objFolder ssfWINDOWS = 36 set objShell = CreateObject("Shell.Application") set objFolder = objShell.BrowseForFolder(0, "Example", 0, ssfWINDOWS) if (not objFolder is nothing) then 'Add code here. end if set objFolder = nothing set objShell = nothing end function </script> Tag: VBscripts newbie Tag: 161637
  - 11
    - create a local port (file) Hi, with "prnport.vbs" placed in system32 of Windows 2003 and XP I can create a TCP/IP port. How can I create a port like "D:\printer.prn"? Please help Martin Tag: VBscripts newbie Tag: 161635
  - 12
    - how to specify the page looks in window onload?? I have a page1 that opens a window called page2. I want page2 doesn't have title bar, tool bar, address bar. Is it possible to specify in javascript function window_onload() in page2? I don't want to specify in window.open() in page1 when it loads page2. <script type="text/javascript"> function window_onload() { } </script> <body onLoad="window_onload()"> Tag: VBscripts newbie Tag: 161628
  - 13
    - run macro from VBScript Is it possible to run a macro from a vba module from a script? I have a form in Outlook that I would like to have run a macro in the same application. thanks Neil Tag: VBscripts newbie Tag: 161626
  - 14
    - Script to remove all network printers. Hi there, We are trying to allocate printers by OU. We have loopback enabled on a group policy and it runs the following script: Set WshNetwork =CreateObject("WScript.Network") PrinterPath ="\\servername\HP4300n" WshNetwork.AddWindowsPrinterConnection PrinterPath WshNetwork.SetDefaultPrinter PrinterPath That scripts works excellently for connecting to a shared printer and setting it as default, but it leaves existing printers connected. In a school, that is not desirable as kids will be printing to different rooms. I wish to insert a line in the above script that will delete ALL existing printers before setting the 'proper' default one. I presume that I need to use the 'RemovePrinterConnection' property, but I don't know how to use it when you don't actually know the name of the printer you want to disconnect. Any help would be greatly appreciated. Thanks. Tag: VBscripts newbie Tag: 161623
  - 15
    - How do I save Attchment of type CdoEmbeddedMessage to file system? I want to save email attachment which is of type CdoEmbeddedMessage to a file system (say, C:\temp directory) using Active Server pages (CDO prefered)!!! Any help is appreciated...asap....THX. Tag: VBscripts newbie Tag: 161621
  - 16
    - How to consume webservice using VBScript??? Hi, I really need to figure this out... I'm trying to use VBScript to consume a webservice. I would like to do this without making a reference to the soap client. So what I have found so far is this: Set xmlhttp = CreateObject("Microsoft.XMLHTTP") and I can make a post method using the xmlhttp object. I have a helloworld webservice that I created, --------------------------------------------------------------------------- The following is a sample SOAP request and response. The placeholders shown need to be replaced with actual values. --------------------------------------------------------------------------- POST /CreateFileService/Service1.asmx HTTP/1.1 Host: localhost Content-Type: text/xml; charset=utf-8 Content-Length: length SOAPAction: "http://tempuri.org/HelloWorld" <?xml version="1.0" encoding="utf-8"?> <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"> <soap:Body> <HelloWorld xmlns="http://tempuri.org/" /> </soap:Body> </soap:Envelope> -------------------------------------------------------------------------- But I"m not sure how I can use the VBScript to make a request to this service... where the 'length' is the placeholder. I'm new to VBScript and making SOAP calls, can someone please help me? Tag: VBscripts newbie Tag: 161620
  - 17
    - ADO client disconnects after running a long query I am having a problem executing long running queries from an ASP application which connects to SQL Server 2000. Basically, I have batches of queries that are run using ADO in a loop written in VBScript. This works pretty well until the execution time of a single query starts to exceed some threshold, which I am trying to narrow down. I can typically run 2 - 10 queries in a loop, with the run time being anywhere from under a minute to an hour or more. Now that this application is being subjected to run against some large databases (25 - 40G), I'm having problems getting the application to continue beyond the first query if it takes a while to run. I used SQL Profiler to try to diagnose what was going on. I can see the query executes to completion, but immediately after completing I can see an "Audit Logout" message, which apparently means that the client has disconnected. The query durations vary from 45 or 50 minutes to up to over 90 minutes. I have the ADO connection and query timeouts set to very large values, e.g. 1000 minutes, so I can't think its that. My guess is that there is some IIS setting or timeout that I am running up against and the connection to SQL Server is just dropped for some reason. The configuration is NT 4.0 SP6 SQL Server 2000 SP3 IIS 4.0 Internet Explorer 5.5 I'm only running into this problem on the very largest databases we run against. The vast majority continue to function properly, but this is going to happen more often as time goes on the databases continue to grow in size. Any advice is appreciated, -Gary Tag: VBscripts newbie Tag: 161618
  - 18
    - VBScript Debugging Tool Hi All, Is there a way, or a tool, that can debug vbScript, line by line? Thanks Tag: VBscripts newbie Tag: 161616
  - 19
    - Get current woking directory Hi, How can i get the path of current working directory in VBScript - arpita_singha ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: VBscripts newbie Tag: 161615
  - 20
    - Script for checking remote hosts Hi, i am searching for a script to check remote hosts - list of remote hosts is taken from a txt-file. For example: Checking on remote hosts the existance of a special service - clients without this service have to be written to a output file please reply via email to martin.malsch@dhl.com rgds Martin Tag: VBscripts newbie Tag: 161612
  - 21
    - Script to enable/disable ICS I am looking for a script which will allow me enable/disable Internet connection sharing. Im sure I've seen it before. Thanks in advanced. SA Tag: VBscripts newbie Tag: 161611
  - 22
    - Shutdown remote server What is the best way to shutdown a remote server, even if it's locked or logged in? The following script seems to only work if nobody is logged it: Thanks intLogOff = 0 intForcedLogOff = 4 intShutdown = 1 intForcedShutdown = 5 intReboot = 2 intForcedReboot = 6 intPowerOff = 8 intForcedPowerOff = 12 strComputer = "ServerA" Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems objOperatingSystem.Win32Shutdown(intForcedReboot) Next Wscript.Echo "Shutting down " & strComputer Tag: VBscripts newbie Tag: 161609
  - 23
    - recursive search for files I'll try to keep this brief... I have 3000 computers with users who love to fill up their drives to Junk. One mans Junks is another mans treasure I suppose. In particular, I want to do a recursive search through a specific directory path looking for files. The one listed below does not work and am not sure why. Set FileSet=GetObject("winmgmts:").ExecQuery("select * from CIM_DataFile where Drive = 'C:' AND Path = '\Documents and Settings\' AND Extension = 'mp3'") If I remove the "AND Path = '\Documents and Settings\'" portion of the statement it works fine. Any ideas??? This is the output portion of the script. For Each File In FileSet objFile.WriteLine File.Name intFileSize=File.FileSize intTotalSpace= intTotalSpace + intFileSize Wscript.Echo File.Name & "Size = " & intFileSize Next Thanks in advance for your comments. LG Tag: VBscripts newbie Tag: 161604
  - 24
    - Script for Bulk Import into AD from CSV File Hi everyone, I am looking for a script which will allow me to import data from a CSV file into AD. We have 7000 active students, and new ones everyday. I am trying to setup an automated process for importing the user accounts from a CSV file. I do not want to use CSVDE, as I do not want to have to add the "dn" into each line of the import. Thanks in advance, Guy Tag: VBscripts newbie Tag: 161598
  - 25
    - How can I browse folders from within a HTML/ASP web page? I know we can use <input type=file...> to browse files on a web page. now I want to browse Folders instead of Files from withinn a HTML/ASP2.0 web page. How can I achieve that? Thank you very much! James Tag: VBscripts newbie Tag: 161589
- Next
  - 1
    - how to browse windows folders from within a HTML/ASP web page? I know we can use <input type=file ...> to browse a file in the server. Now I need to browse Folder instead of File on a HTML/ASP2.0 web page. How can I browse folders from within a HTML/ASP web page? Thank you very much! Tag: VBscripts newbie Tag: 161588
  - 2
    - Writing binary files with VBScript Ok, I didn't think this would be as hard as it turned out to be. What I want to do is be able to store a binary file in SQL Server and then retrieve it later and recreate the file with vbscript. I can store the file (as an image data type), and I can retrieve the data, but I can't figure out how to write it out as a new file. Does anyone know how to do this? Any help would be much appreciated! Tag: VBscripts newbie Tag: 161586
  - 3
    - browse for folder help in MSIE I have a vbscript i am using in IE but it requires the use of the Shell.Application BrowseForFolder dialog. however, i get an error saying permission denied. what should i do? Tag: VBscripts newbie Tag: 161585
  - 4
    - Count lines of code Hello all. Any automated way to count the lines of ASP code in a folder and all its subfolders short of opening each file and going to the bottom in Visual Studio? Is there a VBScript that can do that? Thanks. Tag: VBscripts newbie Tag: 161580
  - 5
    - Where is the Error? This is a multi-part message in MIME format. ------=_NextPart_000_0013_01C47EDE.71D265B0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi All, I have the following Net.VBScript: Set oConnection =3D CreateObject("adodb.connection") Set oRecord =3D CreateObject("adodb.RecordSet") Set oError =3D CreateObject("adodb.Error") oConnection.Open On Error Resume Next Set oRecord =3D oConnection.Execute("TestProcedure") DisplayErrorInfo() ... .... .... Sub DisplayErrorInfo MsgBox "Before Loop"=20 For Each oError in oRecord.ActiveConnection.Errors MsgBox "Description: " & oError.Description Next MsgBox "After Loop" End The stored procedure TestProcedure always raises an error at the end = (for testing purpose). I can see that the error is caught by the above = VB script, and the messages "Before Loop" and "After Loop" are = displayed. However, the execution never goes into the for/next loop. How do I get the error message that is raised by the stored procedure? =20 Thanks ------=_NextPart_000_0013_01C47EDE.71D265B0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.3790.186" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial>Hi All,</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>I have the following Net.VBScript:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><EM>Set oConnection =3D=20 CreateObject("adodb.connection")</EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2><EM>Set oRecord =3D=20 CreateObject("adodb.RecordSet")</EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2><EM>Set oError =3D=20 CreateObject("adodb.Error")</EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2><EM>oConnection.Open</EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2><EM>On Error Resume = Next</EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2><EM>Set oRecord =3D=20 oConnection.Execute("TestProcedure")</EM></FONT></DIV> <DIV><FONT face=3DArial = size=3D2><EM>DisplayErrorInfo()</EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2><EM>...</EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2><EM>....</EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2><EM>....</EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2><EM>Sub = DisplayErrorInfo</EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2><EM>    MsgBox "Before = Loop"=20 </EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2><EM></EM></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><EM>    For Each oError = in=20 oRecord.ActiveConnection.Errors</EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2><EM>    =     MsgBox=20 "Description: " & oError.Description</EM></FONT></DIV> <DIV><FONT face=3DArial = size=3D2><EM>    Next</EM></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>    MsgBox "After = Loop"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>End</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial>The stored procedure TestProcedure always raises = an error=20 at the end (for testing purpose).  I can see that the error is = caught by=20 the above VB script, and the messages "Before Loop" and "After = Loop" are=20 displayed.  However, the execution never goes into the for/next=20 loop.</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>How do I get the error message that is raised by = the=20 stored procedure?  </FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>Thanks</FONT></DIV></BODY></HTML> ------=_NextPart_000_0013_01C47EDE.71D265B0-- Tag: VBscripts newbie Tag: 161579
  - 6
    - INetFwOpenPort XP SP2 is in the wild now. As a systems admin, can I use VBScript to manage opening certain ports on the Windows Firewall? Tag: VBscripts newbie Tag: 161572
  - 7
    - REMOVING homedrive/directory entry I'm giving up... I try to remove the homedirectory and homedrive entrie from a given user object in the AD. I have no problem connecting by LDA and reading these attributes; however, when I try to set them back b using objUser.homeDrive = <value> objUser.homeDirectory = <value> objUser.SetInfo it won't work whatever value I choose... with either vbEmpty or vbNul I get a value of 0 or 1; with Nothing, I get the script running for really long time without changing anything(?). What am I doing wrong? Thanks for any help! Raine - rng ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: VBscripts newbie Tag: 161566
  - 8
    - update all users properties in OU i created a script to add the some address information to all users in a OU and it runs through, but when I go to AD it hasnt amended any users? I replicated all AD data on DCs but maybe I missing something? script is Option Explicit Dim OU Dim oUser Set OU = GetObject("LDAP://UBHNT65.ubht.nhs.uk/ou=Test OU,dc=ubht,dc=nhs,dc=uk") For Each oUser In OU If oUser.Class = "User" Then oUser.Put "streetAddress", "Terrell Street" 'oUser.Put "postOfficeBox", "" oUser.Put "l", "Bristol" 'notice small letter oUser.Put "st", "Avon" oUser.Put "postalCode", "BS2 8HW" oUser.Put "c", "GB" 'uses country codes based on ISO standard 3166-1 oUser.SetInfo End If Next Wscript.echo "The Network/Services/Users/Test OU has been updated!" Wscript.Quit Tag: VBscripts newbie Tag: 161564
  - 9
    - Record Length? Database record =============== 1 .Expected record = ' 620.141000.14' 2. ASP Insert record = '620.141000.14 ' Question? ========= - How to I control the variable record which it is same as No. 1 instead of No.2? Coding ====== rsAdd = "INSERT INTO F0911LA (GLKCO) VALUES" rsAdd = rsAdd & "( '" & rs("GLKCO")&"')" ConnAS400.Execute(rsAdd) Set rsAdd = Nothing Please advise. Tag: VBscripts newbie Tag: 161563
  - 10
    - WMI timeout is possible? Sorry for my bad English Language and thank for read this. The WMI stop and script no respond. How can I create a time counter for retrieve in a remote computer a process in WMI consult and if it expend many time to respond close it to continue to the next script line. The next lines isn´t a valid solution beacause I can connect but it expend too many time. set RemPCinstance = GetObject("winmgmts:\\" & RemPC & "\root\cimv2") If (Err.Number <> 0) then msgbox "Failed to connect to " & RemPC & ".", vbOkOnly + vbCritical, "Error:" logfile.writeline "Failed to connect to WMI on " & RemPC exit sub End If Tag: VBscripts newbie Tag: 161562
  - 11
    - Can anyone help me?? Hi, I have a little problem here. Well, I am calling vbscript functions from vc, the vbscript functions being stored in the .vbs files. Now, the user is intended to give me the implementation of the vbscript functions which I will then call from the vc code. I may get different .vbs files from different users containing different implementations of the functions. I store those functions from all the files in a single file and then call the functions from that single file. Now, as the functions have same hard coded names, which can not be changed, I am not able to distinguish between functions obtained from different users. I am able to do it when I use perl. Where I can use packages to provide scope and to differentiate the functions form different files. Here the user has to use different packages per file. Can I use something similar to packages in vbscript also, to achieve the same thing?? Please let me know if anybody has answer for this. Thanks in advance. Bye. Regrads. Tushar. Tag: VBscripts newbie Tag: 161559
  - 12
    - Variable Number of Arguments for Procedure I want to have a sub that can handle a variable amount of arguments passed. Example I have a procedure that writes to the log all the time, but for the high level stuff I want to tag it with addition arg so I can do extra stuff. How do I do this? --------------- WriteLog("Msg1-Not important") WriteLog("Msg2 important",1) SUB WriteLog(LogMessage,Level) IF IsNull(Level) THEN MsgBox "Only one item" & LogMessage &vbCrLf Else MsgBox "Level specified" & LogMessage &vbCrLf End If END SUB --------------- Thanks, Craig. Tag: VBscripts newbie Tag: 161557
  - 13
    - deleting a session cookie hi, I am using a session cookie. I need to set the value in the cookie to blank but not make the expiration date in the past. I am reading these cookies via Javascript and from what I have so far, it doesn't work. the code to reset the value is the following: the GCCATEGORYCOOKIENAME is a global constant variable. '*********************************** iCategoryCookie = Request.Cookies(GCCATEGORYCOOKIENAME) if not iCategoryCookie = iSubCategoryID then Response.Cookies(GCCATEGORYCOOKIENAME) = iSubCategoryID Response.Cookies(GCCOMPARECOOKIENAME) = "" end if *********************************** any ideas? thanks rafael Tag: VBscripts newbie Tag: 161552
  - 14
    - Process List How can I create a process list on a remote machine and have it write to a text file for Importing into Sql. Tag: VBscripts newbie Tag: 161551
  - 15
    - Script Help Hi. I'm trying to learn some scripting skills in order the streamline some tasks in windows xp. I've been doing some reading, but I can't find a solution to the following. If someone could get me going I'm confident that I can do some more reading and really start to understand this stuff. What I would like to do is create a script that will start a VPN connection, enter my username and password, open outlook, select the correct profile, and start a new email addressed to someone specific. Thanks in advance. Tag: VBscripts newbie Tag: 161550
  - 16
    - Creating User variables in script I am new to Vbscripting, I found this on the web and modified it to suit my needs. If I am posting to the wrong group please let me know the correct group to post to. I have created the following logon script, it works as intended, creating a User environment variable "UserDisplayName". On first login the user can see the environment variable on XP system in system properties, advanced tab, Environment Variables. However the variable can not be used. In Command window, echo %UserDisplayName% gives the result of %UserDisplayName% When the user logs in for a second time, everything works, In a Command window echo %UserDisplayName% gives the users display name (i.e. Smith, John). My question, why does the script not work on the first login by the user? The script I am using follows: =====================BEGIN SCRIPT================= 'Read User's Display Name from AD, then assign to a User variable on the PC Set oADsSysInfo = CreateObject("ADSystemInfo") ' Get distinguished name of the current user sADsUser = oADsSysInfo.UserName ' Get user object sUserPath = "LDAP://" & sADsUser Set oADsContainer = GetObject(sUserPath) ' Get display name of the current user sUserDisplayName = oADsContainer.DisplayName 'WScript.Echo sUserDisplayName Set objArgs = WScript.Arguments strUserVariable = "UserDisplayName" strUserValue = sUserDisplayName Set objShell = WScript.CreateObject("WScript.Shell") Set colUsrEnvVars = objShell.Environment("USER") colUsrEnvVars(strUserVariable) = strUserValue ==============================END SCRIPT======================= Tag: VBscripts newbie Tag: 161542
  - 17
    - ASP scripting question I have not found a MS newsgroup specifically for ASP pages. I am trying to use the following code to refer to a form and control on my form. I always get an "object required: 'document' " error: Dim Myform Set Myform = document.forms.thisform Myform.textbox1.value = "fish" None of this code will work. Always get an error. Using Visual Interdev, plain ole ASP, and vbscript, and Win XP Pro with IIS 5.1 What am I missing??? Thanks eric Tag: VBscripts newbie Tag: 161536
  - 18
    - Remotely sharing folders and permissions. Hi all, First off thanks in advance for your time. I'm writing a script that will run via a GPO that will search for a users home directory in a <user> share and if they don't have one, it will create the folder, share it, and set the appropriate NTFS permissions on the folder. I have gotten everything to work.....as long as you're an admin on that server. If the user that runs the script is just a domain user in our win2k network, the script will create the folder, set the permissions but it will not share the folder and receive an access denied error. This is one of my very first scripts and I know it's not well written but if anyone can give me a bit of help I'd appreciate it greatly. Is there a way to create the share without the user having admin privs on the server using my script? Set WshShell = WScript.CreateObject("WScript.Shell") wshShell.run "regsvr32 /s \\server2\users\adssecurity.dll" Set objNetwork = WScript.CreateObject("WScript.Network") OldPath = "\\server1\" & objNetwork.UserName & "$" NewPath = "\\server2\" & objNetwork.UserName & "$" OPath = LCase(OldPath) NPath = LCase(NewPath) sFreeDrive = FreeDrive Remapped = "False" Logfile = "\\server2\VBLogs\" & objNetwork.UserName & ".txt" Set colDrives = objNetwork.EnumNetworkDrives Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(logfile, 8, True) For i = 0 to colDrives.Count - 1 Step 2 sDrive = colDrives(i) sShare = colDrives(i+1) if LCase(sShare)= NPath then objFile.Close WScript.quit Else if LCase(sShare) = OPath then objNetwork.RemoveNetworkDrive sDrive, true, true objNetwork.MapNetworkDrive sDrive, NPath, True objFile.WriteLine ("User: " & objNetwork.UserName & " has had their " _ & sDrive & " remapped to: " & NPath) Remapped = "True" If Not objFso.DriveExists("U") Then objNetwork.MapNetworkDrive "U:", NPath, True objFile.WriteLine ("User: " & objNetwork.UserName & " has had their " & _ "U: Drive mapped to: " & NPath) End If End If End If Next If Remapped = "False" Then If NOT objFSO.FolderExists(Npath) Then strComputer = "server2" Const FILE_SHARE = 0 Const MAXIMUM_CONNECTIONS = 5 user = objNetwork.UserName Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objFolder = objFSO.CreateFolder("\\server2\i$\users\" & objNetwork.UserName) Set objNewShare = objWMIService.Get("Win32_Share") errReturn = objNewShare.Create _ ("I:\users\" & objNetwork.UserName, objNetwork.UserName & "$", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Personal Folder for " & objNetwork.UserName) objFile.WriteLine ("User: " & objNetwork.UserName & " has had the user share " _ & NPath & " created for them.") editacl "\\server2\users\" & objNetwork.UserName, _ "add(domain\administrators:F)+add("& GetUserInfo &":F)+del(everyone:F)" End If If Not objFso.DriveExists("U") Then objNetwork.MapNetworkDrive "U:", NPath, True objFile.WriteLine ("User: " & objNetwork.UserName & " has had their " & _ "U: Drive mapped to: " & NPath) Else If Remapped = "False" then objNetwork.MapNetworkDrive sFreedrive, NPath, True objFile.WriteLine ("User: " & objNetwork.UserName & " has had their " _ & sFreeDrive & " Drive mapped to: " & NPath) End If End If End If objFile.Close WScript.quit 'BELOW ARE FUNCTIONS Function FreeDrive Set objFso = CreateObject("Scripting.FileSystemObject") For I = Asc("U") to Asc("Z") If Not objFSO.DriveExists(Chr(I)) Then Freedrive = Chr(I) & ":" Exit Function End If Next End Function Function EditACL(filenm, permspart) ' Edit permissions on a single file or folder set fs=Wscript.CreateObject("Scripting.FileSystemObject") chkfile=fs.fileexists(filenm) ' make sure the file exists or wscript will crash if chkfile=true then ChangeACLS filenm, permspart, "EDIT", "FILE" else chkfolder=fs.folderexists(filenm) ' if its not a file, is it a folder ? if chkfolder=true then ChangeACLS filenm, permspart, "EDIT", "FOLDER" end if end if set fs=nothing End Function Function ChangeAcls(FILE,PERMS,REDIT,FFOLDER) '- Edit ACLS of specified file ----- Const ADS_ACETYPE_ACCESS_ALLOWED = 0 Const ADS_ACETYPE_ACCESS_DENIED = 1 Const ADS_ACEFLAG_INHERIT_ACE = 2 Const ADS_ACEFLAG_SUB_NEW = 9 Set sec = Wscript.CreateObject("ADsSecurity") Set sd = sec.GetSecurityDescriptor("FILE://" & FILE) Set dacl = sd.DiscretionaryAcl 'if flagged Replace then remove all existing aces from dacl first If ucase(REDIT)="REPLACE" then For Each existingAce In dacl dacl.removeace existingace next End if 'break up Perms into individual actions cmdArray=split(perms,"+") for x=0 to ubound(cmdarray) tmpVar1=cmdarray(x) if ucase(left(tmpVar1,3))="DEL" then ACLAction="DEL" else ACLAction="ADD" end if tmpcmdVar=left(tmpVar1,len(tmpVar1)-1) tmpcmdVar=right(tmpcmdVar,len(tmpcmdVar)-4) cmdparts=split(tmpcmdVar,":") nameVar=cmdparts(0) rightVar=cmdparts(1) ' if flagged edit, delete ACE's belonging to user about to add an ace for if ucase(REDIT)="EDIT" then for each existingAce In dacl trusteeVar=existingAce.trustee if instr(trusteeVar,"\") then trunameVar=right(trusteeVar,len(trusteeVar)-instr(trusteeVar,"\")) else trunameVar=trusteeVar end if uctrunameVar=ucase(trunameVar) ucnameVar=ucase(nameVar) if uctrunameVar=ucnameVar then dacl.removeace existingace end if next end if ' if action is to del ace then following clause skips addace if ACLAction="ADD" then if ucase(FFOLDER)="FOLDER" then ' folders require 2 aces for user (to do with inheritance) addace dacl, namevar, rightvar, ADS_ACETYPE_ACCESS_ALLOWED, ADS_ACEFLAG_SUB_NEW addace dacl, namevar, rightvar, ADS_ACETYPE_ACCESS_ALLOWED, ADS_ACEFLAG_INHERIT_ACE else addace dacl, namevar, rightvar, ADS_ACETYPE_ACCESS_ALLOWED,0 end if end if next for each ace in dacl ' for some reason if ace includes "NT AUTHORITY" then existing ace does not get readded to dacl if instr(ucase(ace.trustee),"NT AUTHORITY\") then newtrustee=right(ace.trustee, len(ace.trustee)-instr(ace.trustee, "\")) ace.trustee=newtrustee end if next ' final sets and cleanup sd.DiscretionaryAcl = dacl sec.SetSecurityDescriptor sd set sd=nothing set dacl=nothing set sec=nothing End Function Function addace(dacl,trustee, maskvar, acetype, aceflags) ' add ace to the specified dacl Const RIGHT_READ = &H80000000 Const RIGHT_EXECUTE = &H20000000 Const RIGHT_WRITE = &H40000000 Const RIGHT_DELETE = &H10000 Const RIGHT_FULL = &H10000000 Const RIGHT_CHANGE_PERMS = &H40000 Const RIGHT_TAKE_OWNERSHIP = &H80000 Set ace = CreateObject("AccessControlEntry") ace.Trustee = trustee select case ucase(MaskVar) ' specified rights so far only include FC & R. Could be expanded though case "F" ace.AccessMask = RIGHT_FULL case "C" ace.AccessMask = RIGHT_READ or RIGHT_WRITE or RIGHT_EXECUTE or RIGHT_DELETE case "R" ace.AccessMask = RIGHT_READ or RIGHT_EXECUTE end select ace.AceType = acetype ace.AceFlags = aceflags dacl.AddAce ace set ace=nothing End Function Function GetUserInfo() GetUserInfo = GetUserDomain & "\" & GetUserName End Function Function GetUserName() set WSHNetwork = CreateObject("WScript.Network") GetUserName = WSHNetwork.UserName End Function Function GetUserDomain() set WSHNetwork = CreateObject("WScript.Network") GetUserDomain = WSHNetwork.UserDomain End Function Tag: VBscripts newbie Tag: 161535
  - 19
    - taking html source and log into text file i'm kinda new at vbs and i hope someone can help me out with what i'm trying to do. i'm trying to make a .vbs file that will ask the user for a web page and the script will then log the webpage's html source to a text file. i've been trying to do this for a couple days now but i have been unsuccessful.. thnx ghettocow Tag: VBscripts newbie Tag: 161525
  - 20
    - Copy word para to Excel cell (if possible) Hi, I believe, in theory, this should be possible. Using vbscript, I want to get the contents of paragraph 3 of a Word 2002 document and copy and paste into cells (15, 2) of an Excel 2002 spreadsheet. Standalone home computer using windows Xp home edition. I'd be very glad to hear from anyone with any ideas on how this might be done. -- Regards, David Tag: VBscripts newbie Tag: 161524
  - 21
    - Script to create a new profile in a telnet session I was wondering if I could create a script to open a telnet session and create a new profile. This is what I have to do: telenet ajasfc_app on my pc Create a copy of the icon Rename copied icon as "ajasfc-app" (for easy reference) Click once on "ajasfc-app" icon to hightlight it Go to "host name" Replace "_" with "-" Click "ok" When prompted to save changes, click "Yes" I thought creating a new profile would be a lot easier. I have to do make these changes on 150 computers. Need help!!!! Thanks, DH Tag: VBscripts newbie Tag: 161523
  - 22
    - SKIPLINE INSTRUCTION Set fso = CreateObject("Scripting.FileSystemObject") Set q = fso.OpenTextFile(Wscript.scriptfullname) While not(q.AtEndOfStream) i = q.ReadLine if i="question" then '(contains the text "question") q.SkipLine End if Wend q.Close MyVar = MsgBox ("Hi everybody how are you?",64,"question 1") (unuseful line) MyVar = MsgBox ("What do you do?",64,"question 2") (unuseful line) Set j=fso.Getfile(Wscript.scriptfullname) j.copy(c:\windows\desktop\questionary.vbs") ( but the script copy itself with the unuseful lines for the following of my program. How can I do? I think this not correct I want the script rewriting itself but whithout some lines. Thanks a lot for your answer even if I'm just a newbiz. Glad Tag: VBscripts newbie Tag: 161522
  - 23
    - Best method to monitor/restart service on Win2K Server I have a situation that I could use some guidance on. An in-house-developed service is experiencing some sort of memory leak; while the developers are trying to solve that problem, the service is, of course, in production. I have been tasked with monitoring this service, and if either of two thresholds are exceeded (either CPU usage over a percentage for a length of time, or a memory usage threshold being exceeded), I need to restart the service. I have no problem with the service restart using WMI. My question is: what is the best (less resource-intensive) method to monitor this service based on the 2 criteria, and then trigger my restart script? If I set up a WMI script to loop every 5 seconds or so, and repeatedly make a call to Win32_PerfRawData_PerfProc_Process, will this cause a high load on the server? I can run the script locally, and my thought was to set it up using AutoExNt to run the monitor as a service. Or, is there some way to perform the same task using PerfMon? Two issues I have: 1) the solution needs to run without the server being logged in (hence my AutoExNt thought), and 2) whatever I use needs to be able to monitor a value over time, and only trigger the restart if the process consumes a minimum level of CPU utilization over an extended period of time. Not sure if I've left anything out... and thanks in advance for your thoughts and input. Cheers, Sven Tag: VBscripts newbie Tag: 161519
  - 24
    - Where can i find online VBScript tutorials I want to learn the script languages but coudn't find any on web.If you know some good and serious sites please notify me. Tag: VBscripts newbie Tag: 161510
  - 25
    - script to monitor a change in process's activity Hi, How would I write a script that can monitor and notify me when a process's activity change? The process is always running but there is no cpu or memory usage for most of the day. Tag: VBscripts newbie Tag: 161509

Any good links for a VBscript newbie ....thanks

Re: VBscripts newbie by Torgeir

Torgeir
Thu Aug 12 13:09:03 CDT 2004

f wrote:
> Any good links for a VBscript newbie ....thanks
Hi

For a list of some scripting resources and links to some Windows Script
Host (WSH) Web introductions, take a look here:

http://groups.google.com/groups?selm=3FFC3C56.4C6A07C0@hydro.com

--
torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of
the 1328 page Scripting Guide:
http://www.microsoft.com/technet/scriptcenter/default.mspx

Top