2D scaling using a VBscript

Hi,
I would like to change the begin and end point of a 2D system using a VBscript inside Diadem . But I have not found an example of how I can use "D2AxisXScaletype" parameter.
I have tried in this way:
Call GraphObjChnClear("2DAxis1")
call GraphObjOpen(D2AxisYObj(D2AxisPairNo(1)))
D2AxisXScaletype= "begin/end manual"
D2AxisXDivMode="linear"
' this is my start point
D2AxisXBegin=chd(1, intNumChannel)
' thjs is my last point
D2AxisXEnd=chd(NumMaxMin, intNumChannel)
call GraphObjClose(D2AxisYObj(D2AxisPairNo(1)))
' Close axis object.
Call GraphObjClose("2DAxis1")
But I generate the following error:
Invalid variable access (D2AXISXSCALETYPE).
Parent object open?
Can someone send my an example of how I should work with "D2AxisXScaletype"?
Thanks

Hi koniker,
You're close to having the code correct. But you open up the Y axis and then try to edit the X axis scaling method-- that won't work. Try this code instead:
intNumChannel = 1
NumMaxMin = ChnLength(intNumChannel)
Call GraphObjOpen("2DAxis1")
Call GraphObjOpen(D2AxisXObj(1))
D2AxisXScaletype = "begin/end manual"
D2AxisXDivMode = "linear"
D2AxisXBegin = ChDX(1, intNumChannel)
D2AxisXEnd = ChDX(NumMaxMin, intNumChannel)
Call GraphObjClose(D2AxisXObj(1))
Call GraphObjClose("2DAxis1")
Call PicUpdate
Cheers,
Brad Turpin
DIAdem Product Support Engineer
National Instruments

