Switch proxy (On/Off)

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
    - Find Replace On a Windows 98 machine I have space delimited files with a data string for each hour of the day. I want to use a vbscript to change the value in the 4th column to 9999 when the time stamp in the 2nd column is 0300 as in the 3rd row here. I'm not a programmer. JO 09030100 * 0.0266 * * * 82 * * * * * * 39 33 * * 5915 JO 09030200 * 0.0374 * * * 82 * * * * * * 81 90 * * 5913 JO 09030300 * 0.1378 * * * 82 * * * * * * 78 157 * * 5914 JO 09030400 * 0.0311 * * * 82 * * * * * * 65 210 * * 5915 Tag: Switch proxy (On/Off) Tag: 196096
  - 2
    - Raising Message Priority I am using the CDO.Message object to notify me of copy job results. These run every hour and are quite cumbersome to go through each day for 8 copy scenarios. Is there a property I can change to raise the priority of the email using vbScript? I have only been able to find examples of doing this thorugh .NET, which is not applicable for my environment. Thanks. Bart Perrier Tag: Switch proxy (On/Off) Tag: 196095
  - 3
    - Count items in outlook folders Hi... Is there any way to count items in an outlookfolder with a script. Please show me how. kindly Mariah Tag: Switch proxy (On/Off) Tag: 196086
  - 4
    - Script to cycle through the open IE windows Below is a vbs script (and also an au3 script) that I use to activate = the most recently active IE window. I run the vbs file with a Winkey = combo. It's a great convenience. I can jump back instantly to the last = IE window without having to reach for the mouse or use Alt+Tab. =20 What I would like to do is have a vbs script that will activate in = sequence all of the open IE windows. Let's say I have 10 windows of all = types open, and five of them are IE windows. Running the vbs file would = first activate one IE window, running it again would activate the next = IE window, and so on. This way I could have instant easy access just to = the IE windows without having to use Alt+Tab or other means that involve = all of the open windows. =20 Is this possible?=20 Thanks, Larry Option Explicit dim w With WScript.CreateObject("WScript.Shell") w =3D .AppActivate("Internet Explorer") End With In case this is not possible with WSH, here is an au3 script that also = activates the most recently activated IE window. Perhaps it could be = modified to do what I want. =20 AutoItSetOption ("WinTitleMatchMode", 2) If WinExists("Internet Explorer") Then WinActivate ("Internet Explorer", "") EndIf Tag: Switch proxy (On/Off) Tag: 196079
  - 5
    - how to wait for a objShell.Exec finish executing a command? I am creating a shell object to zip a file, then delete the source file, but the objFSO.DeleteFile(objFileName) is executing before the zip is done, and deleting the file before it can be zip; so i think. I am checking the error code for anything other than zero, and it looks like the file is getting zipped but the delete happens so fast i can't be sure where the problem is. Obviously if i comment the DeleteFile method i see the file get zip. Do i need to put some sort of Sleep/Wait variable in my script? B Tag: Switch proxy (On/Off) Tag: 196076
  - 6
    - Scanning VBScript for Unused Variables Is there an easy/free way to scan a large VBScript for unused variables? Visual Studio 2005 is supposed to have an autocorrect feature, but I can't find how to turn it on. Either that, or its always on and it just doesn't display anything for scripts. Thanks! -- Joseph Morales Tag: Switch proxy (On/Off) Tag: 196067
  - 7
    - vbscript delete files in a directory older than 30 days with 3 different extensions I'm sorta new to vbscript but am looking for a vbscript that will: 1.)Delete files in a single directory(and any subfolders below that which contain) 3 specific extensions and only delete these specific files that are 30 days or older. I've seen some that do either do all files in a directory and older than 30 days but not the criteria below. I would appreciate any help. Thanks Tag: Switch proxy (On/Off) Tag: 196066
  - 8
    - Split folder with a huge amount of files I have a folder with a huge amount of files. So i'd like to split this folder in several new folders with approximately 2000 files each (moving the files). Can i do this with a vbscript ? Robertico Tag: Switch proxy (On/Off) Tag: 196064
  - 9
    - running multiple instances of CSCRIPT to go through list of computers. Hello All, I have been searching far and wide for a solution to my problem. I'm not sure if I am using the proper terms here. I am fairly familiar with VBS. Here is the question. I would like my VBscript to start multiple instances of itself and go through a list of computers I provide. Basically something similar to this (http://www.mousetrax.com/Downloads.html "Domain Report Manager ") , but much simpler. I have spent the past couple of weeks breaking down his code and connecting bits and pieces, but I am pretty overwhelmed. I read through the documentation he put together, but it only elaborated on tracking the number of instances... not how to create them. I am sure it is something simple, I just can't see it. The script I have pieced together gathers the computer accounts from the domain... Pings them.. Then runs PSEXEC against the ones that are up. I just want to speed up the process. run like 15 threads at once.. I really appreciate any info you can give me or any resources you can point me too. I really want to learn how this works. Many Thanks, Ian Tag: Switch proxy (On/Off) Tag: 196060
  - 10
    - trouble in connecting with wmi accross NAT Dear all, this is my scenario I need to manage some servers in the remote offices. I have a cisco pix-firewall and also the remote networks have it. A remote server ( I will call it MYSERVER ) is reachabled with the Public address 81.81.81.43 (eg.) , on the inside lan MYSERVER adress is 192.x.x.x. ( ie a private address) so a Static NAT translates the ip to private and viceversa. my computer is in the inside lan with a private address and goes out with a public address like 82.83.84.56 (eg). the server is in the same domain as the mine. I'm an Enterprise Admin. If i try to connect to this server with a wmi script, for example using the ScriptomaticV2 tool, I can't get the data. But if I add to MYSERVER the ip alias 81.81.81.43 ( the same address with it is pubblished) i can get all data, but that's a terrible workaround!!! Wich is the best solution to avoid this kind of problem? Many thanks, Sergio Tag: Switch proxy (On/Off) Tag: 196055
  - 11
    - Binary Write method not working I have moved over some data from 2000 to SQL 2005. The data is the same, but now some existing working code is not working with the BinaryWrite method of Response.BinaryWrite. In a field in a table that is ntext. It contains HTML data tags. ie. <P><B>this is</B> etc... etc.. </P> Before moving to 2005 the following code worked (recordset setup correctly): dim mFieldSize, mBytes mFieldSize = rs.Fields("keywords").ActualSize mBytes = rs.Fields("keywords").GetChunk(mFieldSize) Response.BinaryWrite mBytes now with the data in 2005 I get this error: Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. Is this a coding error, or a type error problem that I have to do differently with 2005? If anyone knows of the solution to this problem please let me know. Thanks *** Sent via Developersdex http://www.developersdex.com *** Tag: Switch proxy (On/Off) Tag: 196054
  - 12
    - bypassing 'File Open' dialog when calling an external program Group, I'm running the following command multiple times from a script while using Terminal Services on a series of Windows 2003 servers: objShell.Run "Robocopy \\Server1\3rdPartyApps E:\3rdParty *.* /e", 2, True The VB Script and Robocopy.exe files are located on a remote server. In 90% of the servers I'm prompted by a 'File Download' window asking if I want to 'Open' the Robocopy.exe file located on the remote server. If I select 'Open' the script runs without issue and the necessary files are copied. My question concerns a way to bypass or avoid being prompted each time I need to run this command. I assume this is a GPO or security setting? If so, is there a way to temporarily change this setting at the start of the script and change it back at the end? Any help would be appreciated. Tag: Switch proxy (On/Off) Tag: 196053
  - 13
    - Object variable or With block variable not set Hi I have a problem with following code: Set pProject = CreateObject ("SAAuto8SP1.ISWiProject") ' Dim pProject ' Set pProject = New SAAuto8SP1.ISWiProject When i run it i get : "Object variable or With block variable not set" I have found it is a bug on http://support.microsoft.com/?kbid=316478 but when i change this script and uncomment lines under it I get: Microsoft VBScript compilation error: Microsoft VBScript runtime error: Class not defined : 'SAAuto8SP1' Thanks for your help Tag: Switch proxy (On/Off) Tag: 196050
  - 14
    - Forum Hi, I want to create a forum with VB Script but i don't know how to save data to the Hosting server, can you help me ????? OMAR ABID Tag: Switch proxy (On/Off) Tag: 196046
  - 15
    - Single Application shell for windows Hi all, My vbscript is the following: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process") errResult = objWMIService.Create("C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe", "C:\Program Files\Adobe\Acrobat 7.0\Reader\", null) set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colProcesses = objWMIService.ExecNotificationQuery _ ("Select * FROM _InstancedeletionEvent " _ & "Within 1 Where TargetInstance ISA 'Win32_Process'") Do Until False = True Set objProcess = colProcesses.NextEvent If objProcess.TargetInstance.ProcessID = intPosID Then Exit Do End If Loop All I want to do is display Acorbat Reader as the shell instead of Explorer.exe which works fine. My problem is that I want the user to log off when he terminates Acrobat Reader. This script produces an error on line: 5 char: 1 Error: Not found. As is Acrobat Reader starts as the shell but the rest of the script doesn't work. Can anyone help me with this pls? Tag: Switch proxy (On/Off) Tag: 196045
  - 16
    - iNCLUDE LEADING ZEROS Hi all, How do I include the leading zeros in the date? YEAR(NOW) & MONTH(NOW) & DAY(NOW) & ".xls" Thanks gv Tag: Switch proxy (On/Off) Tag: 196034
  - 17
    - WMI to get the size of physical drive 0 I'm booting off of a WINPE CD and I need to find out the size of drive 0 before I format and restore my image to it. Anyone have anything that can accomplish this? Thanks Tag: Switch proxy (On/Off) Tag: 196027
  - 18
    - Status on a servic I wrote a script to try to find the status of a particular service (ccmexec(sms service)), but it is not bringing anything back even though I ran it on a box that SMS is installed on. Need Help, here is my current script. On Error Resume Next arrComputers = Array("test") For Each strComputer In arrComputers WScript.Echo "Computer: " & strComputer Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Service where name =" & "ccmexec") For Each objItem In colItems WScript.Echo "Caption: " & objItem.Caption WScript.Echo "Name: " & objItem.Name WScript.Echo "StartMode: " & objItem.StartMode WScript.Echo "State: " & objItem.State WScript.Echo Next Next Tag: Switch proxy (On/Off) Tag: 196025
  - 19
    - Install graphics driver remotely? Is there a way to perform an INF-based graphics driver installation on remote systems (i.e. using VBScript & WMI)? Thanks, -- Bill Baker Tag: Switch proxy (On/Off) Tag: 196023
  - 20
    - DSQUERY command in VBS Hello All, I am trying to run DSquery from a vbs for stale machine accounts, have the results saved to a file, then read the file back in and modify the accounts listed. I'm not sure if this is possible. Anyone have thoughts on if this is possible, or another approach? will this work? Set DSQuery = oShell.Exec("c:\windows\system32\dsquery.exe computer" & chr(34) & "ou=test,dc=mydomain,dc=com" & chr(34) & " -stalepwd 60 -limit 10000 >c:\machines.txt") Tag: Switch proxy (On/Off) Tag: 196019
  - 21
    - File Editting I am just learning to use vbscript and need some help. I have a file that is 12,000 lines in length with approximately 256 characters per line. I was going to import the file to my data table but contained in the file are some comma's scattered throughout the records. These pesky little critters are keeping me from using the DELIMITED function of my IMPORT routine. Can someone point me in the direction for writing a vbscript routine for searching each line and replacing each comma with a blank space. Thanks, Ted Tag: Switch proxy (On/Off) Tag: 196011
  - 22
    - script for temp internet files hi- i don't know anything about scripts - esp in VB. i'm not sure if i even need to do this in VB, but could someone help me? we have users who open TIFF files constantly. our problem is that this folder gets full of these files and after a while, users cannot open any TIFF files. our usual solution is to do the following manually: Microsoft Outlook uses a temporary folder to save and open the attachments. By default that folder is: C:\Documents and Settings\%USER_NAME%\Local Settings\Temporary Internet Files\OLK#\ (where # is a random number). Some of the latest security updates for Windows 2000 and XP are preventing folders to be created in that folder. The solution is to use the regular TEMP folder. 1. Using REGEDIT.EXE locate the following key: My Computer\HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Security Note: Depending on your version you may have to modify that path after the "Office" key. You may have folders 8.0, 9.0, 10.0, 11.0, go the highest number. This is probably the version that you use. 2. Modify the Key "OutlookSecureTempFolder", by replacing "Temporary Internet Files" with "Temp". For example: OLD VALUE: C:\Documents and Settings\USER\Local Settings\Temporary Internet Files\OLK177\ (you may have different number than 177) NEW VALUE: C:\Documents and Settings\USER\Local Settings\Temp\OLK177\ 3. Restart Microsoft Outlook. in essence, what i need to do is create a script to do this, so that we can run it before the folders get full, and we don't have to do it manually every time it happens. thanks in advance! Tag: Switch proxy (On/Off) Tag: 196009
  - 23
    - How to use Active directory in vbscript (asp-page) Hello! Is there any examples or anyting. I have ad on other machine and IIS6 on other. Can I query username / passwords from AD to my vbscript application somehow? I need to make simple logon page wich uses active direcory information to logon people. The problem is that AD is on another network and we have to make somesort of hole to our firewall to allow iis to use AD. I know I allso could use IIS basic funtion and integrated windows logon things. Problem seems to be that there is two different domains and they are on different networks. Or is it broplem? t Tag: Switch proxy (On/Off) Tag: 196007
  - 24
    - Rename Printer-Urgent PLease!! hello, I have to rename printers . Its working fine on XP but on Windows 2000 Server i am having the error: C:\script\printerrename1.vbs(14, 5) Microsoft VBScript runtime error: Object doesn't support this property or method: 'objPrinter.RenamePrinter'. I have learnt that RenamePrinter is not compatible with Windows 2000 Server. Can you please suggest me some other ways of doing it: Here is the my script that i run strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colPrinters = objWMIService.ExecQuery _ ("Select * From Win32_Printer") For Each objPrinter in colPrinters If Left(objPrinter.DeviceID,22) = "Client\pailles_dom-nns" Then Wscript.Echo objPrinter.DeviceID Wscript.Echo Mid(objPrinter.DeviceID, InStrRev(objPrinter.DeviceID, "\") + 1) varprint= Mid(objPrinter.DeviceID, InStrRev(objPrinter.DeviceID, "\") + 1) objPrinter.RenamePrinter("hp LaserJet 1320 PCL 5e") END IF Next Thanks Nazeedah Tag: Switch proxy (On/Off) Tag: 196006
  - 25
    - Prevent Users Executing a Script Twice Hi Everyone, Does anyone know a neat way to prevent users executing a script two or more time simultaneously? Apart from teaching them to be more patient! Ideally I'm looking for a way to make the script realise that it is already running in a previous instance and either just quit or send the user a message and then quit. Cheers, Danny.... Tag: Switch proxy (On/Off) Tag: 195993
