[THIN] Re: VBscript help needed

  • From: Magnus Hjorleifsson <magnus@xxxxxxxx>
  • To: "thin@xxxxxxxxxxxxx" <thin@xxxxxxxxxxxxx>
  • Date: Fri, 3 Jul 2009 11:33:09 -0400

Yep. Just run the wsh insatll exe, that is what I did when I tan into that issue 


Sent from my iPhone
On Jul 3, 2009, at 10:21, "Braebaum, Neil" <Neil.Braebaum@xxxxxxxxxxxxxx> wrote: 


Reinstalling wsh? On 2003 server?

Neil
From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf Of Magnus Hjorleifsson 
Sent: 03 July 2009 14:46
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Re: VBscript help needed

I have run into this before. Reinstall wsh that should fix it

Sent from my iPhone
On Jul 3, 2009, at 7:08, "Andrew Wood" <andrew.wood@gilwood- cs.co.uk> wrote:
For the DIM - that shouldn’t matter – you’d only really need it if you’d put explicit references in – which Steve hasn’t
That code looked fine to me – and it works on my 2003 server when I cut and pasted it into a .vbs script 


There’s not some funny text/typo in the script you’re running?
From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf Of Joe Shonk 
Sent: 03 July 2009 06:06
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Re: VBscript help needed


Try removing “Dim objShell” from the script and try again.


Joe
From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf Of Steve Snyder 
Sent: Thursday, July 02, 2009 9:14 PM
To: thin@xxxxxxxxxxxxx
Subject: [THIN] VBscript help needed
Wrote (okay, plagarized and cobbled) a script to perform an action based on the user being in a group; runs great on my XP PC, but on a W2K3 server itbombs out on the line 


Set objShell = WScript.CreateObject("WScript.Shell")


with an Invalid Syntax error. Ideas?




'begin here

GroupName="no_internet-gp"

Set objSysInfo = CreateObject("ADSystemInfo")
strUserInfo = "LDAP://" & objSysInfo.UserName

Set objUser = GetObject(strUserInfo)
arrMember=Filter(objUser.MemberOf ,GroupName)

Dim objShell, RegLocate, RegLocate1
Set objShell = WScript.CreateObject("WScript.Shell")

On Error Resume Next


If ubound(arrMember) Then wscript.Quit
If Err.Number <> 0 Then
  WScript.echo Err.Description
Else
RegLocate = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows \CurrentVersion\Internet Settings\ProxyEnable" 
  objShell.RegWrite RegLocate,"1","REG_DWORD"
RegLocate = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows \CurrentVersion\Internet Settings\ProxyServer" 
  objShell.RegWrite RegLocate,"127.0.0.1:80","REG_SZ"
RegLocate = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows \CurrentVersion\Internet Settings\ProxyOverride" objShell.RegWrite RegLocate,"etimesheets.*;smdc*; 164.49.*;<local>","REG_SZ" 

End If

'end here
*** *** *** *** ********************************************************************
This email and its attachments are confidential to the intended recipient. If this has come to you in error, please notify the sender immediately and delete this email from your system. You must take no action based on this email, nor must you copy or disclose it or any part of its contents to any person or organisation. Please note that email communications may be monitored. The registered office of Shop Direct Limited is First Floor, Skyways House, Speke Road, Speke, Liverpool, L70 1AB, registered number 04730752. 

Subsidiary companies of Shop Direct Limited include:
Shop Direct Group Financial Services Limited (SDGFS), Shop Direct Financial Services Limited (SDFS) and Shop Direct Finance Company Limited (SDFC). The registered office of SDGFS, SDFS and SDFC is Aintree Innovation Centre, Park Lane, Netherton, Bootle, L30 1SL, registered numbers 05200103 (SDGFS), 04730706 (SDFS) and 04660974 (SDFC). SDFS and SDFC are authorised and regulated by the Financial Services Authority in respect of arranging insurance products.
Shop Direct Contact Centres Limited (SDCC) and Shop Direct Home Shopping Limited (SDHS). The registered office of SDCC and SDHS is First Floor, Skyways House, Speke Road, Speke, Liverpool, L70 1AB, registered numbers 05330323 (SDCC), 04663281 (SDHS). 

All companies registered in England.
*** *** *** *** ********************************************************************

Other related posts:

  1. Home
  2. thin
  3. Archive
  4. 07-2009