1. We have moved from vBulletin to XenForo and you are viewing the site in the middle of the move. Though the functional aspect of everything is working fine, we are still working on other changes including the new design on Xenforo.
    Dismiss Notice

PLEASE HELP ---> My folder permissions vbs is not working

Discussion in 'Web Design, HTML And CSS Forums' started by case2k8, Aug 5, 2008.

  1. case2k8

    case2k8 New Member

    Joined:
    Aug 5, 2008
    Messages:
    3
    Likes Received:
    0
    Trophy Points:
    0
    Here is the script that needs an expert to look at:

    Note: The only thing working on this script is a successful installation of TOAD. The permissions section and the copy file section is not working. Can you help?

    Code:
    On Error Resume NExt
    Dim objShell, objNewPort, objWMIService, oFSO, Path, strComputerA 
    Dim RunErrorToReturn, Results 
    Dim strComputer : strComputer = "." 
    Dim objNetwork : Set objNetwork = CreateObject("WScript.Network") 
    strComputerA = objNetwork.ComputerName
    
    Set objWMIService = GetObject("winmgmts:"& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    Set objShell = CreateObject("WScript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    ProgramFiles = objShell.ExpandEnvironmentStrings("%ProgramFiles%")
    windir= objShell.ExpandEnvironmentStrings("%windir%")
    temp = objShell.ExpandEnvironmentStrings("%temp%")
    allusers=objShell.ExpandEnvironmentStrings("%AllUsersProfile%")
    
    path= oFSO.GetParentFolderName(WScript.ScriptFullName)
    
    objShell.Run path+"\Toad_Standalone\9_6_1_1\ToadforOracle961SetupFull.msi /qb ALLUSERS=1 ADDLOCAL=Server,Client",1,TRUE
    
    objShell.Run """" & path & "\Setacl.exe"" -on """ & ProgramFiles & "\Quests~1"" -ot file -actn ace -ace ""n:S-1-5-11;p:full;s:y"" -actn clear -clr ""dacl,sacl"" -actn rstchldrn -rst ""dacl,sacl"" -silent",1,TRUE 
    
    Set fso=CreateObject("Scripting.FileSystemObject")
    fso.CopyFile "\\server\esl$\Oracle\Toad\9.6.1\Client\QSAuth11.key", "C:\Program Files\Quest Software\Toad for Oracle\", 0, TRUE
    
    
    'If there was an error return it otherwise return 0 with a success; 
    If Err.Number<>0 Then 
    RunErrorToReturn = Err.Number 
    Results = src1(1) & vbstatus & ", exiting." 
    SMSWriteStatusMIF "if then", "TOAD961", "1", Results, src2(1) 
    wscript.quit(RunErrorToReturn) 
    Else 
    RunErrorToReturn = 0
     
    Last edited by a moderator: Aug 6, 2008
  2. case2k8

    case2k8 New Member

    Joined:
    Aug 5, 2008
    Messages:
    3
    Likes Received:
    0
    Trophy Points:
    0
    I got it to work with Setacl.exe. This exe has to be in the same directory as the vbs.

    Also, I needed to put an "o" in front of the fso for the copy command to work.

    Thanks!!
     
  3. pradeep

    pradeep Team Leader

    Joined:
    Apr 4, 2005
    Messages:
    1,646
    Likes Received:
    86
    Trophy Points:
    0
    Occupation:
    Programmer
    Location:
    Kolkata, India
    Home Page:
    Why arent you using the cacls command?
     

Share This Page