Groups > comp.lang.basic.visual.misc > #1798

Getting some system information via VBSCript

Path	csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!feeder.erje.net!eu.feeder.erje.net!de-l.enfer-du-nord.net!feeder1.enfer-du-nord.net!feeder2.enfer-du-nord.net!gegeweb.org!.POSTED!not-for-mail
From	vincent.belaiche@gmail.com (Vincent Belaïche)
Newsgroups	comp.lang.basic.visual.misc
Subject	Getting some system information via VBSCript
Date	Wed, 10 Jul 2013 12:16:43 +0200
Organization	Gegeweb News Server
Lines	57
Message-ID	<8061win2ic.fsf@gmail.com> (permalink)
NNTP-Posting-Host	arennes-353-1-12-253.w92-135.abo.wanadoo.fr
Mime-Version	1.0
Content-Type	text/plain; charset=iso-8859-1
Content-Transfer-Encoding	8bit
X-Trace	obelix.gegeweb.org 1373451527 72213 92.135.107.253 (10 Jul 2013 10:18:47 GMT)
X-Complaints-To	abuse@gegeweb.org
NNTP-Posting-Date	Wed, 10 Jul 2013 10:18:47 +0000 (UTC)
User-Agent	Gnus/5.130008 (Ma Gnus v0.8) Emacs/24.3.50 (windows-nt)
Cc	Vincent Belaïche <vincent.belaiche@gmail.com>
Cancel-Lock	sha1:TZ3QaKiaHMcIupOC0iOPBxH2uT0=
Xref	csiph.com comp.lang.basic.visual.misc:1798

Show key headers only | View raw

Hello,

I have written the following script
'#######################################################################
Dim oFSO
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject" )

Const iIS_DIRECTORY = 16
Const iIS_READ_ONLY = 1

Function HasWriteAccess(sFolderName_IN) 'As String
   Dim oFolder
   Set oFolder = oFSO.GetFolder(sFolderName_IN)
   Dim iAttr
   iAttr = 0
   On Error Resume Next
   iAttr = oFolder.Attributes
   Set oFolder = Nothing
   If ((iAttr And 16 ) <> 0) And ((iAttr And 1 ) = 0) Then
      HasWriteAccess = "true"
   Else
      HasWriteAccess = "false"
   End If
End Function

Dim oWshShell, sPrograms, sWritablePrograms
Set oWshShell = WScript.CreateObject("WScript.Shell" )
sPrograms = oWshShell.SpecialFolders("Programs")
sWritablePrograms = HasWriteAccess(sPrograms)

WScript.Echo "Programs=" & sPrograms
WScript.Echo "WritablePrograms=" & sWritablePrograms
'######################################################################

and when I run it the response is as follows:
'######################################################################
Microsoft (R) Windows Script Host Version 5.7
Copyright (C) Microsoft Corporation 1996-2001. Tous droits réservés.

Programs=C:\Documents and Settings\Vincent\Menu Démarrer\Programmes
WritablePrograms=false
'######################################################################

Now, this answer seems wrong to me, because if I open some command line
console and I do:

Rem ###################################################################
cd /D "C:\Documents and Settings\Vincent\Menu Démarrer\Programmes"
mkdir toto
Rem ###################################################################

That will work without error, i.e. --- contrary to the script response I
do have write access on special folder "Programs".

Any help is welcome.

    Vincent.

Back to comp.lang.basic.visual.misc | Previous | Next — Next in thread | Find similar | Unroll thread

Thread

Getting some system information via VBSCript vincent.belaiche@gmail.com (Vincent Belaïche) - 2013-07-10 12:16 +0200
  Re: Getting some system information via VBSCript "Mayayana" <mayayana@invalid.nospam> - 2013-07-10 08:53 -0400
    Re: Getting some system information via VBSCript vincent.belaiche@gmail.com (Vincent Belaïche) - 2013-07-10 22:46 +0200
      Re: Getting some system information via VBSCript "Mayayana" <mayayana@invalid.nospam> - 2013-07-10 19:06 -0400
        Re: Getting some system information via VBSCript "Theo Tress" <rbk@online.de> - 2013-08-14 15:21 +0200
          Re: Getting some system information via VBSCript "Mayayana" <mayayana@invalid.nospam> - 2013-08-14 10:16 -0400
            Re: Getting some system information via VBSCript Deanna Earley <dee.earley@icode.co.uk> - 2013-08-14 16:41 +0100
              Re: Getting some system information via VBSCript "Mayayana" <mayayana@invalid.nospam> - 2013-08-14 11:53 -0400
          Re: Getting some system information via VBSCript ralph <nt_consulting@yahoo.com> - 2013-08-14 11:23 -0500
  Re: Getting some system information via VBSCript Deanna Earley <dee.earley@icode.co.uk> - 2013-07-11 09:48 +0100
    Re: Getting some system information via VBSCript vincent.belaiche@gmail.com (Vincent Belaïche) - 2013-07-12 22:00 +0200

csiph-web