Scripting firewall rule change via SNMP

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 submit form from VBScript & analyze with ASP Request I am used to making ASP pages with buttons that submit the form back to the asp page then analyzing the request object to determine which buttons was pressed, such as: if Request("btnSave") = "Save" then .... Now I am working in VBSCRIPT to do some client side validation: <SCRIPT LANGUAGE="VBScript">  </SCRIPT> But when I do things this way, in my Server Side ASP code the Request("btnSave") is null. So how can I submit the form from my client side VBScript code and have it set the value of Request("btnSave") so I can tell in my Server Side code that the user click on save? Or is there a better way? I should note that I have a few other buttons to, like Cancel. If the user clicks cancel then in my local VBScript I ask for confirmation, if they click yes then I want to submit the page with the Request("btnDelete") set so my server side ASP will know the user wants to delete. *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Scripting firewall rule change via SNMP Tag: 154108
  - 2
    - script question I would like to create a script to attach to a network share, that will key in my username and password for me. My current script is actually a batch file: NET USE Y: \\192.168.0.4\APPS /PERSISTENT:NO I am then prompted for a user name and password, which I enter manually. Any way to put that into the batch file, or even perform the same function with a VB script. I'm somewhat new to scripting, so any help is greatly appreciated. Thanks in advance. Andrew Tag: Scripting firewall rule change via SNMP Tag: 154107
  - 3
    - Scriptable reference to particular application instance? After having no luck using GetObject (I need to differentiate between two or more already running instances of an application) I'm a little out of my depth with this code (below). It does work - in that it returns the right count - but is there any way to use the "App" variable to get a scriptable reference to the particular application instance? This is an app that is COM scriptable. I can't just open a new instance and use that: I need to add data to one of the running instances. Appreciate any assistance. Apologies for posting javascript to a vbscript group! Regards Tim. // return the number of instances function InstanceCount(){ var iCount=0; var Apps = new Enumerator(GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesO f("Win32_process")); for (; !Apps.atEnd(); Apps.moveNext()) { var App = Apps.item(); if(App.Name.toUpperCase()=="MYAPPNAME.EXE") iCount++; } return iCount; } var s= new ActiveXObject("WScript.Shell"); s.Popup(InstanceCount()); Tag: Scripting firewall rule change via SNMP Tag: 154106
  - 4
    - hyperlink effect text How would I go about creating a hyperlink effect on some text in VB? Thanks in advance Tag: Scripting firewall rule change via SNMP Tag: 154100
  - 5
    - Help with retreiving hardware information Hello, I'm trying to get this script working. Basically, it gets a list of computers from AD, then loops through them to gather hardware information (which it writes to a text file). It runs fine for the first computer, echoes its name then runs the WMI component. The problem is that after if echoes the second computer name it gets to line 43 and dies with an error. I'm really new to VB scripting, so I was hoping someone here could help be figure out what's wrong. Below is the script in question. Notice that the AD computers are in an OU and not the default computer container. -- Begin Paste '****** This part gets all objects at the given AD location (OU, Container, etc) Set objDictionary = CreateObject("Scripting.Dictionary") i = 0 Set objOU = GetObject("LDAP://OU=DOMAINNAMEComputers, DC=DOMAINNAME, DC=local") objOU.Filter = Array("Computer") For Each objComputer in objOU objDictionary.Add i,objComputer.CN i = i + 1 Next For Each objItem in objDictionary strComputer = objDictionary.Item(objItem) Wscript.echo strComputer '***** Open Text File for Output, named %Computername%.tsv in c:\scripts Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.CreateTextFile("c:\scripts\" & strComputer & ".tsv") ' Enumerates Software Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colSoftware = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Product") objTextFile.WriteLine "Caption" & vbtab & _ "Description" & vbtab & "Identifying Number" & vbtab & _ "Install Date" & vbtab & "Install Location" & vbtab & _ "Install State" & vbtab & "Name" & vbtab & _ "Package Cache" & vbtab & "SKU Number" & vbtab & "Vendor" & vbtab _ & "Version" For Each objSoftware in colSoftware objTextFile.WriteLine objSoftware.Caption & vbtab & _ objSoftware.Description & vbtab & _ objSoftware.IdentifyingNumber & vbtab & _ objSoftware.InstallDate & vbtab & _ objSoftware.InstallLocation & vbtab & _ objSoftware.InstallState & vbtab & _ objSoftware.Name & vbtab & _ objSoftware.PackageCache & vbtab & _ objSoftware.SKUNumber & vbtab & _ objSoftware.Vendor & vbtab & _ objSoftware.Version Next Next objTextFile.Close ------ End Paste Any help is most appreciated! Thanks! Tag: Scripting firewall rule change via SNMP Tag: 154095
  - 6
    - AD group logon script question I'm new to scripting for an AD enviroment, so please bear with me if I'm off in my logic. What I currently have in the AD architecture is a "Test" Parent OU that contains a number of sub OU's that represent sites. These sites then contain sub OU's that represent groups, resources, etc and under the groups OU's are several OU's that represent various departments. For example purposes, the top-down heirarchy would look like the following: Test (OU) Site 1 (OU) Groups (OU) CUSTSERV (OU) My original idea was to create several different small scripts and use the GPM to assign them to various groups. The user would have a login script that would assign him/her to a primary group, for example "TestUser" will have the primary group set to "CUSTSERV": ' USER LOGIN SCRIPT Const ADS_PROPERTY_APPEND = 3 Set objUser = GetObject _ ("LDAP://cn=TestUser,ou=Site 1,dc=mydomain,dc=com") Set objOU1 = GetObject("LDAP://ou=Test,dc=mydomain,dc=com") Set objOU2 = objOU1.GetObject("organizationalUnit", "ou=Site 1") Set objOU3 = objOU2.GetObject("organizationalUnit", "ou=Groups") Set objGroup = objOU3.GetObject("organizationalUnit", "ou=CUSTSERV") objGroup.GetInfoEx Array("primaryGroupToken"), 0 intPrimaryGroupToken = objGroup.Get("primaryGroupToken") objGroup.PutEx ADS_PROPERTY_APPEND, _ "member", Array("cn=TestUser,ou=" & objGroup) objGroup.SetInfo objUser.Put "primaryGroupID", intPrimaryGroupToken objUser.SetInfo Then because they are a memeber of the group "Customer Service" which is contained in the OU CUSTSERV, the logon script assigned to that OU via GPM would process their mapped drive to G: ' GROUP LOGIN SCRIPT Dim WshNetwork On Error Resume Next Set WshNetwork = WScript.CreateObject("WScript.Network") WshNetwork.RemoveNetworkDrive "G:",0,true WshNetwork.MapNetworkDrive "G:", "\\root\CUSTSERV" The issue I am running into is that I have some users that belong to multiple groups, and what I want to do is add something to the above script that verifies the user's primary group, and if it's not, than the drive is mapped to the next open drive letter in sequence. i.e. If J: is mapped then map K: to \\root\CUSTSERV If K: is mapped then map L: to \\root\CUSTSERV if L: is mapped then map M: to \\root\CUSTSERV and so on. My guess is that I would need to define the following: intPrimaryGroupID = objUser.Get("primaryGroupID") and then test against the value of "intPrimaryGroupID" to determine if G: gets mapped or some other drive letter. I would appreciate any suggerstions as to how I could re-write the above script. Thanks Tag: Scripting firewall rule change via SNMP Tag: 154090
  - 7
    - Search results - display 15 results per page Hi, I have to display 15 results per from a query result with a recorset in vbscript. I just don't know where to start and when I google for exemples I can't seem to get anything concrete. Thanks ! Nadia ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Scripting firewall rule change via SNMP Tag: 154085
  - 8
    - Multidimensional Array (I think) Hello, I have a text file that has all users listed like: LoginName,UserName I would like to create a multidimensional array and then use the value of each of the first element, then output to a text file the value of each of the two elements along with some other info. My questions: _Is a multidimensional array the way to go? Can it be created dynamically? How? _How do I read just the first element? Any suggestion will be greatfully appreciated. TIA, Bill Burke bill@2burkes.com Tag: Scripting firewall rule change via SNMP Tag: 154078
  - 9
    - retrieving multiple values from a combobox in vbs I have a script which creates an instance of IE, with a form. I have a bunch of controls in there, including some comboboxes with the "multiple" option, so I want the user to be able to select more than one choice from those particular comboboxes. The problem is, when I try to retrieve the values using a GetValue() subroutine, where GetValue = TheForm.cboGroups.Value (this part is embedded in the html doc), it returns only the first selection. I have searched endlessly, and can't find any mention of how to do this in vbs Any suggestions would be wonderful! Thanks! Tag: Scripting firewall rule change via SNMP Tag: 154076
  - 10
    - HTML form to Access Hi, On our company web we want to put HTML form. The client fills the form and submits it to the server. The filled data are passed to MS-Access DB. To create HTML form is easy, to check data validity as well. I need to know what is standard/effective way of processing the data from the passed form. Is there some object library related to it? Does anybody has some examples of it or links to info sources? thank Martin Tag: Scripting firewall rule change via SNMP Tag: 154075
  - 11
    - Windows 2000 or XP ? Hi, I need a vbs to know if the OS is Windows 2000 or XP. Denpending on that I have to run regfiles. Thank you Didier Tag: Scripting firewall rule change via SNMP Tag: 154069
  - 12
    - Server-side modem connection hi all We've made an ActiveX component for making a data call with a modem attached to the PC. This following code works perfectly in a client-side VBScript in the machine that has the required modem (defined in an .ini file) installed and working <HTML><HEAD><TITLE>Modem testpage</TITLE><SCRIPT LANGUAGE="VBScript" Sub Button1_OnClic Dim MLSe Set MLSes = CreateObject("Modem.Modem" MLSes.Begi MLses.Connec MLSes.SendCommand("strCommand" MLSes.Disconnec MLSes.En Set MLSes = Nothin End Su </SCRIPT></HEAD><BODY><H3>Modem testpage</H3><HR><FORM><INPUT NAME="BUTTON1" TYPE="BUTTON" VALUE="Send Command"></FORM></BODY></HTML As said, this works in the client-side and the data call goes through. However, by changing this to a server-side code, it fails <%@LANGUAGE="VBSCRIPT"%><HTML><HEAD><TITLE>Modem testpage, server-side</TITLE>< Dim MLSe Set MLSes = CreateObject("Modem.Modem" MLSes.Begi MLses.Connec MLSes.SendCommand("strCommand" MLSes.Disconnec MLSes.En Set MLSes = Nothin %></HEAD><BODY></BODY></HTML This does not work anymore, it gives an error message: error '80004005' Unspecified error /Modemtest.asp, line 10 The line 10 is the MLSes.Begin command, which is not working Could this difference between client-side and server-side code be due to some security/permission issues? I haven't found anything regarding it.... My basic idea is that I have a Web browser based GUI, in which the client can press a button, which establishes a modem connection FROM THE SERVER to a REMOTE DEVICE for online data collection Thanks in advance for any advice Yours Mike Tag: Scripting firewall rule change via SNMP Tag: 154066
  - 13
    - Problem with reference assignment / ByRef Sub / "=" operator Hello! It seems that it is not possible to assign a reference from one variable to another with the "=" operator. The "=" operator seems to always assign a value to the left variable. How can I assign the reference stored in the right variable to an other (left) variable? Let's assume that "b" is reference to an other variable (e.g. when using ByRef arguments). a = b Will not copy the reference stored in b to a, it will copy the _value_/content of the variable that is referenced by b to a. How can is copy references instead of values? I wrote a small test suite for this one: Sub TestSet( ByRef a ) Dim ref ref = a 'here a copy of the array a will be assigned to ref instead of assigning a reference ref(0) = 10 'this will change the "copy" not the initial array 'a(0) = 10 'this will change the referenced array End Sub Dim ary ary = Array(5) MsgBox ary(0) 'Will return 5 TestSet ary MsgBox ary(0) 'Should return 10. But returns 5 You might ask, why I don't just use a(0) = 10 to assign the value. In my "real" source code I want so save a reference to an array as a member/property of a Class. The class shall modify the referenced array, but it can't, since it only modifies a copy and the initial array is untouched. I may post the source of this class here, if anyone is interested in it or if it may help. Regards, -Thomas Tag: Scripting firewall rule change via SNMP Tag: 154065
  - 14
    - Can one use Option Explicit in COM? I've tried to use Option Explicit but don't know where to put this line of code. I've check through the docs on COM and could not find any reference that one can use option explicit in COM. any ideas? cheers jk Tag: Scripting firewall rule change via SNMP Tag: 154057
  - 15
    - On Enter Can someone tell me what is the Event that is fired when the user presses enter on a Page in order for me to execute sme code For example, instead of clicking on a Submit Button what VBScript would I need if the user just presses the ENTER key Many thank Mark Tag: Scripting firewall rule change via SNMP Tag: 154056
  - 16
    - Stopping VB script from keeping running from scheduler I have a VB script which is supposed to run every hour. Recently the script is stucked - the scheduled task show that it's running, and i can't stop it. by "end Task" option in the scheduler. The server where the script is running is a production one and i can't restart it. The script isn't listed in the processes list. I run the script directly (puttakanon.vbs) and not through wscript.exe. Any ideas hpw to stop it without restarting the server? Thanks, Barak Tag: Scripting firewall rule change via SNMP Tag: 154051
  - 17
    - Problem with VBScript and ActiveX Hello. I have a Gateway computer with an Intel 1400 MHz Pentium 4 processor. My operating system is the Microsoft Windows Millennium Edition. I bought my computer in April of 2001. Included with the computer was a DVD-ROM called Explore America. This DVD-ROM was developed by Rand McNally. When I first got this DVD-ROM, it ran well. However, recently, there has been a problem. There is a file on the DVD-ROM called setup.vbs This file is a VBScript file. This file is supposed to initiate the main program. However, the file is not executed. The following is the file: BEGINNING OF FILE << regKey = "HKLM\SOFTWARE\Rand McNally\Explore America\installed" Dim mainexe '* path to main.exe Dim setupexe '* path to setup.exe Dim curfilepath '* path to the current file Dim lastlash '* the last "\" in the file path Dim rootdir '* file path to app root '* Get a path to the current file curfilepath = WScript.ScriptFullName lastslash = InStrRev(curfilepath, "\") '* get the path to setup.exe rootdir = Left(curfilepath, lastslash -1) setupexe = rootdir & "\setup.exe" setupexe = Chr(34) & setupexe & Chr(34) '* get the path to the main exe lastslash = InStrRev(rootdir, "\") mainexe = Left(rootdir, lastslash -1) & "\exploreamerica.exe" mainexe = Chr(34) & mainexe & Chr(34) Dim oShell set oShell = CreateObject( "WScript.Shell" ) '* if the required files are installed run the main exe, else the installer If Installed() Then oShell.Run(mainexe) Else oShell.Run(setupexe) End If '* Checks to see if the installation code is written to the registry Function Installed() Dim WshShell Dim keyValue Set WshShell = CreateObject("Wscript.Shell") On Error Resume Next keyValue = WshShell.RegRead (regKey) If Err.Number > 0 Then Installed = False Exit Function ElseIF Len(keyValue) < 2 Then Installed = False Exit Function End If On Error GoTo 0 Installed = True End Function >> END OF FILE When I insert the DVD-ROM, the file stops executing at the 19th line. This is the line: set oShell = CreateObject( "WScript.Shell" ) The following is the error message: ActiveX component can't create object: 'WScript.Shell' The error code is the following: 800A01AD I went into the Control Panel, Internet Properties, Security, Custom Level. I relaxed the security that pertained to ActiveX components. However, that did no good. The security settings in Internet Properties only affect ActiveX components that come from the Internet. The ActiveX components in my situation come from the DVD-ROM. I should mention that, between the last time that this DVD-ROM ran successfully and now, I removed AOL 6.0 and installed AOL 8.0 Also, I have downloaded some updated Flash player and/or Shockwave player. So, what do I do? Regards, Alex K. Tag: Scripting firewall rule change via SNMP Tag: 154049
  - 18
    - Run command on remote computer Hi All, Is there a way to run a command on a remote computer through vbscript? The command would be something like "\\Myserver\Share\something.exe" Thanks Brett ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Scripting firewall rule change via SNMP Tag: 154048
  - 19
    - adersoft vbsedit and debug mode. I purchased adersoft VBsedit and it just rolls through the script passing my break point when I go and try to debug. Anyone else using this product and know how I can get it to go step by step. ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- Tag: Scripting firewall rule change via SNMP Tag: 154041
  - 20
    - Questions about GetRef() and ASP, etc. I'm using ASP and VBScript and need the following functions (or their functionality): IsSub() '-- Tells me if a sub exists in global namespace IsFunction() '-- Tells me if a function exists in global namespace IsMethod() '-- Tells me if a sub or function exists for an object IsProperty() '-- Tells me if a property exists for an object ParameterCount() '-- Tells me how many parameters a sub or function has defined Parameters() '-- Returns list of parameter names for given sub or function IsFunction() '-- Tells me if a function exists in global namespace CallByName() '-- Lets me execute a sub or function by name with optional parameters CallStack() '-- Returns array objects where the objects have Source File and Line Number of calling programs I thought I found some of this functionality with GetRef(), but found it to be one screwed up function! Assume the following ASP file (it is documented for what happens. After the file I'll explain in english): <% '--------------------------------------------------------------------------- --------- 'The following code outputs the following: 'In FooBar '0 'Object '9 'Object 'HowDy 'In FooBar#2 Dim subref Set subref= GetRef( "FooBar" ) Response.Write VarType(subref)& "<br>" '-- Executes FooBar writing "In FooBar", then writes "0" '-- vbEmpty is 0 Response.Write TypeName(subref)& "<br>" '-- Writes "Object" Set subref= GetRef( "FooBar2" ) Response.Write VarType(subref)& "<br>" '-- Writes "9" -- vbObject is 9 Response.Write TypeName(subref)& "<br>" '-- Writes "Object" subref("Howdy") '-- Executes FooBar2, writes "Howdy" then "In FooBar#2" Sub FooBar() Response.Write "In FooBar<br>" End Sub Sub FooBar2(x) Response.Write x & "<br>" Response.Write "In FooBar#2<br>" End Sub '--------------------------------------------------------------------------- --------- %> Basically, if you assign subref= GetRef("NoParamSub") to where NoParamSub is a Sub with no parameters, then accessing it by passing it to VarType() executes the sub, and the return value of the sub returns is interpretted as zero, which is why VarType(subref) returns 0. If you assign subref= GetRef("HasParamsSub") to where HasParamsSub is a Sub with one or more parameters, then passing it is passed to VarType() as an object and VarType(subref) returns 9 (9 is the value of vbObject). Passing subref for both NoParamSub and HasParamsSub to TypeName() returns "Object", which is what I'll have to use. I'd like to see VarType() fixed to return 9 for VarType(GetRef("NoParamSub")), but I won't hold my breath. Anyone know how to get some of the features I need while in ASP? Are any in VBScript and I just don't know how? Also, what does the object returned by GetRef look like? Does it have properties or methods? TIA. -Mike P.S. If anyone can forward this to Eric Lippert, it would be greatly appreciated. Tag: Scripting firewall rule change via SNMP Tag: 154040
  - 21
    - printing thru vbscript how come when i print programicly my printer says "data received" and it won't print until i press the GO button on the printer? my printer is a HP laser jet 5 Set objFS = server.CreateObject("Scripting.FileSystemObject") Set objPrinter = objFS.CreateTextFile("\\printserver\printername", True) objPrinter.Write("testing printing") -- 5khzgjf9e001@sneakemail.com Tag: Scripting firewall rule change via SNMP Tag: 154034
  - 22
    - retreiving share Permissions I need to get the share permissions from a share named "install$" I need to know who has access, and the info needs to be put into a text file. Can anyone help? ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Scripting firewall rule change via SNMP Tag: 154032
  - 23
    - Is it possible to disable or hide form objects when a user clicks on a radio button I am making a data entry form for a webpage app and would like to know if the Client Side VBSCript can do this. In the form there is a radio button. If the user clicks on one of the radio button values, I want to show/hide or enable/disable other text box and combo box objects in the form. Can VBScript do this? *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Scripting firewall rule change via SNMP Tag: 154027
  - 24
    - Registry question I'm using this to delete some values... Const HKLM = &H80000002 Const KeyPath = "Software\PathToKey" Set oReg = GetObject ("WinMgmts:{impersonationLevel=impersonate}!//./root/default:StdRegProv") oReg.DeleteValue HKLM, KeyPath, "test" It's working great if the key exists, but if the key does not exist it's not producing any error message. Is that normal behavior? I've even used this on non-existent keys and haven't gotten any error message... oReg.GetStringValue HKLM, KeyPath, "test" Is that normal? My script just continues to the end as if I had "On Error Resume Next" set globally. Seems odd to me, or I am I just being paranoid? Thanks, Tom Tag: Scripting firewall rule change via SNMP Tag: 154024
  - 25
    - update textbox from parent window Hi, I have a HTML page which contains an iframe. In the iframe is a textbox that I would like to change the value of from the parent window. In script I have tried...  window.iframeName.document.formName.txtboxName.value = "new words" but this doesn't work. I can't seem to reference the form but I know I can get to the document because the following code works  window.iframeName.document.bgcolor = "red" Any suggestions? Thanks, JP Tag: Scripting firewall rule change via SNMP Tag: 154014
- Next
  - 1
    - check for presence of a registry key on remote computers How can I check for the presence of a registry entry on remote computers in my domain? Any code example? Thank you! theo Tag: Scripting firewall rule change via SNMP Tag: 154013
  - 2
    - How to get ftp.exe output in vbscript - ANSWER Hi, This has baffled me and several others that have written on these groups. MANY, and more, thanks to Andy Rice for the clue to this. For whatever reason the ftp client is "Verbose mode on" by default when started from the command line but is in "Verbose mode off" by default when started with Shell.exec. Some other threads to which this is relevant: difference between Shell.run and Shell.exec Getting ftp.exe output in vbscript Demonstration:- S:\TIT\ftp>type TITparameters.txt user pass verbose cd /S/TIT binary put c:\xxxx\test\tb1.bat quit S:\TIT\ftp> S:\TIT\ftp>ftp -s:TITparameters.txt 172.20.1.199 Connected to 172.20.1.199. 220-XXX FTP service WarFTPd 1.70.b01.04 (Aug 18 1998) Ready (C)opyright 1996 - 1998 by Jarle (jgaa) Aase - all rights reserved. 220 Please enter your user name. User (172.20.1.199:(none)): 331 User name okay, Need password. 230 User logged in. ftp> ftp> verbose <--- Toggle verbose Verbose mode Off . ftp> cd /S/TIT ftp> binary ftp> put c:\Douglas\test\tb1.bat Access denied. <--- OK I know it's already there ftp> quit S:\TIT\ftp> S:\TIT\ftp>cscript do-ftp5.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. User (172.20.1.199:(none)): Verbose mode On . <--- OUTPUT <--- One last question <--- Why is the OUTPUT verbose <--- displayed BEFORE input cd /S/TIT 250 "/S/TIT" is current directory. binary 200 Type set to I. put c:\xxx\test\tb1.bat 200 PORT command successful. 550 Access denied. quit 221 Goodbye. Control connection closed. S:\TIT\ftp> '############# File do-ftp5.vbs Option Explicit Main Sub Main Run3 "ftp -s:TITparameters.txt 172.20.1.199" End Sub Function Run3 (ByVal cmd) Dim objShell: Set objShell = CreateObject("WScript.Shell") Dim objWshScriptExec: Set objWshScriptExec = objShell.Exec(cmd) Dim objStdOut: Set objStdOut = objWshScriptExec.StdOut Dim strLine While Not objStdOut.AtEndOfStream strLine = objStdOut.ReadLine WScript.StdOut.WriteLine strline Wend End Function '############# END file do-ftp5.vbs Tag: Scripting firewall rule change via SNMP Tag: 154005
  - 3
    - Is this the new fomat for Scripting.VBScript? My old link was broken and I found this newsgroup, is it the same ? Tag: Scripting firewall rule change via SNMP Tag: 154004
  - 4
    - Local users Hello, I need to make a lot of *local* users, set their password and set the password flag to NOT require that the password be changed. Anybody have one of these already cooked? All suggestions will be greatly appreciated. TIA, Bill Burke bill@2burkes.com Tag: Scripting firewall rule change via SNMP Tag: 154002
  - 5
    - scrolling text I have a page, all items are hidden. The idea was to let the onformload event trigger the page transformation. Ive written teh following code that should case 1 letter to scroll across the screen till it hits the leftedge of its area then another character follows across and so and so on. ive tested teh code in vb6 and it works great. yet on teh page all i get is the company name appearing. any ideas? Option Explicit dim Outpos dim InPos dim InString dim InLen dim wrkString dim LastPos sub Load_Main_Header_Line inlen = 0 lastpos = 0 outpos = 0 Instring = "Company Name Here" inlen = len(trim(instring)) wrkstring=space(inlen) mainheader.style.visibility="visible" mainheader.align="left" mainheader.style.fontFamily ="impact" mainheader.style.fontSize ="36pt" mainheader.style.fontWeight ="bold" lastpos = 1 outpos = inlen inpos = 1 for inpos = 1 to inlen step 1 Get_A_Character next mainheader.innerText = trim(instring) mainheader.align="center" end sub sub Get_A_Character dim onechar onechar = mid(instring, inpos, 1) if onechar <> space(1) then outpos = inlen for outpos = inlen to lastpos step -1 Slide_It_Left next End if lastpos = lastpos + 1 end sub Sub Slide_It_Left dim onechar dim outString dim tmpstring dim oldpos outstring = space(inlen) onechar = mid(instring, inpos, 1) tmpstring = wrkstring '<-- space out last position oldpos = outpos + 1 if outpos > 0 then if oldpos <= inlen then wrkstring = left(tmpstring,outpos) _ & onechar _ & space(inlen - (oldpos - 1)) else wrkstring = left(tmpstring, (outpos - 1)) _ & onechar _ & space(inlen - (outpos - 1)) end if mainheader.innerText = wrkstring settimeout "WaitNull", 99999999 end if end sub sub WaitNull end sub I would really appreciate any ideas on this its driving me nuts. sincerely Woody any sugestion or comment made by me should be examined first for validity and appropriateness before assuming i have any idea at all what the heck i am talking about. I am not responsible for anything you may see with my name attached to it, i think. *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Scripting firewall rule change via SNMP Tag: 154001
  - 6
    - Double Underline in VBScript or HTML Hi, I need to double underline something. It's an accounting front end web app. how would the style tag be worded. thanks rafael Tag: Scripting firewall rule change via SNMP Tag: 153998
  - 7
    - I want to insert a text file into an email as opposed making it an attachment I am the network security admin for my company. I am automating the processing of my firewall syslog files to have it email the offenders abuse and security email addresses. My issue is that many abuse and security email addresses delete incoming attachments so I need to insert the syslog data as opposed to mailing it as an attachment. For the same reasons that the above addresses delete attachmants they also do not accept html or rtf emails so I can not use CreateMHTMLBody. Short of generating vbscipt code with hundreds of lines of "data" & vbCRLF & _ Is there some way to do this? Or can someone recommend a command line emailer that will let me do this? BTW: I have automated prossing the syslog files themselves with awk, grep and uniq by using the bash shell cygwin under windows. If you have got to process text in large quantities I can not say enough about awk. Tag: Scripting firewall rule change via SNMP Tag: 153996
  - 8
    - Folder cleanup - how Any ideas on how I can script a drive cleanup utility?. I need to search for temporay files and delete them. I also need to find *.jpg, *.wma, *.exe in network folders and delete these files to minimize disk space usage. Also need to search for filesize, last accessdate/time. Thanks Andres Tag: Scripting firewall rule change via SNMP Tag: 153992
  - 9
    - Getting Expected ; (semicolon) in simple VBScript only page I am working on an ASP page that also includes some basic Client Side validation. I am just starting to work with VBScript on the client so I threw together a little test file and I keep getting: Error: Expected ';' on the first line after <SCRIPT LANGUANGE="VBScript"> I have tried subs, functions, etc... Why is it expecting a semicolon? <HTML> <HEAD> <SCRIPT LANGUANGE="VBScript"> Function Test() End Function </SCRIPT> </HEAD> <BODY> </BODY> </HTML> *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Scripting firewall rule change via SNMP Tag: 153990
  - 10
    - Activate QuickLaunch How to enable the QuickLaunch toolbar for everyone with a script? it seems this setting is not in the registry / Lelle Tag: Scripting firewall rule change via SNMP Tag: 153987
  - 11
    - Cookie Question Start http://212.123.5.17/mb/xdata/am.asp in the left Frame choose N,F or D (Nederlands, French, Deutsch) Not E (Standard for English) Click GO Close your Browser Reopen the page. On top you will see the result of the Language Cookie - result = N,F or D Start http://www.adq.be/ws.htm in the left Frame choose N,F,D (Nedelands, French, Deutsch) Not E (Standard for English) Click GO Close your Browser Reopen the page. There is no result for the Language Cookie and the standard (E) is selected Only difference between the two is that in the second case the first (http://212.123.5.17/mb/xdata/am.asp) is called in an frame of website on another domain. This is the code to write the cookie Response.Cookies("am")("language")=Request.QueryString("language") Response.Cookies("am").Expires=date()+30 this code to read Request.Cookies ("am")("language") What can be the reason herefore and how o resolve Thx - Maarten (Belgium) Tag: Scripting firewall rule change via SNMP Tag: 153979
  - 12
    - HELP with DateAdd statement and SQL I am trying to pull the date from the day before "objDate = DateAdd("d", -1, Date)" in standard time format, and I am wanting to convert it into UTC time "dtmCurrentDate = "&objDate&" " then pass it into a SQL command " "WHERE [Type]='error' AND [TimeWritten]>'&dtmTargetDate&' ". The script works however it isn't passing the date and coverting into UTC. Can someone please help me with this? Below you will find my script. Thanks, Robnson ----------------------------------------------------------------------------- dim Conn, objRS, objConn, strSQL, objDate, dtmTargetDate objDate = DateAdd("d", -1, Date) strComputer = "." Set objSWbemServices = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colTimeZone = objSWbemServices.ExecQuery _ ("SELECT * FROM Win32_TimeZone") For Each objTimeZone in colTimeZone strBias = objTimeZone.Bias Next dtmCurrentDate = "&objDate&" dtmTargetDate = Year(dtmCurrentDate) dtmMonth = Month(dtmCurrentDate) If Len(dtmMonth) = 1 Then dtmMonth = "0" & dtmMonth End If dtmTargetDate = dtmTargetDate & dtmMonth dtmDay = Day(dtmCurrentDate) If Len(dtmDay) = 1 Then dtmDay = "0" & dtmDay End If dtmTargetDate = dtmTargetDate & dtmDay & "000000.000000" dtmTargetDate = dtmTargetDate & Cstr(strBias) Set Conn = CreateObject("ADODB.Connection") Set objRS = CreateObject("ADODB.Recordset") Conn.Open = "provider=sqloledb;data source=SCK-EAV-01;" & _ "user id=sa;password=justD0!t;" & _ "initial catalog=Eventlogs" strSQL = "SELECT [ComputerName], [EventCode], [Message] " & _ "[SourceName], [TimeWritten], [Type] FROM [EventTable] " & _ "WHERE [Type]='error' AND [TimeWritten]>'&dtmTargetDate&' ORDER BY [TimeWritten]" objRS.Open strSQL, Conn, 0, 1 'adOpenForwardOnly, adLockReadOnly objRS.MoveFirst While Not objRS.EOF WScript.Echo objRS("ComputerName") & objRS("EventCode") & objRS("SourceName") objRS.MoveNext Wend ______________________________________________________________________ Tag: Scripting firewall rule change via SNMP Tag: 153978
  - 13
    - Windows 2000 Scripting Guide errata page Does anyone know if the book Microsoft Windows 2000 Scripting Guide (ISBN 0-7356-1867-4) has an online errata page? If not, does anyone who has access to a copy of the book know if the second paragraph on p. 109 contains a misstatement? (The paragraph claims that "the following data is displayed...The values "A" and "B" are the only values echoed to the screen...", though the example code purposely shows the spelling error of " Wscript.Eco "A" " (outermost quotations are mine) to demonstrate what will happen when toggling error handling. Isn't it true that whether error handling of any type is either toggled on or toggled off is irrelevant to the fact that Wscript.Eco "A" (note the misspelling of the word Echo) will NEVER echo A to the screen? Thanks for any clarification. Tag: Scripting firewall rule change via SNMP Tag: 153976
  - 14
    - Need Internet Programmer - Designer - Database Looking for a guy (Gal) who can develope site with databases, etc... Must have references... Public company will pay you in stock. reply to johnniemacusa@longislandxtra.com Tag: Scripting firewall rule change via SNMP Tag: 153971
  - 15
    - window.open problem in IE6 I am using Window.open to open the necessary page in a target frame. But only on one users IE6 instead of opeing the page in the target frame, it simplay opens the page in the main frame. Anyideas on how it is happening? Tag: Scripting firewall rule change via SNMP Tag: 153968
  - 16
    - Recursively list a folder with VBScript Looking for a VBScript script that will recursively list *all* the files and folders in a particular directory. I don't just want *.htm or *.asp, for example, I want a complete listing. The plan here is to list the files one-by-one, and basically double check the NTFS permissions on each file. Pseudo-code (Linux-based): for anything starting in directory X do if file/directory does not have NTFS permission Y then add permission Y to file/directory Z echo added permission Y to file/directory Z fi done I read while searching that this may be pretty slow using FSO, and that some MS MVP recommended using Wscript.Exec or .Run and call the DOS dir command. I guess I just need a starting point on how to possibly start. Marco Tag: Scripting firewall rule change via SNMP Tag: 153965
  - 17
    - Console Text Color Without using a DOM is there a way to change the foreground and background color of characters being printed to the console? Assume my script has no access to IE. Tag: Scripting firewall rule change via SNMP Tag: 153960
  - 18
    - object.classobject generates a type mismatch error Hello there using a vb script I am probing a container for objectes. when i try to msgbox(object.objectclass) it gives a type mismatch error. though it's supposed to be a string. code below. Any ideas? 'code Set dso = GetObject("LDAP:") samehname = "domain\useruser" samehpass = "password" Set obj1 = dso.OpenDSObject( "LDAP://DC=domain,DC=local", samehname, samehpass,ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND) for each colitem in obj1 msgbox(colitem.name) for each obj in colitem msgbox(obj.objectclass) if obj.objectclass = "organizationalUnit" then msgbox(obj.name) end if next next Tag: Scripting firewall rule change via SNMP Tag: 153955
  - 19
    - An interesting small WSH VBScript problem: CreateObject fails to terminate (stack) when logged out from the server Hello everyone, I have a small problem that I could not find answer to in previous postings of these two fine newsgroups. I have created a small vbs script (run by WSH), with this single line: ' Beginning of script CreateObject "Excel.Application" ' End of script (I extracted this problematic line from another script) The operating systems I tried are Windows 2003 Server and Windows 2000 Server. This is the problem: The script should be run as scheduled task on a daily basis. I created a task to run it in Scheduled Tasks. In the "run as" section, I used the same login and password I use to login to the server with Remote Desktop Connection. When logging in to the server via Remote Desktop Connection, the script run just fine (Starts and finishes almost immediately). Also, in the Scheduled Tasks, when right-clicking on the task and selecting 'run', the task starts and finishes immediately, with no errors. However, when setting the task to run automatically, and logging out, it does not work: I waited a minute after the time it was scheduled to, returned, and saw that the process (wscript), and the EXCEL applications are still running. The task status shows 'running'. The interesting thing is that the function CreateObject has created the 'EXCEL' application, but it seems that it fails to finish. Does anyone has encountered this problem before ? do you have an idea ? Any help will be greatly appreciated. ThanQ very much Jonathan Orlev Tag: Scripting firewall rule change via SNMP Tag: 153946
  - 20
    - Rename files with script Hi, does anyone know how to rename all files in a directory by script? The files should be renamed with a rule like paste an underline between the the 2nd and 3rd character of the name and so one. The script should run on W2K. Greeting, Andreas Tag: Scripting firewall rule change via SNMP Tag: 153943
  - 21
    - Client-Side Include Code in WEB Page Javascript has the ability to reference HTML code using the external source file prefix .JS. I'd like to create a set of VBScript functions and subroutines and bundle them in an external file and include the external source file. Does VBScript have the capability to perform the task. If not, can I create VBScript routines in Javascript include .JS file. Any help would be greatly appreciated. Thanks and regards, Ian Renfrew Tag: Scripting firewall rule change via SNMP Tag: 153939
  - 22
    - vbscript / Internet Explorer info Hi: I am looking for a document describing how to manipulate Internet Explorer objects. Right now I am facing the problem of adding options to a SELECT drop down box in an HTML page. I can find quite some JavaScript fragments, such as Code: document.forms[0].musicType.options[3] = new Option("Folk", "folk", false, false) for doing the above task, but I have problems finding VBscript examples. Thanks, Erwin ---------------------------------------------------------------- Erwin Kalvelagen GAMS Development Corp., http://www.gams.com erwin@gams.com, http://www.gams.com/~erwin ---------------------------------------------------------------- Tag: Scripting firewall rule change via SNMP Tag: 153922
  - 23
    - Need a Script to enter in username & password HI! I just need a script so that when I enter into a page on my password protected site that the username & Password get entered in for me and executed. ( meaning the enter button is pressed for me sort of like ). There used to be a way of doing that before like this example below.. http://username:password@www.somewebsite.com/private/index.htm but this no longer works now, is there another way of using a script to do this? PLEASE NOTE: I am aware of a way with IE to do something like this by saving it in the password history and also with Norton password manager but I specifically need it done this way with a script. I posted a similar post before but I feel that it was mis-understood so I am reposting this in a different way. paul.dallaire@sympatico.ca Tag: Scripting firewall rule change via SNMP Tag: 153915
  - 24
    - Way to force shutdown of a PC from a script that is run when Windows first starts up? I'm trying to develop a vbscript that will allow me to shutdown a PC (running Windows XP Pro) on a Windows 2003 network. I would like to implement this a policy for my laptop computer users. This policy will check to see if the computer's virus defintions are upto date. If not the laptop will be shutdown before the user can logon to our network. The script needs to be run when the PC first starts up, BUT before the user logs on. I know where to set up the script (as part Local Computer Policy -> Computer Configuration ->Windows Settings -> Scripts (Startup/Shutdown) -> Startup). I've tried everything from executing the windows shutdown command from a vbscript (shutdown.exe -s -t 00) to various vbscript code including: Const SHUTDOWN = 1 strComputer = "." Set objWMIService = GetObject("winmgmts: {(Shutdown)}" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("SELECT * FROM Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Win32Shutdown(SHUTDOWN) Next The problem is that the PC will not shut down. After the startup code is excuted, I see the logon prompt. Which means I'm past the startup script and into the user logon part of the entire authentication process. I know the shutdown code works. I've tested it while I've been logged on. It shuts down the machine every time. I know that the shutdown code was executed. I saw a test message. that I put after the shutdown code. Yet the PC will not shutdown! I think the problem is that I have the wrong permissions, but I'm unsure how to fix the problem. Any thoughts and script samples would be greatly appreciated. Thanks in advance. ...Gary White Tag: Scripting firewall rule change via SNMP Tag: 153898
  - 25
    - Possible to time out a popup? Hi, A question I've been thinking of for some time... I am sure I saw the answer somewhere on the web but can't find it again... I am trying to display a popup box that times out. I know it can be done with the wscript.shell popup command by just specifying the timeout time as one of the paramters, however I want some message box to keep updating the amount of time left as text IN the popup box and somehow loop it so it doesn't allow user interaction until the timeout expires. My instinct tells me this can only be done through scripting something with IE (form), but I am sure I saw this done somewhere with either msgbox or popup within somekind of a loop to keep updating the msgbox/popup text on the fly. Any help would be great! Thanks Tag: Scripting firewall rule change via SNMP Tag: 153896

Is it possible utilizing the WMI SNMP provider on a firewall that accepts scripted rules from SNMP? If so, how do I do this

thanks
-NM

Top

Re: Scripting firewall rule change via SNMP by name

name
Wed Mar 03 03:44:42 CST 2004

You are trying to prepare a way for ......

getting around firewall.

GREAT.

====================

Like an arsonist would want to damage hydrants.

"NM" <anonymous@discussions.microsoft.com> wrote in message
news:EDFE5933-F87C-47CB-9314-16B1D0913322@microsoft.com...
> Is it possible utilizing the WMI SNMP provider on a firewall that accepts
scripted rules from SNMP? If so, how do I do this?
>
> thanks,
> -NM

Top