- Next
  - 1
    - RegExp and Replacing Submatches I have a value, retrieved from a recordset, that contains any number of hyperlinks to a number. For example: <a href="123456">Hi</a> <a href='334455'>Hola</a> What I need to do is parse the string, identify any such valid hyperlinks, look up each of those numbers in a database, and return a string that looks something like this: <a href="/somepage.asp">Hi</a> <a href='/anotherpage.asp'>Hola</a> Here's the VBScript/ASP code I have written so far: ======================================================== Sub ReplaceSubmatches(sInputHTML) Dim sReturnValueHTML, iCount, oRegExp, oMatches, oMatch Dim sHrefValue, sHrefNewValue sReturnValueHTML = sInputHTML iCount = 0 Set oRegExp = New RegExp oRegExp.Pattern = "href[\s]?=[\s\""\']+(.*?)[\""\']+" oRegExp.Global = True Set oMatches = oRegExp.Execute(sInputHTML) If (oMatches.Count > 0) Then For Each oMatch In oMatches If (oMatch.Submatches.Count = 1) Then iCount = iCount + 1 sHrefValue = Trim(oMatch.Submatches(0) & "") sHrefNewValue = "somevalue" & iCount If (sHrefValue <> "") AND (StrComp(sHrefValue, sHrefNewValue, 1) <> 0) Then Response.Write("Replace " & sHrefValue & " with " & sHrefNewValue & "<br>") '// Do something to [sReturnValueHTML] End If End If Next End If Set oMatches = Nothing Set oRegExp = Nothing Response.Write("<br>" & vbNewLine) Response.Write("Original Value = <u>" & Server.HTMLEncode(sInputHTML) & "</u><br>" & vbNewLine) Response.Write("New Value = <u>" & Server.HTMLEncode(sReturnValueHTML) & "</u><br>" & vbNewLine) If (StrComp(sInputHTML, sReturnValueHTML, 0) = 0) Then Response.Write("Values are identical.<br>" & vbNewLine) End Sub ======================================================== The main reason I use a regular expression, instead of a straight Replace() statement, is that the href tags may use double-quotes (href="..") or single-quotes (href='..') to define a value. What do I need to do to the above code to replace each href value? -= Tek Boy =- Tag: Switch proxy (On/Off) Tag: 195991
  - 2
    - Copy file to folder - Script failing I am trying to check for the existence of a folder. If that folder does not exist create it then copy a file to it. If the folder already exists just copy the file. I would like to add some type of error checking in the future. I have listed my script below: strComputer = "." Dim objShell Set objShell = CreateObject("wscript.Shell") Set objWMIService = GetObject _ ("winmgmts:" & "!\\" & strComputer & "\root\cimv2") UserFolder = objshell.ExpandEnvironmentStrings("%userprofile%")&"\Application Data\Sun\Java\Deployment" Wscript.echo UserFolder Dim fso set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(UserFolder) Then fso.CreateFolder UserFolder fso.CopyFile "\\citrix01\support\hotifx\deployment.properties.*", UserFolder else fso.CopyFile "\\citrix01\support\hotifx\deployment.properties", "C:\Documents and Settings\%username%\Application Data\Sun\Java\Deployment\deployment.properties" set fso = nothing end IF Tag: Switch proxy (On/Off) Tag: 195989
  - 3
    - vbs script on Windows Xp to find largest files what would be the format or commands to setup a vbscript to run on XP to locate large files ( over 500mb) and generate a list. ( searching for large space hogs) Tag: Switch proxy (On/Off) Tag: 195987
  - 4
    - Is it possible to Call a Shell Application from within an HTA I am working on an HTA that will unlock our local users. Within the code I use Call Shell. Whenever i test the the HTA I get the following error: RuntimeError has Occured Line: 54 Error: Type Missmatch: 'Shell" Is it possible to call Shell from within the script? Here is a sample of what my script looks like: sub unlock(strIp, strUser) IPAddress = strIp person = strUser FirstOctets = Left(IPAddress, 6) If FirstOctets = "192.15" Then Msgbox "Calling Whitfield Unlock Program" stAppName = "C:\Scripts\p.bat " & ipname & " " & person Call Shell(stAppName, 1) I've tested the HTA without using the Call Shell and just the message box and it works. Anyone with any Ideas? Tag: Switch proxy (On/Off) Tag: 195986
  - 5
    - Problem:logon script does not run I've set a logon script path for my user as \\testserver\netlogon\1.vbs . the problem is that it does not run.my username is 1 and pass is 1. the script is OK.when the user logs on,if he/she browse to netlogon and double click 1.cmd,everything goes fine;but I do wonder whats wrong with server that makes logon script not running. I tested it on 4 different domains,win2k and 2k3 and non worked. what mistake I'm probably doing? why the logon script is not triggered? I also turned debugging on like the following article: support.microsoft.com/default.aspx?scid=kb;EN-US;221833 but nothing meaningful I got from its log pertaining to this issue. what is my mistake? Tag: Switch proxy (On/Off) Tag: 195984
  - 6
    - problem with "shell and wait" I've been using VB6 for a few years now, but this is my first foray into VBScript. Here's the problem I'm having: I need to write a script that installs an application in unattended mode (if it does not already exist), waits for the install to finish, then installs an update to the application. For some reason, the 'true' parameter on the wshshell.run command doesn't work. On a machine which does NOT have the application installed, the install starts - it should run about 5-10 minutes. Almost immediately, the update starts. I need it to wait until the application install finishes. Here's the code -- the msgbox lines are there for testing/development purposes only; they will be removed when I get this debugged. All help/advice/suggestions will be gratefully accepted. Thanks -- Carl ' SCRIPT STARTS HERE msgbox "Starting XYZ install process" dim ws Set ws = wscript.CreateObject("Scripting.FileSystemObject") dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") ' is XYZ installed? If not, install it in unattended mode. if not ws.fileexists("C:\Program files\xyzView\xyzView.exe") then ' the last flag is for "shell and wait"; true halts execution, false continues Return = WshShell.Run("\\BOZO\common\XYZ\setup.exe /s", 1, true) end if msgbox "XYZ install complete" ' apply the XYZ update to this machine Return = WshShell.Run("\\BOZO\common\XYZ\mv31update.exe /s", 1, true) msgbox "XYZ update complete" Tag: Switch proxy (On/Off) Tag: 195973
  - 7
    - Add domain account to local administrators What I'm looking for is: A Script that will add a logged in domain user to local administrators group on the PC. This script needs to be dynamic in retrieving the current logged in user's domain account. First off I've found numerous scripts to handle this tasks, but they require some sort of elevated privileges to be successful. Unfortunately none of them work for my environment, which is: Windows 2003/2000 Domain - Windows XP SP2. SMS 2003 I'm attempting at doing this during the login script. The scripts I tested get an "access is denied" Here is an example of the script: strComputer = "." Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group") Set objUser = GetObject("WinNT://TEST/testuser3") objGroup.Add(objUser.ADsPath) Now it works if you have administrative privileges in the domain, which is a catch 22. The user in my environment has to have administrative access on the desktop for a 3rd party application. The "runas" option/command will not work in my solution, too many security implications. I've also read about AutoIt, but my learning curve is too steep right now. Questions: Does anyone have such a script for this purpose? What is the best context to run such a script, on login, GPO, or SMS? Will Restrictive Groups handle this instead of a script? Where / How do I run it with elevated privileges? Thanks, MH Tag: Switch proxy (On/Off) Tag: 195963
  - 8
    - define string having " char in it How can I define a String in vbs that have " as one of its characters? my string is " abcdef"ghijk " ;but it only interpretes it till f.i want it to interprete it abcdef"ghijk . Tag: Switch proxy (On/Off) Tag: 195959
  - 9
    - Copying current profile, to the default user profile. Hi all, I need to create a vbscript that copies the administrator account (with all of its desktop, screensaver...etc. settings) to the default user profile, so that all newly created accounts from this point on will contain all these personalised settings. The only way I can see to do it (without using send-keys) is to manually copy the registry keys for the administrator account to the .DEFAULT key in the HKEY_USERS section of the registry, and then copy the files and folders in the "Documents and Settings" area. This seemed like a good idea at the time, but the registry seems to lock these keys for reading only (no matter who you are logged in as ive found). So i've ended up in abit of a stale-mate. Is there a way to temporarily 'relax' these permissions so I can copy the required entries without it ruining the current permissions setup (im not sure if all keys under the admin profile key inherits their permissions from this parent). OR is there another way I can achieve this using vbscript (i've not managed to find any .exe tools that just actually do this task?). Thanks in advance for your assistance. Dez Tag: Switch proxy (On/Off) Tag: 195957
  - 10
    - Change System Date Is there a way to change system date in VBS? Tag: Switch proxy (On/Off) Tag: 195956
  - 11
    - checking for trademark (tm) symbol Hi People, I'm trying to find a way to check for the superscript trademark(tm) symbol in my vbscript. I'm coming into a limitation with the values returned by Chr() The Decimal and Hex values for the symbol are 8482 and 2122 respectively. Can anyone offer some guidance? Thanks, Neil Tag: Switch proxy (On/Off) Tag: 195952
  - 12
    - Event Logs Help Hi All, I'm trying to create a scirpt that will read out events from a log that meet certain criteria, the scipt I've got so far is as follows: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set dtmStartDate = CreateObject("WbemScripting.SWbemDateTime") Set dtmEndDate = CreateObject("WbemScripting.SWbemDateTime") DateToCheck = Date - 1 dtmEndDate.SetVarDate Date, True dtmStartDate.SetVarDate DateToCheck, True Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strserver & "\root\cimv2") Set colEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent Where TimeWritten >= '" _ & dtmStartDate & "' and TimeWritten < '" & dtmEndDate & "' _ and Type = 'Error'") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' I can get it to read events from a certain day but now I'm having trouble pulling out only error events. The script is erroring on this section: & dtmStartDate & "' and TimeWritten < '" & dtmEndDate & "' _ and Type = 'Error'") It say underterminated string constant although everything point to it being okay. Anyone got any ideas? Thanks, -- _______________________________ Sam Richardson Technical Support Administrator Central Business Services ________________________________ Tag: Switch proxy (On/Off) Tag: 195939
  - 13
    - Re: i think this software need for everyone Path: **!newsfeed01.sul.t-online.de!t-online.de!news.rh-tec.net!newsfeed.freenet.de!newspeer1.nwr.nac.net!news.maxwell.syr.edu!postnews.google.com!i3g2000cwc.googlegroups.com!not-for-mail From: "nebier99@gmail.com" <nebier99@gmail.com> Newsgroups: microsoft.public.scripting.vbscript Subject: i think this software need for everyone Date: 5 Sep 2006 11:14:14 -0700 Organization: http://groups.google.com Lines: 12 Message-ID: <1157480054.709112.285890@i3g2000cwc.googlegroups.com> NNTP-Posting-Host: 85.108.237.48 Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" X-Trace: posting.google.com 1157480059 19608 127.0.0.1 (5 Sep 2006 18:14:19 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: Tue, 5 Sep 2006 18:14:19 +0000 (UTC) User-Agent: G2/0.2 X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1),gzip(gfe),gzip(gfe) Complaints-To: groups-abuse@google.com Injection-Info: i3g2000cwc.googlegroups.com; posting-host=85.108.237.48; posting-account=9xgtPA0AAABmpPXL_JO5J6240m9vprFd Tag: Switch proxy (On/Off) Tag: 195937
  - 14
    - Local User Accounts I'm using the following script to get all local user accounts on thousands of servers: Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFileName = objFSO.OpenTextFile("Servers.txt", 1, 0) Set objOutputFile = objFSO.CreateTextFile("Local Users.txt",True) Set objNet = CreateObject("WScript.NetWork") objOutputFile.WriteLine "Verified by:;Date Verified;Server Name;Name;Comment;Disabled?;Lockout?;Password Changeable?;Password Expires?;Password Required?" On Error Resume Next Do Until objFileName.AtEndOfStream strServerName = objFileName.ReadLine Set objWMIService = GetObject("winmgmts:\\" & strServerName & "\root\cimv2") If Err.Number > 0 Then objOutputFile.WriteLine strServerName & ";" & Err.number & " - " & Err.Description Err.Clear Else Set colItems = objWMIService.ExecQuery ("SELECT * FROM Win32_UserAccount") For Each objItem in colItems objOutputFile.WriteLine objNet.UserName & ";" & Now() & ";" & strServerName & ";" & objItem.Name & ";" & _ objItem.Description & ";" & objItem.Disabled & ";" & objItem.Lockout & ";" & _ objItem.PasswordChangeable & ";" & objItem.PasswordExpires & ";" & _ objItem.PasswordRequired Next End If Loop WScript.Echo "We're done!!!" But... the LOOP is not working. The script stucks after all the information for the first server (in the first line of SERVERS.TXT) is written to the output file (Local Users.txt). I'm running the script from a Windows 2000 Advanced Serverand it will get information of different Windows versions (NT/2000/2003). When I test the script from my laptop running Windows XP, it works fine. Even removing "On Error Resume Next", it doesn't return any error. It just stucks. Does anybody know why it happens? Thanks!!! Carlos Felipe França da Fonseca Tag: Switch proxy (On/Off) Tag: 195924
  - 15
    - exchange script question (cross posted) i need to use vbscript to query particular exchange servers to return the number of mailboxes any particular mailbox store contains. anyone have an example? thanks Tag: Switch proxy (On/Off) Tag: 195910
  - 16
    - i think this software need for everyone This software free all time all life no money and other. Only for help for all peoples. This software for slow computers. And no setup only copy - paste on your desktop when your to be slow computer you can two click pcspeeder and fastttt computer %50 more fast and your all software very happy and i give promise this software all time free free i want happy peoples. Dont forget open zip file and copy pcspeeder (hizlandir)paste your destop and two click if you want again two click after your computer more fast really And dont forget success ratio % 75 or 80 if you want write me my e-mail: nebier99@gmail.com and my name nebi er program link www.garantiyazilim.com/hizlandir.zip Nebi Er Tag: Switch proxy (On/Off) Tag: 195902
  - 17
    - move computer account I need to move multiple computers from Computer container in active directory to a certain OU and would like to use a script which will run against a list of computers. Any recommendations? Thank you Tag: Switch proxy (On/Off) Tag: 195900
  - 18
    - ERROR: Wrong number of arguments or invalid property assignment I am having problems writing a VBS file to insert some xml data into SQL Server. I am getting the following error when I execute the script, Script: MyPath\XMLCopyInsert.vbs Line: 67 Char: 1 Error: Wrong number of arguments or invalid property assignment Code: 800A01C2 Source: Microsoft VBScript runtime error Line 67 is the following, strSQL = "INSERT INTO Weather (Weather,Temperature,RelativeHumidity,WindString,WindDir,WindDegrees,WindMPH,WindGustMPH,Pressure,Dewpoint,HeatIndex,WindChill,Visibility,Icon,ObsTime,InsertTime) VALUES ('" + wWeather + "'," + wTemp + ",'" + wHumidity + "','" + wWindString + "','" + wWindDir + "','" + wWindDegrees + "','" + wWindMPH + "','" + wWindGust + "'," + wPressure + "," + wDewpoint + "," + wHeatIndex + "," + wWindChill + "," + wVisibility + ",'" + wPic + "','" + wTime + "','" + wInsertTime + "')" The Weather, Relative_Humidity, Wind_String, Wind_Dir, Wind_Degrees, Wind_MPH, Wind_Gust_MPH, Icon are all varchar datatypes. The Temperature, Dewpoint, HeatIndex, and WindChill are all int datatypes Pressure_In and Visibility are numeric datatypes ObsTime and InsertTime are all datetime datatypes. How can I resolve this issue? Thanks, Drew All the code is available below, 'Start inserting file into DB 'Parse XML and set variables Dim mydoc Set mydoc = WScript.CreateObject("Microsoft.XMLDOM") mydoc.async=false mydoc.load("mypath\weather.xml") If mydoc.parseError.errorcode<>0 then MsgBox(mydoc.parseError.errorcode & "<br>") MsgBox(mydoc.parseError.reason & "<br>") MsgBox(mydoc.parseError.srcText & "<br>") Response.Write(mydoc.parseError.URL & "<br>") Else dim wTime,wWeather,wTemp,wHumidity,wWindString,wWindDir,wWindDegrees,wWindMPH,wWindGust dim wPressure,wDewpoint,wHeatIndex,wWindChill,wVisibility,wPic,wInsertTime Set wTime = mydoc.getElementsByTagName("observation_time") Set wWeather = mydoc.getElementsByTagName("weather") Set wTemp = mydoc.getElementsByTagName("temp_f") Set wHumidity = mydoc.getElementsByTagName("relative_humidity") Set wWindString = mydoc.getElementsByTagName("wind_string") Set wWindDir = mydoc.getElementsByTagName("wind_dir") Set wWindDegrees = mydoc.getElementsByTagName("wind_degrees") Set wWindMPH = mydoc.getElementsByTagName("wind_mph") Set wWindGust = mydoc.getElementsByTagName("wind_gust_mph") Set wPressure = mydoc.getElementsByTagName("pressure_in") Set wDewpoint = mydoc.getElementsByTagName("dewpoint_f") Set wHeatIndex = mydoc.getElementsByTagName("heat_index_f") Set wWindChill = mydoc.getElementsByTagName("windchill_f") Set wVisibility = mydoc.getElementsByTagName("visibility_mi") Set wPic = mydoc.getElementsByTagName("ico_url_name") wInsertTime = Now End If dim Conn, strSQL set Conn = CreateObject ("ADODB.connection") Conn.Open "driver={SQL Server};server=swvtc06;Trusted_Connection=Yes;Initial Catalog=Weather" strSQL = "INSERT INTO Weather (Weather,Temperature,RelativeHumidity,WindString,WindDir,WindDegrees,WindMPH,WindGustMPH,Pressure,Dewpoint,HeatIndex,WindChill,Visibility,Icon,ObsTime,InsertTime) VALUES ('" + wWeather + "'," + wTemp + ",'" + wHumidity + "','" + wWindString + "','" + wWindDir + "','" + wWindDegrees + "','" + wWindMPH + "','" + wWindGust + "'," + wPressure + "," + wDewpoint + "," + wHeatIndex + "," + wWindChill + "," + wVisibility + ",'" + wPic + "','" + wTime + "','" + wInsertTime + "')" MsgBox strSQL 'objRS = Conn.Execute(strSQL) WScript.Echo "Done!" Tag: Switch proxy (On/Off) Tag: 195897
  - 19
    - Read Status of Shift and CTRL Key Hi all, Is there a way (or component) to read the status of the Shift and CTRL Keys from the Keyboard? I want the script to react differently when the Shift Key or the CTRL Key is pressed on the Keyboard. Any ideas or suggestions? TIA Gottfried Tag: Switch proxy (On/Off) Tag: 195896
  - 20
    - Application to be called - runas Administrator I need an application to be called from a compiled script that has elevated rights (run as). The reason it needs to be complied is to conceal the domain admin equivalent account that would need to run the exe. This in turn would be deployed in a login script and be called during user login. The complied program would create a flag file at the end of its execution and copy it to the local C drive. This flag file would be checked for presence in the beginning of the compiled program to bypass if it had already been run on that particular machine. The goal of this is to remove the application off all machines in the domain, and then we will redeploy the newest version using WinInstall. The issue that we are having is that many old clients are not updating properly. I am new to VBSCRIPT and just need some direction. Thanks in advance. Tag: Switch proxy (On/Off) Tag: 195887
  - 21
    - System Info I was looking for a vbscript to gather system info information including HW ( NIC, HD , MEMORY etc ) and SW installed Is there something already doing it or where can I find resources to do it myself ? thanks Tag: Switch proxy (On/Off) Tag: 195884
  - 22
    - Script to set wallpaper & set GPO Hi, we have several machines open to the public, and users might change the background image on the desktop of these machines, so I want to set an identical wallpaper image and prevent the arbitrary change of desktop wallpaper. I try write a handy script that will download required wallpaper image from http, then set this image as desktop wallpaper, then set policy to prevent wallpaper from changing, and finally reboot machine. We have win XP home and Pro, I need this work on both. Please correct my code where it needed, and make it polished.. Karina ---------- 'download wallpaper from url Dim a With CreateObject("MSXML2.XMLHTTP") .open "GET", "http://domain.com/bitmaps/image.bmp", False .send a = .ResponseBody End With With CreateObject("ADODB.Stream") .Type = 1 'adTypeBinary .Mode = 3 'adModeReadWrite .Open .Write a .SaveToFile "c:\wallpaper.bmp", 2 'adSaveCreateOverwrite .Close End With 'set wallpaper Dim WshShell Set WshShell = WScript.CreateObject("Wscript.Shell") WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", mybitmap.bmp 'Restrict changing the wallpaper WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop" "NoChangingWallPaper"=dword:00000001 "NoAddingComponents"=dword:00000001 "NoComponents"=dword:00000001 "NoDeletingComponents"=dword:00000001 "NoEditingComponents"=dword:00000001 "NoCloseDragDropBands"=dword:00000001 "NoMovingBands"=dword:00000001 "NoHTMLWallPaper"=dword:00000001 WshShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop" "NoChangingWallPaper"=dword:00000001 "NoAddingComponents"=dword:00000001 "NoComponents"=dword:00000001 "NoDeletingComponents"=dword:00000001 "NoEditingComponents"=dword:00000001 "NoCloseDragDropBands"=dword:00000001 "NoMovingBands"=dword:00000001 "NoHTMLWallPaper"=dword:00000001 Set WshShell = Nothing 'Reboot machine set WshShell = CreateObject("WScript.Shell") WshShell.run "rundll32 shell32.dll,SHExitWindowsEx 2" WScript.quit -------end---- Tag: Switch proxy (On/Off) Tag: 195883
  - 23
    - Two variables in If Then Statement I'm trying to check two variables(same), how come the last work but not the first? ComputerName= "PC2" If (ComputerName<> "PC1") Or (ComputerName<> "PC2") Then MsgBox "1 Run: " & ComputerName Else MsgBox "2 Ignore computers. " & ComputerName End If If (ComputerName= "PC1") Or (ComputerName= "PC2") Then MsgBox "2 Ignore computers. " & ComputerName Else MsgBox "2 Run: " & ComputerName End If //Peter Tag: Switch proxy (On/Off) Tag: 195877
  - 24
    - Script to set wallpaper and restrict changing Hi, we have several machines open to the public, and users might change the background image on the desktop of these machines, so I want to set an identical wallpaper image and prevent the arbitrary change of desktop wallpaper. I try write a handy script that will download required wallpaper image from http, then set this image as desktop wallpaper, then set policy to prevent wallpaper from changing, and finally reboot machine. We have win XP home and Pro, I need this work on both. Please correct my code where it needed, and make it polished.. Karina ---------- 'download wallpaper from url Dim a With CreateObject("MSXML2.XMLHTTP") .open "GET", "http://domain.com/bitmaps/image.bmp", False .send a = .ResponseBody End With With CreateObject("ADODB.Stream") .Type = 1 'adTypeBinary .Mode = 3 'adModeReadWrite .Open .Write a .SaveToFile "c:\wallpaper.bmp", 2 'adSaveCreateOverwrite .Close End With 'set wallpaper Dim WshShell Set WshShell = WScript.CreateObject("Wscript.Shell") WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", mybitmap.bmp 'Restrict changing the wallpaper WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop" "NoChangingWallPaper"=dword:00000001 "NoAddingComponents"=dword:00000001 "NoComponents"=dword:00000001 "NoDeletingComponents"=dword:00000001 "NoEditingComponents"=dword:00000001 "NoCloseDragDropBands"=dword:00000001 "NoMovingBands"=dword:00000001 "NoHTMLWallPaper"=dword:00000001 WshShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop" "NoChangingWallPaper"=dword:00000001 "NoAddingComponents"=dword:00000001 "NoComponents"=dword:00000001 "NoDeletingComponents"=dword:00000001 "NoEditingComponents"=dword:00000001 "NoCloseDragDropBands"=dword:00000001 "NoMovingBands"=dword:00000001 "NoHTMLWallPaper"=dword:00000001 Set WshShell = Nothing 'Reboot machine set WshShell = CreateObject("WScript.Shell") WshShell.run "rundll32 shell32.dll,SHExitWindowsEx 2" WScript.quit -------end---- Tag: Switch proxy (On/Off) Tag: 195868
  - 25
    - why does this script not work Could anyone explain why this does not work please vTEMP=request.form(eval("myVAR" & "1")) myVAR1 does exist and does work if it is just vTEMP=request.form("myVAR1") Any help please? Tag: Switch proxy (On/Off) Tag: 195861

