[THIN] Re: VBscript help needed
- From: Greg Reese <gareese@xxxxxxxxx>
- To: thin@xxxxxxxxxxxxx
- Date: Fri, 3 Jul 2009 10:29:52 -0500
http://www.microsoft.com/downloads/details.aspx?familyid=47809025-D896-482E-A0D6-524E7E844D81&displaylang=en
On Fri, Jul 3, 2009 at 10:22 AM, Andrew Wood
<andrew.wood@xxxxxxxxxxxxxxxx>wrote:
> Indeed - can you do that?!
>
>
>
> *From:* thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] *On
> Behalf Of *Braebaum, Neil
> *Sent:* 03 July 2009 15:21
> *To:* thin@xxxxxxxxxxxxx
> *Subject:* [THIN] Re: VBscript help needed
>
>
>
> 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@xxxxxxxxxxxxxxxx>
> 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:
