[THIN] Re: VBscript help needed
- From: "Andrew Wood" <andrew.wood@xxxxxxxxxxxxxxxx>
- To: <thin@xxxxxxxxxxxxx>
- Date: Fri, 3 Jul 2009 16:22:41 +0100
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:
