Vista Forums - VB Script

Windows SBS 2008 logon script problem

gimolu — Wed, 18 Nov 2009 18:18:22 GMT

HI Richard,

Thanks for your reply.
Yes, if I run the script manually (\\server\sysvol\.....) it works great,
but as a logon script, not really. I'm applying it in GPMC (at the domain
level).
I'm sure the script is running because for troubleshooting issues I put some
wscript.echo in the script just to see where it's at and it seems to be just
fine. Actually I have a very similar script running on a testing server (sbs
2008) and it works fine. I can't find any major differences between the
working and not working server using RSOP.
I know that it's not because the slow link, etc. test it already.
The script that I posted here doesn't work too! If I applied it, I have the
same problem.
I have no On Error Resume Next, so any errors should be reported.

It seems that this line: objNetwork.MapNetworkDrive "L:", "\\server\share";
won't work!
Any ideas?

Thanks again for your reply.

"Richard Mueller [MVP]" wrote in
message news:uuEp25HaKHA.1596@newsgroup

Quote:

>
> "gimolu" wrote in message
> news:ujD9DuHaKHA.3992@newsgroup

Quote:

>> HI,
>>
>> I am having a problem with a script that I have in user logon that maps
>> some drives I need. Here is an example of the script:
>>
>> Dim objNetwork
>> Set objNetwork = CreateObject("WScript.Network")
>>
>> objNetwork.MapNetworkDrive "L:", "\\server\share"
>> objNetwork.MapNetworkDrive "Y:", "\\server\share1"
>>
>> In the client computers I run he gpresult /v command and the script says
>> that it has been executed accordingly.
>> This is just a small part of the script because the drive map occurs if
>> the user belongs to a specific group (and yes if I put a wscript.echo and
>> it works great).
>> I've run out off troubleshooting ideas! the script just won't run!
>>
>> Can someone point me to the right direction?
>>
>> PS: with the new Drive Maps Options of windows 2008 (CSE) I can map
>> drives, however, I need this script up and running!
>>
>> Thanks,
>>
>> LR
>>

>
> Do you configure logon scripts on the "Profile" tab of user properties in
> ADUC, or in a Group Policy applied to the domain or an OU? Are you saying
> the script runs fine if you run it manually (as a normal user) after
> logon, but doesn't seem to run at all as a logon script?
>
> See this link for details on configuring logon scripts:
>
> http://www.rlmueller.net/LogonScriptFAQ.htm
>
> If the script runs fine manually, but doesn't seem to run as a logon
> script, add a lines to the script that either display messages to the user
> (using MsgBox statements), or that write information to a local file.
>
> Possibly the script raises an error. If you use "On Error Resume Next",
> remove that so you see the error message. Otherwise, you may need to post
> the script here so we can evaluate it. Some methods commonly used to
> evaluate group membership are flawed, for example.
>
> --
> Richard Mueller
> MVP Directory Services
> Hilltop Lab - http://www.rlmueller.net
> --
>
>

total size of files

Tom1 — Wed, 18 Nov 2009 15:19:59 GMT

On Nov 18, 11:58*am, Tom Lavedas wrote:

Quote:

> On Nov 18, 11:40*am, Tom1 wrote:
>
>
>
>
>

Quote:

> > On Nov 18, 10:43*am, Tom Lavedas wrote:

Quote:

> > > On Nov 18, 10:19*am, Tom1 wrote:

Quote:

> > > > I need a script to find out the number & total size of files based
> > > > upon the file extention across about 30 servers. I'm searching for mdb
> > > > files. The script will be run remotely against local drives on these
> > > > servers. Thanks

Quote:

> > >
> > >

Quote:

> > > with createobject("scripting.filesystemobject")
> > > * aComputers = split(.opentextfile("D:\Someplace\complist.txt", _
> > > * * * * * * * * 1).readall, vbnewline)
> > > end with

Quote:

> > > nComputers = UBound(aComputers)
> > > Redim aData(nComputers)

Quote:

> > > for i = 0 to nComputers
> > > * nSize = 0
> > > * nCount = 0
> > > * Set objWMIService = GetObject("winmgmts:" _
> > > * * & "{impersonationLevel=impersonate}!\\" & _
> > > * * * * aComputers(i) & "\root\cimv2")
> > > * Set colFiles = objWMIService.ExecQuery _
> > > * * ("Select * from CIM_DataFile where Extension = 'mdb'", , 48)
> > > * For Each objFile in colFiles
> > > * * nSize = nSize + objFile.size
> > > * Next
> > > * nCount = nCount + colFiles.count
> > > * aData(i) = Join(Array(aComputers(i), nCount, nSize), ", ")
> > > Next

Quote:

> > > wsh.echo Join(aData, vbnewline)

Quote:

> > >
> > >

Quote:

> > > Another warning: *CIM_DataFile searches are SLOW. *Be prepared toW -
> > > A - I - T.
> > > _____________________
> > > Tom Lavedas

Quote:

> > Thanks but I get the following error message:

Quote:

> > test.vbs(22, 5) Microsoft VBScript runtime error: Object doesn't
> > support this property or method: 'size'

>
> I was afraid of that - I keep forgetting what the differences are
> between Shell.Application and FSO. *OK, try this mod ...
>
> set fso = *createobject("scripting.filesystemobject")
> with fso
> * aComputers = split(.opentextfile("D:\Someplace\complist.txt", _
> * * * * * * * * 1).readall, vbnewline)
> end with
>
> nComputers = UBound(aComputers)
> Redim aData(nComputers)
>
> for i = 0 to nComputers
> * nSize = 0
> * nCount = 0
> * Set objWMIService = GetObject("winmgmts:" _
> * * & "{impersonationLevel=impersonate}!\\" & _
> * * * * aComputers(i) & "\root\cimv2")
> * Set colFiles = objWMIService.ExecQuery _
> * * ("Select * from CIM_DataFile where Extension = 'mdb'", , 48)
> * For Each objFile in colFiles
> * * nSize = nSize + fso.GetFile(objFile.Path).size
> * Next
> * nCount = nCount + colFiles.count
> * aData(i) = Join(Array(aComputers(i), nCount, nSize), ", ")
> Next
>
> wsh.echo Join(aData, vbnewline)
> _____________________
> Tom Lavedas- Hide quoted text -
>
> - Show quoted text -

Still not working -- test.vbs(24, 5) Microsoft VBScript runtime error:
File not found

Re: Remove extra Double codes from CSV Files (vb Script Language)

Paul Randall — Wed, 18 Nov 2009 04:08:00 GMT

"Learn4Develop" wrote in message
news:C072F055-9B82-4D2D-A4D2-216403F47814@newsgroup

Quote:

> On daily bases I have received files with double quotes comma separated,
> but
> in some records I found 2 times double quotes and some time different
> squence
> of double quotes placements.
>
> I just want to remove all unnecessary (extra) double quotes (see the
> following values where i want to remove extra double quotes.
>
> "0123x",""Company D-Val"","Class D, sector N","DD5894"
> "4894D",""Recycle" Rubbish, C class","Class D, Sector F, Block N","D870GH"
> "AB8679",""AB Ltd"",""Need" Clean Drive Way, stores","GF0347"
>
>
> I am looking the output like that.
>
> "0123x","Company D-Val","Class D, sector N","DD5894"
> "4894D","Recycle Rubbish, C class","Class D, Sector F, Block N","D870GH"
> "AB8679","AB Ltd","Need Clean Drive Way, stores","GF0347"
>
>
> Following code i used is work fine with ""Company D-Val"" but didn't work
> with ""Recycle" Rubbish, C class", The code is
>
> code:-
> Do While inFile.AtEndOfStream = False
> record = InFile.ReadLine()
> record = Replace(record, """", """") 'replace "" with single space
> outFile.WriteLine record & vbclrf
> Loop

I agree with Christoph that either the mechanism that creates this
non-standard quoting of a CSV file should be made more robust, or a more
robust mechanism should be used to read the poorly implimented CSV file.
Perhaps a simple VBScript using ADO as the robust file reading mechanism
could be used.

-Paul Randall

Re: Remove extra Double codes from CSV Files (vb Script Language)

Christoph Basedau — Tue, 17 Nov 2009 23:31:32 GMT

Learn4Develop schrieb:

Quote:

> On daily bases I have received files with double quotes comma separated, but
> in some records I found 2 times double quotes and some time different squence
> of double quotes placements.
>
> I just want to remove all unnecessary (extra) double quotes (see the
> following values where i want to remove extra double quotes.
>
> "0123x",""Company D-Val"","Class D, sector N","DD5894"
> "4894D",""Recycle" Rubbish, C class","Class D, Sector F, Block N","D870GH"
> "AB8679",""AB Ltd"",""Need" Clean Drive Way, stores","GF0347"
>
>
> I am looking the output like that.
>
> "0123x","Company D-Val","Class D, sector N","DD5894"
> "4894D","Recycle Rubbish, C class","Class D, Sector F, Block N","D870GH"
> "AB8679","AB Ltd","Need Clean Drive Way, stores","GF0347"

If you want to implement the appropriate algorithm, you cannot
use a replace-mechanism based on literals, you always have to be
aware of the quoting and delimiting context.
The right way, j2mc, is to parse the string char by char, count the
DQs and check whether a DQ is followed by a delimiter.
If the delimiter appears after an even number of DQs it truly terminates
the token, if the number is odd it's an "inline-delimiter".
A DQ on the other hand is kept if its the first one (obvious,
as opener) or one with an even ordinal number followed by the delimiter
(terminator).

Christoph

In VBS a function that follows these rules would like this:

'---------------------
Function unquote(record)

Const DQ = """"
Const CM = ","

Dim newRecord
Dim dqCount
Dim char
Dim nextChar
Dim i
Dim keep

newRecord = ""
dqCount = 0

For i = 1 To Len(Record)

char = Mid(record, i, 1)
nextChar = Mid(record, i+1, 1)
keep = 0

If char = DQ Then
If dqCount = 0 Then
'beginning of token
keep = 1
dqCount = 1

ElseIf (dqCount Mod 2 = 1) And _
(nextChar = CM OR nextChar = "") Then

'end of token marked by ", OR "\r\n
keep = 1
dqCount = 0
Else
'inline "
keep = 0
dqCount = dqCount + 1
End If
Else
'char other then "
keep = 1
End If
If keep = 1 Then
newRecord = newRecord & char
End If
'WSH.Echo dqCount, i, keep, char, nextchar, newRecord
Next
unquote = newRecord
End Function
'---------------------

To test the results, run:

'---------------------
Option Explicit
Dim records
records = Array ( _
"""0123x"",""""Company D-Val"""",""Class D, sector N"",""DD5894""" _
, """4894D"",""""Recycle"" Rubbish, C class"",""Class D, Sector F, Block
N"",""D870GH""" _
, """AB8679"",""""AB Ltd"""",""""Need"" Clean Drive Way,
stores"",""GF0347""" _
, """""AB8679"", Test New"",""""""AB Ltd"""""",""""Need"" Clean Drive
Way, stores"",""GF0347""" _
)

Dim Record

For Each Record in records
WSH.Echo record
WSH.Echo unquote(record)
WSH.Echo
Next

Function unquote(record)
....
End Function
'---------------------

Win 2008 prompting to run .vbs

David Kerber — Tue, 17 Nov 2009 19:03:20 GMT

How do I keep my win 2008 server from asking me if I want to run a .vbs,
when it was called from a .cmd file? I'm logged on as a normal user
when running it, but can log on as administrator to change settings if
necessary.

--
/~\ The ASCII
\ / Ribbon Campaign
X Against HTML
/ \ Email!

Remove the ns_ from if replying by e-mail (but keep posts in the
newsgroups if possible).

Re: Overwritting

Steve — Tue, 17 Nov 2009 05:53:14 GMT

Hi Csaba,

Great thanks for that.
The script may need to display two or more hyperlinks down the page, how do
I display the second and third ones? I tried the following line but it came
up with an error?

Set newLink = document.createElement("B")

Regards, Steve

"Csaba Gabor" wrote:

Quote:

> On Nov 15, 10:44 pm, Steve wrote:

Quote:

> > I have a little VBScript program embedded into a web page that displays
> > hyperlinks but it overwites what was on the web page previous to running the
> > script, how do I stop it overwrite what was previously on the page? script
> > below
> >
> > document.WriteLN("Google
")

>
> This script below shows two ways to append your links.
>
> Set newLink = document.createElement("A")
> newLink.href = "http://google.com"
> newLink.innerText = "My link to Google"
> document.body.appendChild newLink
>
> document.body.innerHTML = document.body.innerHTML & _
> "
My link to eBay"
>
> The first way (first 4 lines) is the "more proper" way.
> The reason is because the second way can overwrite
> other things you may have done with your web page.
> For example, you will get an error if you append the
> following line to the code above:
>
> MsgBox newLink.parentNode.outerHTML
>
> since the act of rewriting the body, wipes out variables
> and event handlers and some other modifications that
> may have been set because the entire DOM is redone.
>
> Csaba Gabor from Vienna
> .
>

Re: Remove extra Double codes from CSV Files (vb Script Language)

Todd Vargo — Tue, 17 Nov 2009 04:16:34 GMT

Learn4Develop wrote:

Quote:

> On daily bases I have received files with double quotes comma separated,

but

Quote:

> in some records I found 2 times double quotes and some time different

squence

Quote:

> of double quotes placements.
>
> I just want to remove all unnecessary (extra) double quotes (see the
> following values where i want to remove extra double quotes.
>
> "0123x",""Company D-Val"","Class D, sector N","DD5894"
> "4894D",""Recycle" Rubbish, C class","Class D, Sector F, Block N","D870GH"
> "AB8679",""AB Ltd"",""Need" Clean Drive Way, stores","GF0347"
>
>
> I am looking the output like that.
>
> "0123x","Company D-Val","Class D, sector N","DD5894"
> "4894D","Recycle Rubbish, C class","Class D, Sector F, Block N","D870GH"
> "AB8679","AB Ltd","Need Clean Drive Way, stores","GF0347"
>
>
> Following code i used is work fine with ""Company D-Val"" but didn't work
> with ""Recycle" Rubbish, C class", The code is
>
> code:-
> Do While inFile.AtEndOfStream = False
> record = InFile.ReadLine()
> record = Replace(record, """", """") 'replace "" with single space
> outFile.WriteLine record & vbclrf
> Loop

record = Replace(record, Chr(34)&Chr(34), Chr(34)) 'replace "" with single "

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)

Re: Remove extra Double codes from CSV Files (vb Script Language)

Al Dunbar — Tue, 17 Nov 2009 03:48:10 GMT

"Learn4Develop" wrote in message
news:C072F055-9B82-4D2D-A4D2-216403F47814@newsgroup

Quote:

The rubbish line looks like exactly that. the first paired double quotes are
not matched by another such pair. In the context of your data, what does it
mean to have a doubled double-quote?

Quote:

>
> I am looking the output like that.
>
> "0123x","Company D-Val","Class D, sector N","DD5894"
> "4894D","Recycle Rubbish, C class","Class D, Sector F, Block N","D870GH"
> "AB8679","AB Ltd","Need Clean Drive Way, stores","GF0347"
>
>
> Following code i used is work fine with ""Company D-Val"" but didn't work
> with ""Recycle" Rubbish, C class", The code is
>
> code:-
> Do While inFile.AtEndOfStream = False
> record = InFile.ReadLine()
> record = Replace(record, """", """") 'replace "" with single space

That replace call seems to change each double quote with exactly one double
quote.

Perhaps you just need to change each pair of double quotes with a single
double quote.

/Al

Quote:

> outFile.WriteLine record & vbclrf
> Loop

Re: Remove extra Double codes from CSV Files (vb Script Language)

Pegasus [MVP] — Mon, 16 Nov 2009 21:15:54 GMT

Strange - my initial reply appears to have disappeared into the never-never.
I'll try to post it once more:

You could do it like this for every line of text:
1. Replace every "," with your own delimiter. I use chr(0).
2. Remove all remaining double quotes.
3. Replace your own delimiters with ",".
4. Surround the line with double quotes.
This code appears to work for your data sample:

Q = """"
Z = Chr(0)
sDelimiter = Q & "," & Q
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("d:\test.txt")
While Not oFile.AtEndOfStream
sLine = Replace(oFile.ReadLine, sDelimiter, Z)
sLine = Replace(sLine, Q, "")
sLine = Q & Replace(sLine, Z, sDelimiter) & Q
WScript.Echo sLine
Wend

Re: Remove extra Double codes from CSV Files (vb Script Language)

Pegasus [MVP] — Mon, 16 Nov 2009 20:54:18 GMT

"Learn4Develop" wrote in message
news:C072F055-9B82-4D2D-A4D2-216403F47814@newsgroup

Quote:

You could do it like this for every line of text:
1. Replace every "," with your own delimiter. I use chr(0).
2. Remove all remaining double quotes.
3. Replace your own delimiters with ",".
4. Surround the line with double quotes.
This code appears to work for your data sample:

Q = """"
Z = Chr(0)
sDelimiter = Q & "," & Q
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("d:\test.txt")
While Not oFile.AtEndOfStream
sLine = Replace(oFile.ReadLine, sDelimiter, Z)
sLine = Replace(sLine, Q, "")
sLine = Q & Replace(sLine, Z, sDelimiter) & Q
WScript.Echo sLine
Wend

Re: Remove extra Double codes from CSV Files (vb Script Language)

Tom Lavedas — Mon, 16 Nov 2009 15:28:03 GMT

Learn4Develop wrote:

Quote:

> Hi Tom
> Thanks for the code, its working fine with the above criteria, but gives
> me error if there is Null value between double quotes ("") i.e.
>
> ("AB8679","""",""Need" Clean Drive Way, stores","")
>
> As i have some columns in CSV file where the value is Null "". How i can
> resolve it.
>
> Thanks again for your great help.

ISTM, only strings containing a comma should need quoted. But since you say
it gives you an error, it begs the questions. What is giving the error? And
what is creating these incorrect csv files?

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)

Re: Overwritting

mayayana — Mon, 16 Nov 2009 15:04:24 GMT

In addition to the other ideas, you might want to
look into insertAdjacentHTML. That method
allows you to add new HTML in relation to any
object. If you assign IDs to objects then it's
easy to call.
Also, createTextRange and the TextRange object
provide ways to add or edit text.

I don't know whether these methods are the same
in the DOM used by Firefox/Opera, but if you're only
using VBS with IE you don't need to worry about that.

Quote:

> I have a little VBScript program embedded into a web page that displays
> hyperlinks but it overwites what was on the web page previous to running

the

Quote:

> script, how do I stop it overwrite what was previously on the page? script
> below
>
> document.WriteLN("Google
")
>
> Thanks, Steve