I search for vbscript (or small utility) to switch IE proxy (On/Off) for the current connection (modem).

Saku.

Re: Switch proxy (On/Off) by Dave

Dave
Sun Sep 10 10:01:31 CDT 2006

Sets it to ON;
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet
Settings\ProxyEnable", 1, "REG_DWORD"

Sets it to OFF;
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet
Settings\ProxyEnable", 0, "REG_DWORD"

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"Saku Ruokolahti" wrote:
|I search for vbscript (or small utility) to switch IE proxy (On/Off) for
the current connection (modem).
|
| Saku.

Re: Switch proxy (On/Off) by Saku

Saku
Sun Sep 10 10:46:15 CDT 2006

Dave Patrick wrote:
> Sets it to ON;
> Set WshShell = CreateObject("WScript.Shell")
> WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet
> Settings\ProxyEnable", 1, "REG_DWORD"
>
> Sets it to OFF;
> Set WshShell = CreateObject("WScript.Shell")
> WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet
> Settings\ProxyEnable", 0, "REG_DWORD"
>

Thanks Dave Patrick,
but this VBS changes LAN settings, NOT current Dial-Up connection!

Saku.

Re: Switch proxy (On/Off) by Dave

Dave
Sun Sep 10 10:52:12 CDT 2006

Sorry, then I've no idea what you're after.

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"Saku Ruokolahti" wrote:
| Dave Patrick wrote:
| > Sets it to ON;
| > Set WshShell = CreateObject("WScript.Shell")
| > WshShell.RegWrite
"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet
| > Settings\ProxyEnable", 1, "REG_DWORD"
| >
| > Sets it to OFF;
| > Set WshShell = CreateObject("WScript.Shell")
| > WshShell.RegWrite
"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet
| > Settings\ProxyEnable", 0, "REG_DWORD"
| >
|
| Thanks Dave Patrick,
| but this VBS changes LAN settings, NOT current Dial-Up connection!
|
| Saku.