Similar Messages

  • Problems with the scaling using  a tachometer

    Hi all,
    I have the following problem: i have a query that shows me a % of Card make in one day, i need to fix the scaling from 0% to 100% but it always get fixed automatic. I go to edit the Axis and then i set Minimum Value = 0 and Minimum  Calculation = user Defined and Maximum Value = 100 and Maximum Calculation = user Defined but it always get fixed with automatic scaling. What can i do?
    Thanks a lot
    PS: I´ll wait for the response and then i´ll give some starts !!!
    Regards,
    Roberth

    Hi Roberth,
    Please check out OSS note 959964 - Chart: User-defined values of axis range are ignored. We were facing the same issue and this note fixed it for us.
    Symptom
    The axis range of the chart ignores the user-defined settings. Instead it uses the automatic calculation of the axis range.
    Other terms
    Minimum Maximum calculation gfwchart xmlchart chart engine
    Reason and Prerequisites
    You use SAPGUI 6.40 >= patch 18 and an IGS 6.40.
    Solution
    Please install IGS 6.40 >= patch 16.
    Hope this helps...

  • Chart y axis scaling using msum

    hi,
    Is there any possibility to change the y-axis(sales- msum) range in the charts? I did search, but couldnt find the proper answer for this.
    Let us say I have my y-axis sales range 0 - 1million, but dont have any values under 0.8million. So I want to keep my chart y-axis range starts from 0.8million. I have the sales in the chart that is calculated using msum.
    Is there any such option to customize the y-axis scale ?
    Thanks,
    Mani

    Hi Mani,
    You can do that by setting minimum value and maximum value in Axis scaling tab(middle tab in 5 tabs for chart ) in chart view.
    Thanks
    Sandeep

  • Image Scaling using servlet

    Hi guys ,
    I am facing problems where i have to download a image from a database and scale it to a thumbnail.
    i am using below code to get the image from db and to write it to stream.
      conn = Utilities.getDBConnection();
               stream = response.getOutputStream();
               ps = conn.prepareStatement("query");
               rs = ps.executeQuery();
               while(rs.next())
                   Blob attach = null;
                   byte[] blobBytesArray = null;
                   attach = rs.getBlob(1);
                   int len = new Integer( new Long( attach.length()).toString() ).intValue();
                   blobBytesArray = attach.getBytes(1,len);
                   if (blobBytesArray != null)
                     if (blobBytesArray.length > 0 )
                          stream.write(blobBytesArray) ;
                          stream.flush();
                          stream.close();
                  }How to scale this image?

    Apparently you want to display this image in a webpage, so I'd say that CSS is the way to scale the displayed image.
    If you want to do it in the servlet you'd have to turn the image into a BufferedImage (using the ImageIO class) and use the Graphics class to create a scaled instance of it, then output the binary image data of the scaled instance back to the servlet's outputstream using the ImageIO class again.

  • Bad scaling using measurement automation explorer

    I have tried about a million times now to properly create a scale in MAX 3.0.2
    Essentially, all I want to be able to do - fairly simple you would think - is apply a linear multiplication to an input channel of an AC signal voltage. Without any scaling, I am seeing my input signal as a +/- 8 VAC signal. After applying a linear or a mapping scale, it does scale the voltage, but it then proceeds to trim off the top of the AC signal(And I have checked to make sure my graph axes are correct)?????? If I apply a multiplication factor of 5 inside my program it works absolutely fine and simply multiplies the incoming voltage by a factor of 5... sounds like scaling to me. I would like to use scaling on other channels, but
    this experience does not give me much desire to. Can anyone explain what is going on? I have tried creating the scale in dozens of different ways always getting the same results.

    Hello,
    Are you using NI-DAQ Virtual Channels or NI-DAQmx Tasks? I don't think that your scale settings are wrong but the Input range you've selected. Go to the "Analog Input Voltage Task" Window (for DAQmx Tasks). There you've to select your custom scale and define your Input Range. Try to increase your Input Range to expected scaled value and not to the real voltage your measuring.
    Hope this helps.
    Luca
    Regards,
    Luca

  • Help with Replacing text in a file using a vbscript

    I have the following script which I am wanting to
    1. Take the prf file and read it
    2. Edit a line in the  outlook .prf file replacing it with the text I have asked it to replace which is the full name of the user pulled from the currently logged on user
    The problem I am seeing is that when the temp file is being generated it is throwing off the formatting of the file hence the script doesn't work. Can anyone help me please.
    set objSysInfo = CreateObject("ADSystemInfo")
    struser = objSysInfo.Username
    set objUser = GetObject("LDAP://" & strUser)
    strFullName = objUser.Get("displayName")
    Const ForReading=1
    Const ForWriting=2
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    folder = "C:\test"
    'filePath = folder & "file.txt"
    filePath = "c:\test\test2007_3.prf"
    Set myFile = objFSO.OpenTextFile(filePath, ForReading)
    Set myTemp= objFSO.OpenTextFile(filePath & ".tmp", ForWriting, True)
    Do While Not myFile.AtEndofStream
    myLine = myFile.ReadLine
     If InStr(myLine, "MailboxName=%UserName%") Then
      myLine = "&strFullName"
     End If
     myTemp.WriteLine myLine
    Loop
    myFile.Close
    myTemp.Close
    objFSO.DeleteFile(filePath)
    objFSO.MoveFile filePath& ".tmp", filePath
    Christopher

    Sorry Irv,
    Here is the code I have and then after that is the prf file. I think there is an issue with the file structure because if I take a regular text file and add the lines in there myself it replaces the lines, but with the prf file or even the prf file as a
    text file it gives me the invalid argument message
    Const filePath = "c:\test\test2007_3.txt"
     Set objFSO = CreateObject("Scripting.FileSystemObject")
     Set myFile = objFSO.OpenTextFile(filePath)
    fileText = myFile.ReadAll()
    myFile.Close
    fileText=Replace(fileText,"%UserName%","THIS_IS_THS_REPLACEMENT_TEXT")
     Set myTemp= objFSO.OpenTextFile(filePath, 2, True)
     myTemp.Write fileText
     myTemp.Close
    ;Automatically generated PRF file from the Microsoft Office Customization and Installation Wizard
    ; Section 1 - Profile Defaults
    [General]
    Custom=1
    ProfileName=Somthing
    DefaultProfile=Yes
    OverwriteProfile=Yes
    ModifyDefaultProfileIfPresent=false
    DefaultStore=Service1
    ; Section 2 - Services in Profile
    [Service List]
    ServiceX=Microsoft Outlook Client
    ServiceEGS=Exchange Global Section
    Service1=Microsoft Exchange Server
    ServiceEGS=Exchange Global Section
    ; Section 3 - List of internet accounts
    [Internet Account List]
    ; Section 4 - Default values for each service.
    [ServiceX]
    CachedExchangeMode=0x00000002
    CachedExchangeSlowDetect=true
    [ServiceEGS]
    CachedExchangeConfigFlags=0x00000900
    MailboxName=%UserName%
    HomeServer=
    RPCoverHTTPflags=0x0027
    RPCProxyServer=
    RPCProxyPrincipalName=
    RPCProxyAuthScheme=0x0001
    [Service1]
    OverwriteExistingService=No
    UniqueService=Yes
    MailboxName=%UserName%
    HomeServer=
    OfflineAddressBookPath=%USERPROFILE%\local settings\application data\microsoft\outlook\
    OfflineFolderPathAndFilename=%USERPROFILE%\local settings\application data\microsoft\outlook\outlook.ost
    AccountName=Microsoft Exchange Server
    DefaultAccount=TRUE
    ;[ServiceX]
    ;FormDirectoryPage=
    ;-- The URL of Exchange Web Services Form Directory page used to create Web forms.
    ;WebServicesLocation=
    ;-- The URL of Exchange Web Services page used to display unknown forms.
    ;ComposeWithWebServices=
    ;-- Set to true to use Exchange Web Services to compose forms.
    ;PromptWhenUsingWebServices=
    ;-- Set to true to use Exchange Web Services to display unknown forms.
    ;OpenWithWebServices=
    ;-- Set to true to prompt user before opening unknown forms when using Exchange Web Services.
    ; Section 5 - Values for each internet account.
    ; Section 6 - Mapping for profile properties
    [Microsoft Exchange Server]
    ServiceName=MSEMS
    MDBGUID=5494A1C0297F101BA58708002B2A2517
    MailboxName=PT_STRING8,0x6607
    HomeServer=PT_STRING8,0x6608
    OfflineAddressBookPath=PT_STRING8,0x660E
    OfflineFolderPathAndFilename=PT_STRING8,0x6610
    [Exchange Global Section]
    SectionGUID=13dbb0c8aa05101a9bb000aa002fc45a
    MailboxName=PT_STRING8,0x6607
    HomeServer=PT_STRING8,0x6608
    RPCoverHTTPflags=PT_LONG,0x6623
    RPCProxyServer=PT_UNICODE,0x6622
    RPCProxyPrincipalName=PT_UNICODE,0x6625
    RPCProxyAuthScheme=PT_LONG,0x6627
    CachedExchangeConfigFlags=PT_LONG,0x6629
    [Microsoft Mail]
    ServiceName=MSFS
    ServerPath=PT_STRING8,0x6600
    Mailbox=PT_STRING8,0x6601
    Password=PT_STRING8,0x67f0
    RememberPassword=PT_BOOLEAN,0x6606
    ConnectionType=PT_LONG,0x6603
    UseSessionLog=PT_BOOLEAN,0x6604
    SessionLogPath=PT_STRING8,0x6605
    EnableUpload=PT_BOOLEAN,0x6620
    EnableDownload=PT_BOOLEAN,0x6621
    UploadMask=PT_LONG,0x6622
    NetBiosNotification=PT_BOOLEAN,0x6623
    NewMailPollInterval=PT_STRING8,0x6624
    DisplayGalOnly=PT_BOOLEAN,0x6625
    UseHeadersOnLAN=PT_BOOLEAN,0x6630
    UseLocalAdressBookOnLAN=PT_BOOLEAN,0x6631
    UseExternalToHelpDeliverOnLAN=PT_BOOLEAN,0x6632
    UseHeadersOnRAS=PT_BOOLEAN,0x6640
    UseLocalAdressBookOnRAS=PT_BOOLEAN,0x6641
    UseExternalToHelpDeliverOnRAS=PT_BOOLEAN,0x6639
    ConnectOnStartup=PT_BOOLEAN,0x6642
    DisconnectAfterRetrieveHeaders=PT_BOOLEAN,0x6643
    DisconnectAfterRetrieveMail=PT_BOOLEAN,0x6644
    DisconnectOnExit=PT_BOOLEAN,0x6645
    DefaultDialupConnectionName=PT_STRING8,0x6646
    DialupRetryCount=PT_STRING8,0x6648
    DialupRetryDelay=PT_STRING8,0x6649
    [Personal Folders]
    ServiceName=MSPST MS
    Name=PT_STRING8,0x3001
    PathAndFilenameToPersonalFolders=PT_STRING8,0x6700 
    RememberPassword=PT_BOOLEAN,0x6701
    EncryptionType=PT_LONG,0x6702
    Password=PT_STRING8,0x6703
    [Unicode Personal Folders]
    ServiceName=MSUPST MS
    Name=PT_UNICODE,0x3001
    PathAndFilenameToPersonalFolders=PT_STRING8,0x6700 
    RememberPassword=PT_BOOLEAN,0x6701
    EncryptionType=PT_LONG,0x6702
    Password=PT_STRING8,0x6703
    [Outlook Address Book]
    ServiceName=CONTAB
    [LDAP Directory]
    ServiceName=EMABLT
    ServerName=PT_STRING8,0x6600
    UserName=PT_STRING8,0x6602
    UseSSL=PT_BOOLEAN,0x6613
    UseSPA=PT_BOOLEAN,0x6615
    EnableBrowsing=PT_BOOLEAN,0x6622
    DisplayName=PT_STRING8,0x3001
    ConnectionPort=PT_STRING8,0x6601
    SearchTimeout=PT_STRING8,0x6607
    MaxEntriesReturned=PT_STRING8,0x6608
    SearchBase=PT_STRING8,0x6603
    CheckNames=PT_STRING8,0x6624
    DefaultSearch=PT_LONG,0x6623
    [Microsoft Outlook Client]
    SectionGUID=0a0d020000000000c000000000000046
    FormDirectoryPage=PT_STRING8,0x0270
    WebServicesLocation=PT_STRING8,0x0271
    ComposeWithWebServices=PT_BOOLEAN,0x0272
    PromptWhenUsingWebServices=PT_BOOLEAN,0x0273
    OpenWithWebServices=PT_BOOLEAN,0x0274
    CachedExchangeMode=PT_LONG,0x041f
    CachedExchangeSlowDetect=PT_BOOLEAN,0x0420
    [Personal Address Book]
    ServiceName=MSPST AB
    NameOfPAB=PT_STRING8,0x001e3001
    PathAndFilename=PT_STRING8,0x001e6600
    ShowNamesBy=PT_LONG,0x00036601
    ; Section 7 - Mapping for internet account properties.  DO NOT MODIFY.
    [I_Mail]
    AccountType=POP3
    ;--- POP3 Account Settings ---
    AccountName=PT_UNICODE,0x0002
    DisplayName=PT_UNICODE,0x000B
    EmailAddress=PT_UNICODE,0x000C
    ;--- POP3 Account Settings ---
    POP3Server=PT_UNICODE,0x0100
    POP3UserName=PT_UNICODE,0x0101
    POP3UseSPA=PT_LONG,0x0108
    Organization=PT_UNICODE,0x0107
    ReplyEmailAddress=PT_UNICODE,0x0103
    POP3Port=PT_LONG,0x0104
    POP3UseSSL=PT_LONG,0x0105
    ; --- SMTP Account Settings ---
    SMTPServer=PT_UNICODE,0x0200
    SMTPUseAuth=PT_LONG,0x0203
    SMTPAuthMethod=PT_LONG,0x0208
    SMTPUserName=PT_UNICODE,0x0204
    SMTPUseSPA=PT_LONG,0x0207
    ConnectionType=PT_LONG,0x000F
    ConnectionOID=PT_UNICODE,0x0010
    SMTPPort=PT_LONG,0x0201
    SMTPSecureConnection=PT_LONG,0x020A
    ServerTimeOut=PT_LONG,0x0209
    LeaveOnServer=PT_LONG,0x1000
    [IMAP_I_Mail]
    AccountType=IMAP
    ;--- IMAP Account Settings ---
    AccountName=PT_UNICODE,0x0002
    DisplayName=PT_UNICODE,0x000B
    EmailAddress=PT_UNICODE,0x000C
    ;--- IMAP Account Settings ---
    IMAPServer=PT_UNICODE,0x0100
    IMAPUserName=PT_UNICODE,0x0101
    IMAPUseSPA=PT_LONG,0x0108
    Organization=PT_UNICODE,0x0107
    ReplyEmailAddress=PT_UNICODE,0x0103
    IMAPPort=PT_LONG,0x0104
    IMAPUseSSL=PT_LONG,0x0105
    ; --- SMTP Account Settings ---
    SMTPServer=PT_UNICODE,0x0200
    SMTPUseAuth=PT_LONG,0x0203
    SMTPAuthMethod=PT_LONG,0x0208
    SMTPUserName=PT_UNICODE,0x0204
    SMTPUseSPA=PT_LONG,0x0207
    ConnectionType=PT_LONG,0x000F
    ConnectionOID=PT_UNICODE,0x0010
    SMTPPort=PT_LONG,0x0201
    SMTPSecureConnection=PT_LONG,0x020A
    ServerTimeOut=PT_LONG,0x0209
    CheckNewImap=PT_LONG,0x1100
    RootFolder=PT_UNICODE,0x1101
    [INET_HTTP]
    AccountType=HOTMAIL
    Account=PT_UNICODE,0x0002
    HttpServer=PT_UNICODE,0x0100
    UserName=PT_UNICODE,0x0101
    Organization=PT_UNICODE,0x0107
    UseSPA=PT_LONG,0x0108
    TimeOut=PT_LONG,0x0209
    Reply=PT_UNICODE,0x0103
    EmailAddress=PT_UNICODE,0x000C
    FullName=PT_UNICODE,0x000B
    Connection Type=PT_LONG,0x000F
    ConnectOID=PT_UNICODE,0x0010
    Christopher

  • Sequence an App-v 5.0 application that uses a vbscript in which is pointed to c:\program files (x86)

    Hi,
    I have this application I need to sequence. It has an hta which points to exe which start with configfiles  in c:\program files (x86)\myapplication
    Sequencing works fine but when I open the package on another machine it says "path c:\program files (x86)\myapplicaiton not found.
    That's logical since the application is not there (but virtual).
    Please advise.
    J.
    Jan Hoedt

    Sorry for the delay in getting back to you.
    Once you start changing hands so many times of (a calls b, which calls c, which calls d...), it gets hard to track.  Generally speaking once outside you stay outside, but with App-V 5 the VFS is open to read/execute and its possible the exe is never
    actually inside, you just think it is because the .hta opens. 
    Try to lower the number of actions going on.  Start in the VE (by using powershell, and confirm you are inside by evaluating get-appvclientpackage "name" to see the inuse property is true.  Once there, run the exe manually with the options
    (assume passed through command line).  Does it work?  Then back up, run the hta, and run, does that also work?
    If you do one step at a time, and aren't sure if you are in the VE you can always evaluate the powershell command again, or check the file system/registry system appears as virtualized.
    When someone refers to VFS vs PVAD capturing, they are referring to the DIR path you put into the sequencer GUI.  You can quickly tell by looking at your package.  If the files captured are immediately under Root, you captured to the PVAD. 
    If they are under Root\VFS\ you captured to the VFS.  Here is a good link to read, this blog is definitely one (of many) to check out, a lot of great information:
    http://blogs.technet.com/b/gladiatormsft/archive/2014/08/25/app-v-5-installing-to-the-pvad-don-t-do-it-yes-i-said-it.aspx
    That said, you should upgrade to SP3, and SP3 actually hides the whole PVAD vs VFS option, defaulting everything to VFS.  If you did package to PVAD, to be honest it might just be worth your time to redo in VFS before other troubleshooting.  VFS
    captures have a better (generally speaking) rate of success.
    Let me know if I'm not clear on anything.

  • MS db Connection String using ASP VBScript and DW8

    Hi
    My MS db has been working with DW8 followong my use of a connection string in connSci***.asp. My OS is Windows7. This has worked fine.
    <%
    ' FileName="Connection_ado_conn_string.htm"
    ' Type="ADO"
    ' DesigntimeType="ADO"
    ' HTTP="true"
    ' Catalog=""
    ' Schema=""
    Dim MM_connSciWeb_STRING
    MM_connSciWeb_STRING = "DSN=DSN_******"
    %>
    Now when I update the db and check that the new additional records have been added (and they have been) I can still only access the original records. When I retest the connection string I get the 404 error message.
    Can anyone help?
    Regards
    Kevin

    >This has worked fine.
    When did it stop working? What changes did you make?
    MM_connSciWeb_STRING = "DSN=DSN_******"
    Any particular reason you are using DSN rather than DSNless connections?
    >Now when I update the db and check that the new additional records  have
    >been added (and they have been) I can still only access the  original records.
    Can you explain? How do you know the new records where added if you can't access them?
    >When I retest the connection string I get the 404  error message.
    How are you testing the connection?

  • Group Items and Change Scale Using CS3 VBScript

    How do you select items in a textframe (text and/or graphic and/or rectangle), then group them and then set the group to a horizontal & vertical scale value?
    Thanks,
    Archie

    What would be the best way to do that? As an example I would have 8 textframes threaded together (each frame is a stamp, this script is for reducing the image to print the label that goes on the top of the stamp). Some frames could only be text, some only a graphic, some both, some blank. Below is an example of what have so far. This works if the frame is only text.
    Thanks,
    Archie
    Rem SCALE ITEMS FUNCTION
    Rem --------------------
    Function myScaleItems (myLabelDocument)
    For I = 4 to 11
    myLabelDocument.textframes.item(I).locked = False
    myLabelDocument.textframes.item(I).HorizontalScale = cInt(myLabelPercent)
    myLabelDocument.textframes.item(I).VerticalScale = cInt(myLabelPercent)
    Next
    End Function

  • How can I export a document in IDML using VBScript

    How can I export an InDesign document in an IDML format using a VBScript ?
    If my InDesign Server instance is running, is it possible to run this script programatically (without using InDesign panel manually) ?
    Thank you.

    Hi Harbs,
    VBScript enums are a little bit different, and VBScript uses export, not exportFile (and no parentheses or semicolon). At a guess, this one is probably:
    Rem Given a reference to a document "myDoc" and a file myFileObj...
    myDoc.export idExportFormat.idInDesignMarkup, myFileObj
    But you might need to use the raw version of the enum:
    myDoc.export 1768189292, myFileObj
    Thanks,
    Ole

  • Vbscript using Manufacturer to run a program install

    Hello, I'm new to scripting and was looking for assistance on my attempt to use a vbscript to install a program based on manufacturer detected. Basically, I would like to have the script detect if it is a Dell or an ASUS system then depending on what is
    detect run an executable.
    The reason for this is during OS installs or re-installs the executable pulls the serial number to be part of the naming convention. Different manufacturers store this is different areas, especially on older systems. I wish I could say we were a single manufacturer
    facility but we are not. We have many beyond the Dell & ASUS systems but I would like to get it working with these just to get started. I can add more after I get something that works.
    After learning things reading the forums here and elsewhere, I've seen different ways to attempt this. Unfortunately so far, I have ended in failure. I have seen the possibilities of using some of the tools to possibly re-do the rename, but that is for another
    time and another project. Below is my current script and after cleaning syntax errors etc. it goes through but does not do anything. It seems like it skips over the manufacturer detect. Any assistance would be greatly appreciated.  
    On error resume next
    Dim strComputer, objWMIService
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    For Each objItem in colItems
        If obj.manufacturer="Dell INC." Then
        Set objshell = wscript.createobject("Shell.Application")
        objshell.ShellExecute "C:\Temp\Dellrename.exe"
        Set obj.Shell = Nothing
        ElseIf obj.manufacturer="ASUSTek Computer INC." Then
        Set objshell = wscript.createobject("Shell.Application")
        objshell.ShellExecute "C:\Temp\Asusrename.exe"
        Set obj.Shell = Nothing
    End If
    Next
    wscript.quit

    As JRV said you need to turn off on error resume next.  You also were refering to the wrong obj in your comparison.  It needs to be objitem instead of obj.  I have reformated the code so it is more readable and added a display of the manufacturer. 
    It may not be exactly as you expect.  try this and once you find the correct string you can remove or comment the wscript.echo statement.
    rem On error resume next
     Dim strComputer, objWMIService
     strComputer = "."
     Set objWMIService = GetObject("winmgmts:" _
         & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    For Each objItem in colItems
         wscript.echo objitem.manufacturer
         If objitem.manufacturer="Dell INC." Then
             Set objshell = wscript.createobject("Shell.Application")
             objshell.ShellExecute "C:\Temp\Dellrename.exe"
             Set obj.Shell = Nothing
         ElseIf objitem.manufacturer="ASUSTek Computer INC." Then
             Set objshell = wscript.createobject("Shell.Application")
             objshell.ShellExecute "C:\Temp\Asusrename.exe"
             Set obj.Shell = Nothing
     End If
     Next
     wscript.quit

  • Connect as sys user as sysdba using vbscript

    Hi I have to connect to the oracle database using sys user as sysdba using a vbscript.
    I have the following part in the script:
    Const TARGET_CONN = "DRIVER={Microsoft ODBC for Oracle};SERVER=XYZ;UID=sys;PWD=abc;"
    Set conn = CreateObject("ADODB.Connection")
    conn.Open TARGET_CONN
    When i run the script i get the error: connection as SYS should be as SYSDBA or SYSOPER
    Does anybody know how to do resolve this?
    Thanks in advance.

    Hi,
    If you were using Oracle's ODBC driver, you'd add "as sysdba" as part of the password, ie:
    "DRIVER={oracle in oradb11g_home1};dbq=XYZ;UID=sys;PWD=abc as sysdba;"
    However, you're using Microsoft's driver and I wouldnt be surprised if Microsoft's driver doesnt support it. If it does though, I'm not sure what you need to do.
    Greg

  • Trying to simply connect to Oracle with VBscript/ASP - and I cannot.

    This is rather embarrassing. I am pretty fluent with ASP and VBscript, and I have written many a web application connecting to Microsoft SQL Server. Now I have a need to connect to an Oracle database, and I'm beating my head against the wall.
    1) Web server is Windows Server 2003 SP1
    2) Using ASP (not ASP.NET) & VBscript
    3) I have installed the Oracle drivers on the server - it is version 10g
    4) The administrator of the Oracle database to which I want to connect has created a username and password for me to use from within my code
    5) Here is the code I am trying to run:
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "Provider=MSDAORA;Data Source=XXXXXXX;User Id=YYYYYYY;Password=ZZZZZZZ;"
    That's it. 2 lines of code just trying to establish a connection. Using the user name and password provided to me by the administrator, and for Data Source I am using the IP address of the Oracle server (like I have done in the past when connecting to SQL Server). I receive the following error message when viewing this in a browser:
    Microsoft OLE DB Provider for Oracle error '80004005'
    ORA-12154: TNS:could not resolve the connect identifier specified
    Evidently, the Data Source I am using is not correct, but I was provided no other information from the admin. This is the first time any of us have tried to connect to Oracle using ASP/VBScript, so the administrator isn't sure what I need to do ... any help would be so appreciated.

    Hello,
    I got mine to work by setting up an ODBC System DSN and connecting to it. I think this bypasses the Microsoft driver, which might be what's causing the problem.
    Set Db = Server.CreateObject("ADODB.Connection")
    Db.Open "DSN=TEST;User ID=userid;Password=password;"
    Good luck, I've found it requires a lot of persistence...
    Al
    Springfield, MO

  • Frequency counter unreliable using rotary vane anemometer

    I have set up an anemometer to measure air flow speed, with the signal being acquired by a 9402 module in a cDAQ-9174 chassis (4 slot). I am using Signal Express 2011 to program the instrument.
    I have set up a frequency counter task, using a maximum frequency of 1.8 kHz a minimum frequency of 250 mHz, rising edge and 1-counter (low frequency). The output is scaled using y = 0.0111x + 0. This gives 20 m/s when the frequency is 1.8 kHz.
    The readings given by Signal Express give a very noisy signal, at a frequency much higher than the bandwidth of the anemometer. The range is in the order of 20% of the mean. I have attached a PDF of the signal, for two different air flow sources, the seproj file and the tdms file for one of the runs. I have also observed that the counter output is rounded to the nearest multiple of 10, e.g. 490, 470, 480, 480, 470, etc.
    Is this consistent with a digital bounce issue? Is this consistent with an earthing issue? Is this consistent with a sample rate issue? Any other ideas for investigating this issue?
    thanks
    Attachments:
    EXPT 20 - ANEMOMETER NOISE.pdf ‏49 KB
    EXPT 20 Anemometer Noise.seproj ‏637 KB

    I have logged the voltage signal coming from the anemometer, using our 9239, a report of a few cycles is attached as a PDF. The graph clearly shows a small digital bounce. The noise is small compared to the signal, is there any way it can be filtered when acquired by the 9402?
    Other tests that I ran showed a background noise in the order of 50 microVolts and a frequency of 50 Hz, this is very likely a background noise from a power supply (we run at 50 Hz in Aus) but is many orders of magnitude smaller than the signal, I assume it would be ignoredby the 9402.
    Attachments:
    EXPT 20 Anemometer Noise Voltage.seproj ‏261 KB
    EXPT 20 Anemometer Noise Voltage.pdf ‏19 KB

  • Page Setup Scaling under Pages 5.0.1

    Yesterday, I had my first session with Pages 5.0.1 and Mavericks.
    Most of my pages documents are simply tables. 
    I modified a pages document (and foolishly allowed the document to be updated), then tried to print at 60% scaling -- using Page Setup.
    It didn't work.
    Here's my results:
    Printing full page with Page Setup at 100% all is OK --
    Using the Pages per Sheet scales just fine --
    Using Page Setup set to 60% yields this --
    Note that the Page Thumbnail is OK --but the Print Preview is what will print.
    I solved this by exporting the pages doc as a pdf and using Preview to scale but that shouldn't be necessary.
    All of my pages docs with tables have this scaling problem.  My remaining pages docs vary -- some scale just fine, others without tables don't.
    All of these pages docs scaled correctly using Pages 4.3 under Mountain Lion.
    Is this a known issue that I'm not aware of or do I have a problem.
    Thanks for any help!

    If you went through to actually print, not just went by the Print Preview, yes this does sound like a bug.
    Not unusual as there are a lot of problems with Pages 5 on top of the long list of features that Apple droppe:
    http://www.freeforum101.com/iworktipsntrick/viewforum.php?f=22&sid=b8f27f929de51 34c6ef0a26835835f97&mforum=iworktipsntrick
    If you upgraded from a previous version the previous version should still be in your Applications/iWork folder.
    Test that and also test TextEdit to see if it is a Mavericks problem rather than a Pages 5 problem.
    If it is you can tell Apple:
    Pages > Menu > Provide Pages feedback
    Peter

Maybe you are looking for