Append Path Statement for System Level Environmental Variables

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - displaying XML in IE I have an asp page which reads a table and creates XML from the data, then writes it out using response.write. But, I can only see the XML when I go to View > Source on the Toolbar in Internet Explorer. How can I display the XML in the browser? I've set the ContentType to text/xml. Tag: Append Path Statement for System Level Environmental Variables Tag: 148982
  - 2
    - SPY++ in vbscript or wsh? Just curious, has anyone ported the SPY++ utility to vbscript or wsh? I have an HTA with 2 frames: one is a Web page and the other is a script running from the local drive. In the script frame, I'd like to determine if a particular application is running, look for certain fields, extract the data, and plunk it into fields in the Web page frame. I'd imagine that the code to look for a running application and extract fields from it would be much like what SPY++ does. Has anyone ported SPY++ to a scripting language? Or does anyone know where I might find an example of script code to do this? Thanks in advance.... Tag: Append Path Statement for System Level Environmental Variables Tag: 148976
  - 3
    - Sending mail via VBS A bit of a newbie here, trying to convert a load of UNIX scripts to VBS on W2k server. I want to send a mail message from a stand-alone VBS script, and can't find anything in the docmentation about it. I won't have an Outlook form open so can't use that path. Can I use Outlook Express or will my customer have to pay for Outlook? And, even then, how do I program it? Presumably I use CreateObject("Outlook.Application") but how do I send the mail? Or is there a MAPI interfacea of some sort? Thanks in advance, Peter Tag: Append Path Statement for System Level Environmental Variables Tag: 148971
  - 4
    - Installing programs with VbScript Hi, I am trying to install programs with msi's using VB Script. I have found code that says, ------- Const ALL_USERS = True Set objService = GetObject("winmgmts:") Set objSoftware = objService.Get("Win32_Product") errReturn = objSoftware.Install ("c:\scripts\database.msi", , ALL_USERS) ----- the code I have been trying says ----- Const ALL_USERS = True Set objService = GetObject("winmgmts:") Set objSoftware = objService.Get("Win32_Product") errReturn = objSoftware.Install("\\server1 \DotNet$\netfx.msi /Q", , ALL_USERS) ---- I get do response from the script. The paths to the msi location are correct. Any help would be appreciated. Wayne Tag: Append Path Statement for System Level Environmental Variables Tag: 148967
  - 5
    - DLL I want to write a DLL to be called from the asp pages. I know how to do it using VB6. but I need to use VC++. can you please give me any clue on what steps I should follow or where can I get the related info. Thanks. Tag: Append Path Statement for System Level Environmental Variables Tag: 148964
  - 6
    - | | Tag: Append Path Statement for System Level Environmental Variables Tag: 148959
  - 7
    - Domain help I know this may be out of the scope of this group, but I don't know where to look. I am trying to create a script that will among other things add a computer to a domain. My script will read the current name for the PC. I have found information on creating the computer account, but nothing on adding it to the domain. Can any one help point me in the right direction here? Thanks, Bob Tag: Append Path Statement for System Level Environmental Variables Tag: 148947
  - 8
    - wsh equivalent to VAR() function Is there a windows scripting host function equivalent to visual basic's VAR() funtion? I'm comparing two large arrays containing data from separate files on seperate computers. It seems that the internal program process doesn't recognize the array elements appropriately. Particularly when using operators such as greater or less than (>,<,=, etc...). example would be something like this: Array1(x,y) > Array2(z,m) And the Array1 element would always return GREATER than no matter the size of the number (even if it is LESS than) the Array2 element. This is fixed in visual basic when I apply the VAR() to the arrays: VAR(Array1(x,y)) > VAR(Array2(z,m)) That works! Hence my original question, since I need a script to do said procedure.. Thanks in advance, -V Tag: Append Path Statement for System Level Environmental Variables Tag: 148946
  - 9
    - Wait for process to finish Hello, I need to run a sequence of exes on a remote machine and am using Win32_Process:Create to launch them. The script must sleep/loop until each exe finishes before launching the next one. When the exe is launched, I get the PID for the process; how can I code a loop to check when the process has ended? TIA Tag: Append Path Statement for System Level Environmental Variables Tag: 148943
  - 10
    - How to get WMI Hooks for Outlook.exe I am trying to write a scipt that will automatically copy .pst files up to the network once the hooks in Outlook have closed. Does anyone have any ideas on how to get the hooks? TIA Tag: Append Path Statement for System Level Environmental Variables Tag: 148941
  - 11
    - Program started by Exec method not finshing I have a vbs script that invokes a .bat file that invokes a custom java app with the Exec method. ' args are defined before this of course commandLine = outputArg & " " & logfileArg & " " & inputArg app524 = "run524.bat " ' app524 stops Set objScriptExec = WshShell.Exec(app524 & commandLine) out524 = objScriptExec.StdOut.ReadAll WScript.Echo out524 The java app stops at the same exact spot every time. Not in a spot that you involves a context swith either. the output log is always 3222 bytes. I'm expecting 19k bytes. When I run with the app with STDOUT and STDERR redirected to a file it works fine ' works fine commandLine = outputArg & " " & logfileArg & " " & inputArg & " > c:\\tmp\524tmp.txt 2>$1" Also when i use the Run method, it works fine: Set objScriptExec = WshShell.Run(app524 & commandLine) What is going on here? thanks jeff Tag: Append Path Statement for System Level Environmental Variables Tag: 148939
  - 12
    - copying array into 2D-array On one page I have several checkboxes in a form: time0, time0, time0 time1, time1, time1 by naming each checkbox time0, I create an array of size 3. Of course the same applies to the time1 variable. Now i do a SUBMIT via "post" method and i'm on the next page. I have a 2d array: dim myarray(3,2) i want to place each timeX variable into it's appropriate spot. I tried: myarray(0) = request.form("time0") and IIS returns this error: Microsoft VBScript runtime (0x800A0009) Subscript out of range How can I copy this into into the array? Thanks in advance for a solution. Tag: Append Path Statement for System Level Environmental Variables Tag: 148933
  - 13
    - Why does this ping script not work on W2K I am trying to run a ping against some servers before attempting to connect via WMI. When running this script on XP or 2003 it is OK. '****************** machine = "192.168.0.1" function ping(arg) with createobject("wscript.shell") ping = Not CBool(.run("ping -n 1 " & arg,0,true)) end with end function If ping(machine) = true then WScript.Echo "Valid IP" else wscript.echo "Unvalid IP" end if '***************** However when I run it on a W2K machine it only seems to check if the IP address is a valid address NOT whether the machine actually exists. If you deliberatly input a unused IP address you still get the message back as true. Why is this? Thanks. Tag: Append Path Statement for System Level Environmental Variables Tag: 148932
  - 14
    - Shell run method unable to start Office applications (?) Maybe I am missing some relevant point, but I am unable to start interactively Outlook from a .vbs script I used a syntax like: set myShell = CreateObject("Wscript.Shell") err.clear myShell.run "c:\Program Files\Microsoft Office\Office\outlook.exe" msgbox err.number but it does not work. No Outlook windows is created and the error code I get sounds like -2147024894 I used the same syntax to run another .exe file and it works. I used the same syntax to start Excel and it does not work... The path looks to be ok. The above piece of code is the latest part of a login script, it is supposed to start Outlook, keep Outlook running and terminate. Can anybody please help me detecting my mistake? Shoud I create an Outlook.Application instead? If so, how can I make te script terminate while Outlook is running? Regards Marius Tag: Append Path Statement for System Level Environmental Variables Tag: 148921
  - 15
    - Printing a web page I am trying to have an asp web page load then print then redirect to another page all without having the user having to do anything. Is there an easy script to have this occur. I would appreciate any help with this. Thanks Tag: Append Path Statement for System Level Environmental Variables Tag: 148920
  - 16
    - Prevent submission of form with return key I have a form that submits if you press the return key in a text input field, however I don't want this automatic submission to happen. How to supress this? Tag: Append Path Statement for System Level Environmental Variables Tag: 148919
  - 17
    - How to change DateLastModified og a file? Hi, I need to set DateLastModified of a file. How can I do that? I need it because I am exporting files from a SharePoint database to the file system, and needs to set the exported files to the same date/time as they originally had. I already know how to read the files and dates from SharePoint. Regards, Peter Tag: Append Path Statement for System Level Environmental Variables Tag: 148916
  - 18
    - Do forms effect the way that elements are referenced in VB script? Do forms effect the way that elements are referenced in VB script? The following piece of code seems to work OK:- <SCRIPT language=VBScript> Sub NoFormDown() imgNoForm.src = "Images/UpdateDown.gif" paraTest.innerText = Now() End Sub Sub NoFormUp() imgNoForm.src = "Images/Update.gif" paraTest.innerText = Now() End Sub </SCRIPT> <P> <INPUT type=image src="Images/Update.gif" border=0 name="Jim" OnMouseDown='NoFormDown()' OnMouseUp='NoFormUp()' ID=imgNoForm> </P> However, none of the 3 attempts to reference the <INPUT> element, seem to work in the following piece of code <SCRIPT language=VBScript> Sub WithFormDown() frmTest.elements("imgWithForm").src = "Images/UpdateDown.gif" frmTest.imgWithForm.src = "Images/UpdateDown.gif" imgWithForm.src = "Images/UpdateDown.gif" paraTest.innerText = Now() End Sub Sub WithFormUp() imgWithForm.src = "Images/Update.gif" paraTest.innerText = Now() End Sub </SCRIPT> <P> <FORM action="Example.htm" method=get ID=frmTest> <INPUT type=image src="Images/Update.gif" border=0 name="Fred" OnMouseDown='WithFormDown()' OnMouseUp='WithFormUp()' ID=imgWithForm> </FORM> </P> The only change is the <INPUT> element is now wrapped inside the <FORM> element. How do you reference elements that are in forms? Thanks for any help given. -- Steve Walton Tag: Append Path Statement for System Level Environmental Variables Tag: 148913
  - 19
    - Getting username of intranet user Hi, On our intranet checkout page (used for telephone orders) we want to know which person placed an order. Everybody is using Internet Explorer. We have tried the following code to get the Windows username: <script language="VBScript"> Set objWinShell = CreateObject("WScript.Shell") document.checkout.added_by.value= objWinShell.ExpandEnvironmentStrings("%USERNAME%") </script> But it doesn't seem to work, even when "Initialise and script ActiveX controls not marked as safe" on the Local Intranet security settings is set to Enable. We get "ActiveX component cannot create object: WScript.Shell" errors. Windows Script Host is installed. Does anyone have any ideas how we can implement this functionality? It doesn't have to use WScript but it would be ideal if it could pick up on the Windows username, instead of our users having to log in a second time. Cheers, Jamie. Tag: Append Path Statement for System Level Environmental Variables Tag: 148912
  - 20
    - Can you read a file at a URL location using vbscript or javascript? I would appreciate a response on this. I have clients who will be placing text files information about in a network directory for example: http://www.protegen.com/clients/ Is it possible to read these text files using either vbscript or javascript. What I am attempting to do is to read these files and then create charts for viewing by each client. A direct email to me at douglas.taylor@protegen.com will help. Thanks for you response. Douglas Taylor Email: douglas.taylor@protegen.com Protegen Business Intelligence www.protegen.com Tag: Append Path Statement for System Level Environmental Variables Tag: 148909
  - 21
    - CreateObject Syntax for a Collection Object Hello, Can someone please advise me on the correct syntax to create a Collection object in ASP? I used the code below, but it does not work. set myCollection = Server.CreateObject("VBA.Collection") Thanks in advance! Jack Tag: Append Path Statement for System Level Environmental Variables Tag: 148900
  - 22
    - RegExp Pattern problem Hi, I'm trying to produce a RegExp that will replace all spaces within paired quotation marks with +. eg. newcastle london bristol "famous people" to... newcastle london bristol "famous+people" All I have so far is: CHR(34) & ".*?" & CHR(34) This matches the complete string perfectly, but I'm not sure how to take it further. Any suggestions?? Thanks! S Tag: Append Path Statement for System Level Environmental Variables Tag: 148894
  - 23
    - How to call a sub with two parameters??? I have a problem to pass 2 parameters to a sub!!! Like this: welcom("hej", "asd") Sub welcom(qwe, asd) MsgBox(qwe) MsgBox(asd) End Sub and I get an error When I work with one parameter I works fine... Help! Tag: Append Path Statement for System Level Environmental Variables Tag: 148892
  - 24
    - Problem with system constants TheWshShell.ExpandEnvironmentStrings function returns the systems constants like "C:\Windows" for "%SYSTEMROOT%". But how to set one of this constants? I tried WshShell.Run "set DAN = c:\" but I get "Couldn't find the file" (I translated it from my language so it may sound a little diffrent) Please help, zurg Tag: Append Path Statement for System Level Environmental Variables Tag: 148886
  - 25
    - How to round up. Using vbscript How can I round up to the next int Don Tag: Append Path Statement for System Level Environmental Variables Tag: 148885
- Next
  - 1
    - VBscript documentation in printable form Are the guides pointed from page: http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/scrguide/sagsas_overview.asp available anywhere in a printable form? They should be really usefull as a programmer's tool to keep in printed form. Regards Marius Tag: Append Path Statement for System Level Environmental Variables Tag: 148880
  - 2
    - get width and height properties from picture hello, i have many pictures (most are .tiff) and i need to get the heigt and weidth of every picture. i tried using <<CreateObject ("Imaging.Application")>> but its not working. its only telling me 0 as size. can anyone please help me?? Tag: Append Path Statement for System Level Environmental Variables Tag: 148878
  - 3
    - Best way to show web page is processing data Hello, Some of the functions of my web application take a good amount of time to load. Is there a good way to show users that information is processing and will enventually be loaded? Like changing the cursor to an hour glass? Does anyone have any sample code? Thanks, Billy Tag: Append Path Statement for System Level Environmental Variables Tag: 148876
  - 4
    - How to do batch processing on multiple files I have several hundred text files that I need to parse. I have written the script to parse them, and am currently using an argument so that I can simply drag and drop the file to be parsed on to the script. I need a way to execute all the files at once without having to do each one seperately. For instance, If I have a folder called "Text Files" and inside that folder resides 100 text files with the following naming comvention: log1.txt log2.txt log3.txt etc... After parsing the files, the output is put in a file called "Text Files Output" and inside that folder will reside the output text files i.e. log1_output.txt log2_output.txt log3_output.txt etc... Is there a way to execute a script for every text file in the folder and create the proper output file names? Thanks, I'm obviously new to VBSCript, but am having a great time learning this language, but can't figure this little problem out. Tag: Append Path Statement for System Level Environmental Variables Tag: 148873
  - 5
    - msgbox display of user class in OU Basically, I'd like a list of all users in the OU specified, shown in a msgBox .... and then, the user clicks OK - script moved on. Where am I screwing up ? Do I have to declare some kind of array ? If so, how ? ' Prompt user for strBaseDN. strBaseDN = InputBox("Enter the DN of this company", _ "Customer DN") ' Validate strBaseDN. On Error Resume Next Err.Clear Set objBaseDN = GetObject("LDAP://" & strBaseDN) If Err.Number <> 0 Then Err.Clear MsgBox("This company OU/DN doesn't match, check your work" _ & " - program aborted") Wscript.Quit End If On Error GoTo 0 vbInformation = MsgBox("LDAP://" & StrBaseDN) /rob Tag: Append Path Statement for System Level Environmental Variables Tag: 148856
  - 6
    - Figuring Instances of a Day Hello, This is probably a pretty easy question, but what I am trying to do is figure out what instance of a day each day is in a particular month. For example: Today is Wednesday. I know its the first Wednesday of the month. I would like the script to be able to tell me that it is the 1st Wednesday (or the 2nd, 3rd, 4th, or 5th) of the current month. I'm probably not explaining this so if necessary, I can further clarify. I appreciate the help. Thanks, Chris Tag: Append Path Statement for System Level Environmental Variables Tag: 148854
  - 7
    - Calling client side COM objects from a web page I have some processess (EHLAPPI) and dlls (custom DLLs to get contents of encrypted files) that I want to call from a web page. All of the stuff I've read indicates that I can only do this using VBScript executed on the client side (which makes sense given you don't want hackers regisering COM objects and formatting your drive, etc.). The exe's and dlls I've created as COM server objects (using the ATL wizard in .NET) I've created a COM Server using .NET for instance for the Ehlappi process that I want to start, the COM info is: [ module(EXE, uuid = "{22CA2E94-69A2-4386-9161- 6E797F93E4C8}", name = "EhllapiServer", helpstring = "EhllapiServer 1.0 Type Library", resource_name = "IDR_EHLLAPISERVER") ]; It mentions that it creates a WinMain method for you I've created a simple HTML page: <html><head><title>My Test</title></head> <body> <script language="vbscript" type="text/vbscript"> Dim objEhlappi Set objEhlappi = CreateObject("EhllapiServer") document.write("<b>Is the COM object launched??</b>") </script> </body></html> Bringing up this page in IE though I get a VBScript Error: Error: ActiveX component can't create object 'EhllapiServer' I'm not much of a VBScript person, I don't know if this is because it can't find the COM objects, or because of some security issue (I'm logged in as an administrator). Some questions I would REALLY apprciate some help on: 1) Is the approach that I'm taking correct? 2) What Registry settings can I check to see if the COM object is registered, how would I register this on another local PC? 3) How can I get more information about the error? Can I get lasterror via VBScript for instance. Where can I look this error up 4) To actually invoke the process I'm assuming I would do a objEhlappi.WinMain() does anyone have any examples of this (I assume I'd pass in my command line parameters here as a string??) Any suggestions would be GREATLY appreciated, I've been hunting around on the web and can't find much information on how to do this. THANKS!! Tag: Append Path Statement for System Level Environmental Variables Tag: 148797
  - 8
    - Copying Files (Wierd one) I have a batch file I got from somewhere that runs a backup. The file contains the following lines: copy "c:\documents and settings\administrator\local settings\application data\microsoft\windows nt\ntbackup\data\*.log" "c:\backup\backlog.txt" del "c:\documents and settings\administrator\local settings\application data\microsoft\windows nt\ntbackup\data\*.log" As you probably know, when ntbackup creates a report, it increments the name. Since the last line of the code deletes all files with the .log extension, when the batch runs again, the only log file in the folder is the one for that backup job. That said, how is it possible that it can copy the file using the wildcard and save it as backuplog.txt? What I am trying to do is do this within a vbscript. I cant seem to do it using CopyFile, so I tried to do it via a WScript.shell leaving me with the following command: Return = shell.Run ("copy ""c:\documents and settings\administrator\local settings\application data\microsoft\windows nt\ntbackup\data\*.log"" c:\backup\backlog.txt""") This code does not work. It keeps telling me that it cannot find the file specified. Is this because the syntax of my quotation marks is wrong. When I run the command from the command line, it works, just not from the script.If I cannot make the line work, is there any way I can CopyFile to make it work? I appreciate the help. Chris Tag: Append Path Statement for System Level Environmental Variables Tag: 148794
  - 9
    - Join computer to a domain Anyone know how to write a script that will join a computer to a domain in AD? A Windows 2000 machine. Tag: Append Path Statement for System Level Environmental Variables Tag: 148791
  - 10
    - Change the cn attribute This is a multi-part message in MIME format. ------=_NextPart_000_0055_01C3B99C.D1393590 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Can someone tell me how the code would look to change the UserID in = Active Directory from say lastname to firstinitiallastname. For instance: the code in RED below. Instead of echoing the value I = want to change it. Set objSysInfo =3D CreateObject ("ADSYstemInfo") Set objUser =3D GetObject("LDAP://" & objSysInfo.UserName) objUser.GetInfo 'Set objDomain =3D GetObject("LDAP://" & objSysInfo.DomainDNSName) 'objDomain.GetInfo strDisplayName =3D objUser.Get("displayName") strDescription =3D objUser.Get("description") strUserName =3D objUser.Get("cn") strUserOu =3D objUser.Get("DistinguishedName") strUserPrincipalName =3D objUser.Get("UserPrincipalname") strUserLastName =3D objUser.Get("sn") strUserFirstName =3D objUser.Get("givenName") strUserEmail =3D objUser.Get("mail") 'WScript.Echo strUsername 'WScript.Echo strDnsDomainName 'WScript.Echo strDomainShortName 'WScript.Echo strDisplayName 'WScript.Echo strDescription WScript.Echo "User Logon ID:..............................." & = strUserName & vbCrLf & _ "User Principal Name:........................." & strUserPrincipalName & = vbCrLf & _ "User Full Name:..............................." & strUserLastName & ", = " & strUserFirstName & vbCrLf & _ "Users Email Address:........................." & strUserEmail & vbCrLf = & _ "User Account in OU:........................." & strUserOu & vbCrLf & _ "User Site:......................................" & objSysInfo.SiteName = & vbCrLf & _ "User Description.............................." & strDescription & = vbCrLf & _ "Current Logon DNS Domain Name:........" & objSysInfo.DomainDnsName & = vbCrLf & _ "Current Logon NetBIOS Domain Name:..." & objSysInfo.DomainShortName ------=_NextPart_000_0055_01C3B99C.D1393590 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1264" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>Can someone tell me how the code = would look to=20 change the UserID in Active Directory from say lastname to=20 firstinitiallastname.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>For instance: the code in RED = below.  Instead=20 of echoing the value I want to change it.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Set objSysInfo =3D CreateObject=20 ("ADSYstemInfo")</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Set objUser =3D GetObject("LDAP://" = &=20 objSysInfo.UserName)<BR>objUser.GetInfo</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>'Set objDomain =3D GetObject("LDAP://" = &=20 objSysInfo.DomainDNSName)<BR>'objDomain.GetInfo</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>strDisplayName =3D=20 objUser.Get("displayName")<BR>strDescription =3D=20 objUser.Get("description")<BR>strUserName =3D = objUser.Get("cn")<BR>strUserOu =3D=20 objUser.Get("DistinguishedName")<BR>strUserPrincipalName =3D=20 objUser.Get("UserPrincipalname")<BR>strUserLastName =3D=20 objUser.Get("sn")<BR>strUserFirstName =3D = objUser.Get("givenName")<BR>strUserEmail=20 =3D objUser.Get("mail")</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><BR><FONT face=3DArial size=3D2><STRONG><FONT = color=3D#ff0000>'WScript.Echo=20 strUsername<BR></FONT></STRONG>'WScript.Echo = strDnsDomainName<BR>'WScript.Echo=20 strDomainShortName<BR>'WScript.Echo strDisplayName<BR>'WScript.Echo=20 strDescription</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><BR><FONT face=3DArial size=3D2>WScript.Echo "User Logon=20 ID:..............................." & strUserName & vbCrLf & = _<BR>"User Principal Name:........................." & = strUserPrincipalName=20 & vbCrLf & _<BR>"User Full Name:..............................." = &=20 strUserLastName & ", " & strUserFirstName & vbCrLf & = _<BR>"Users=20 Email Address:........................." & strUserEmail & vbCrLf = &=20 _<BR>"User Account in OU:........................." & strUserOu = & vbCrLf=20 & _<BR>"User Site:......................................" &=20 objSysInfo.SiteName & vbCrLf & _<BR>"User=20 Description.............................." & strDescription & = vbCrLf=20 & _<BR>"Current Logon DNS Domain Name:........" &=20 objSysInfo.DomainDnsName & vbCrLf & _<BR>"Current Logon NetBIOS = Domain=20 Name:..." & objSysInfo.DomainShortName</FONT></DIV></BODY></HTML> ------=_NextPart_000_0055_01C3B99C.D1393590-- Tag: Append Path Statement for System Level Environmental Variables Tag: 148789
  - 11
    - Time Zone Change Anyone know how to create a vbscript that will change the user's time zone from a drop-down menu or some other type of input? Tag: Append Path Statement for System Level Environmental Variables Tag: 148781
  - 12
    - get default value Hi, i'm working on an asp project that will work similar to enterprise manager for remotely managing some aspects of a sql database. What i'm stuck on is how (in vbscript or with SQL commands) can i find out what the default value (if any) is for a given column of a given table? I know there are some stored procedures and sql command i'm using to find whether columns are primary keys, identities, nullable, what there size is, etc, but i can't figure out how to find a columns default value. thanks in advance Tag: Append Path Statement for System Level Environmental Variables Tag: 148779
  - 13
    - Copy+paste with vbs (IE->Word) I want to perform the following "actions" with a vbs script. 1)Start Internet Explorer 2)Start MS Word 3)Navigate to a specified page http 4)Select a part of this page (text+formatting and images) 5)Copy it 6)Paste it to a Word document Is it possible? My problem is how to select+copy and past via vbs as if in interactive mode (points 4-6). In spite of many attempt to find something useful on Google Groups, I couldn't find anything clear about it... Nicola Attico Rome, Italy Tag: Append Path Statement for System Level Environmental Variables Tag: 148776
  - 14
    - Excel automation and Shared workbooks Please forgive the multi-group posting! I was not sure which group would be most appropriate for this question! I have writen a number of VBScript functions that exploit the Excel automation interface. I use these VBScript functions to open an Excel workbook, read/write data, and close the workbook. If I access this workbook in a sequential fashion I do not have any problems but if I try to access the same workbook from two or more machines then one of the machines eventually opens the workbook in read-only mode and fails to perform its write operation. That is, it prompts me to save the file under a different name or location because the source file was in read-only mode. I thought that if I configured the workbook as a shared workbook that I would be able to have multiple concurrent connections to the same workbook and that each connection would be allowed write access but as I stated above sometimes one of the machines ends up with a read-only connection. Are there any known limitations with the automation interface and the shared workbook setting? Below are two of the functions that I have writen. The "field name" is the value found in the first row of the field. Any data writen to the workbook is offset by one row to account for the field header (field name). At one point I attempted to check for the read-only state inside the SetCellByFieldName function and close the file and re-open it until I got write access but I was unable to get this to work consistently. If anyone can give me some direction I would very much appreciate the help! Matthew ' ############################################################################ #################### ' GetCellByFieldName will return a cells value according to the specified field name and row. ' If the field name is not found the return value will be "False". ' sExcelWorkbook - Enter file name including directory path ' sWorksheet - Enter the name of the worksheet ' sFieldName - Enter the cell column reference ' sCellRow - Enter the cell row reference ' Ex. GetCellByFieldName "C:\Book1.xls", "Sheet1", "ROHMat#", 1 ' ############################################################################ #################### Public Function GetCellByFieldName(ByVal sExcelWorkbook, ByVal sWorksheet, ByVal sFieldName, ByVal sCellRow) Dim objExcel, objWorkbook, sCellCol If Not(Len(sExcelWorkbook) = 0 Or Len(sWorksheet) = 0 Or Len(sFieldName) = 0 Or Len(sCellRow) = 0) Then ' Increment sCellRow on record to offset for the field header sCellRow = sCellRow + 1 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(sExcelWorkbook,,True) If Not (objWorkbook.ReadOnly) Then NetSend "322YM21", "GetCellByFieldName : Excel file NOT opened in Read-Only mode" End If For sCellCol = 1 To 256 If (Eval(objWorkbook.Worksheets(sWorksheet).Cells(1,sCellCol).Value = sFieldName)) Then GetCellByFieldName = objWorkbook.Worksheets(sWorksheet).Cells(sCellRow,sCellCol).Value Exit For End If If sCellCol = 256 Then If (Eval(objWorkbook.Worksheets(sWorksheet).Cells(1,sCellCol).Value <> sFieldName)) Then GetCellByFieldName = False End If End If Next objWorkbook.Close False objExcel.Quit Set objWorkbook = Nothing Set objExcel = Nothing Else GetCellByFieldName = False End If End Function ' ############################################################################ #################### ' SetCellByFieldName will set a cells value according to the specified field name and row. ' If the field name is not found the return value will be "False". ' sExcelWorkbook - Enter file name including directory path ' sWorksheet - Enter the name of the worksheet ' sFieldName - Enter the cell column reference ' sCellRow - Enter the cell row reference ' sCellValue - Enter the new value ' Ex. SetCellByFieldName "C:\Book1.xls", "Sheet1", "ROHMat#", 1, "54687" ' ' NOTE: If the sCellValue argument's value contains a leading zero it will be reformatted to ' resemble an Excel formula. Ex. 00000543867 will be changed to ="00000543867" ' ############################################################################ #################### Public Function SetCellByFieldName(ByVal sExcelWorkbook, ByVal sWorksheet, ByVal sFieldName, ByVal sCellRow, ByVal sCellValue) Dim objExcel, objWorkbook, sCellCol If Not(Len(sExcelWorkbook) = 0 Or Len(sWorksheet) = 0 Or Len(sFieldName) = 0 Or Len(sCellRow) = 0) Then ' Increment sCellRow on record to offset for the field header sCellRow = sCellRow + 1 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(sExcelWorkbook,,False) If (objWorkbook.ReadOnly) Then NetSend "322YM21", "SetCellByFieldName : Excel file opened in Read-Only mode" End If For sCellCol = 1 To 256 If (Eval(objWorkbook.Worksheets(sWorksheet).Cells(1,sCellCol).Value = sFieldName)) Then ' If sCellValue has leading zeros reformat the data to resemble an Excel formula If (Eval(CStr(Left(sCellValue, 1)) = "0"))Then objWorkbook.Worksheets(sWorksheet).Cells(sCellRow,sCellCol).Value = "="""&sCellValue&"""" Else objWorkbook.Worksheets(sWorksheet).Cells(sCellRow,sCellCol).Value = sCellValue End If objWorkbook.Close True objExcel.Quit Set objWorkbook = Nothing Set objExcel = Nothing If (CStr(GetCellByRowCol(sExcelWorkbook, sWorksheet, sCellRow - 1, sCellCol)) = CStr(sCellValue)) Then SetCellByFieldName = True Else SetCellByFieldName = False End If Exit For ElseIf (sCellCol = 256 And Eval(objWorkbook.Worksheets(sWorksheet).Cells(1,sCellCol).Value <> sFieldName)) Then objWorkbook.Close False objExcel.Quit Set objWorkbook = Nothing Set objExcel = Nothing SetCellByFieldName = False End If Next Else SetCellByFieldName = False End If End Function Tag: Append Path Statement for System Level Environmental Variables Tag: 148775
  - 15
    - Turning the Windows XP firewall on and off Is it possible to use a VBscript file to turn the Windows XP firewall on and off? Regards Marius Tag: Append Path Statement for System Level Environmental Variables Tag: 148772
  - 16
    - office charting component I don't know if I'm on the right board, but here goes. I'm trying to create a pie chart in my web application. The data displays fine on a plain page with no <table> tags. Once I try to format the page and put the <object classid="clsid:0002E500-0000-0000-C000-000000000046" id="ChartSpace1" style="HEIGHT:50%; WIDTH:40%" width="350" height="350"></object> within any kind of html table, it will not display. Can anyone help? Thanks, Lou Tag: Append Path Statement for System Level Environmental Variables Tag: 148770
  - 17
    - date I have the following string. strResult =replace( (Date),"/","") When I get a result I am missing 0 if day or month 1,2,3... I need to get 01,02,03... How do I do this? Tag: Append Path Statement for System Level Environmental Variables Tag: 148767
  - 18
    - VBScript:Update One Access DB from Another I need to write a procedure that inserts data from one Access database into another Access database through VBScript. I imagine that this would be done with Recordsets. Can anyone post an example of how to do this for me? Basically I would want to: 1. select name, date, status from table in 1st database 2. insert that result set into a history table in another database, checking to be sure that it won't create duplicate rows. The databases have to remain separated since the first database is created by a proprietary application. Thanks in advance for all replies. Tag: Append Path Statement for System Level Environmental Variables Tag: 148765
  - 19
    - mod a filename hi, i am trying to change a complete file name with path into just the file name, but i am used to working on solaris and so this is proving to be a bit difficult for me. I am getting the complete file and path, then using that to mail the file, but i then need to move the file to a new directory which is where i get stuck. before : c:\help\me\please.txt after : please.txt TIA Steve Function Mail_pending() Dim oFS Dim oFolder Dim oFile set shell = CreateObject("WScript.Shell") Set oFS = CreateObject("Scripting.FileSystemObject") Set oFolder = oFS.GetFolder("C:\wmi\pending\") For Each oFile In oFolder.Files 'wscript.echo oFile M1 = "blat.exe " + oFile + " -s " + oFile + " -log c:\wmi\mailer.log -t xxx@kfsdlkfdsl.com" shell.Run M1 ' commnad to move file !!! Next 'oFile Set oFolder = Nothing Set oFS = Nothing End Function Tag: Append Path Statement for System Level Environmental Variables Tag: 148762
  - 20
    - Retrieve Network card Configuration I need to retrieve the network card configuration on a remote PC, namely the DNS Suffix Search list. Below is the code I am using. The code works but returns information twice as if there were two network cards in the PC. The PC is Windows 2000 and only has one network card. I have tried it on many PC's and it does the same thing. The code is straight out of the Microsoft Portable Script center. Is there a problem with the For statements? strComputer = "." Set objWMIService = GetObject("winmgmts:\\"& strComputer & "\root\cimv2") Set colAdapters = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") n = 1 WScript.Echo For Each objAdapter in colAdapters WScript.Echo "Network Adapter " & n WScript.Echo "=================" WScript.Echo " Description: " & objAdapter.Description WScript.Echo " Physical (MAC) address: " & objAdapter.MACAddress WScript.Echo " Host name: " & objAdapter.DNSHostName If Not IsNull(objAdapter.IPAddress) Then For i = 0 To UBound(objAdapter.IPAddress) WScript.Echo " IP address: " & objAdapter.IPAddress(i) Next End If If Not IsNull(objAdapter.IPSubnet) Then For i = 0 To UBound(objAdapter.IPSubnet) WScript.Echo " Subnet: " & objAdapter.IPSubnet(i) Next End If If Not IsNull(objAdapter.DefaultIPGateway) Then For i = 0 To UBound(objAdapter.DefaultIPGateway) WScript.Echo " Default gateway: " & _ objAdapter.DefaultIPGateway(i) Next End If WScript.Echo WScript.Echo " DNS" WScript.Echo " ---" WScript.Echo " DNS servers in search order:" If Not IsNull(objAdapter.DNSServerSearchOrder) Then For i = 0 To UBound(objAdapter.DNSServerSearchOrder) WScript.Echo " " & objAdapter.DNSServerSearchOrder(i) Next End If WScript.Echo " DNS domain: " & objAdapter.DNSDomain If Not IsNull(objAdapter.DNSDomainSuffixSearchOrder) Then For i = 0 To UBound(objAdapter.DNSDomainSuffixSearchOrder) WScript.Echo " DNS suffix search list: " & _ objAdapter.DNSDomainSuffixSearchOrder(i) Next End If WScript.Echo WScript.Echo " DHCP" WScript.Echo " ----" WScript.Echo " DHCP enabled: " & objAdapter.DHCPEnabled WScript.Echo " DHCP server: " & objAdapter.DHCPServer If Not IsNull(objAdapter.DHCPLeaseObtained) Then utcLeaseObtained = objAdapter.DHCPLeaseObtained strLeaseObtained = WMIDateStringToDate(utcLeaseObtained) Else strLeaseObtained = "" End If WScript.Echo " DHCP lease obtained: " & strLeaseObtained If Not IsNull(objAdapter.DHCPLeaseExpires) Then utcLeaseExpires = objAdapter.DHCPLeaseExpires strLeaseExpires = WMIDateStringToDate(utcLeaseExpires) Else strLeaseExpires = "" End If WScript.Echo " DHCP lease expires: " & strLeaseExpires WScript.Echo WScript.Echo " WINS" WScript.Echo " ----" WScript.Echo " Primary WINS server: " & objAdapter.WINSPrimaryServer WScript.Echo " Secondary WINS server: " & objAdapter.WINSSecondaryServer WScript.Echo n = n + 1 Next Function WMIDateStringToDate(utcDate) WMIDateStringToDate = CDate(Mid(utcDate, 5, 2) & "/" & _ Mid(utcDate, 7, 2) & "/" & _ Left(utcDate, 4) & " " & _ Mid (utcDate, 9, 2) & ":" & _ Mid(utcDate, 11, 2) & ":" & _ Mid(utcDate, 13, 2)) End Function Tag: Append Path Statement for System Level Environmental Variables Tag: 148761
  - 21
    - IE5+ UserData Behaviour max size Microsoft documents the max size of a UserData store as 64k per page in a restricted security zone. How can you keep track of this and what happens when you exceed this max? Donald *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Append Path Statement for System Level Environmental Variables Tag: 148760
  - 22
    - return value Bonjour, coment depuis une page asp renvoyer une variale tableau a un script vbscript d'une page html ou tout simplement a ma page asp mais sur le script client ? MErci Tag: Append Path Statement for System Level Environmental Variables Tag: 148757
  - 23
    - Taste that corrective pack --xtmooggljmkpr Content-Type: multipart/related; boundary="diehjhtth"; type="multipart/alternative" --diehjhtth Content-Type: multipart/alternative; boundary="wzqjzdmwdniohies" --wzqjzdmwdniohies Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Microsoft Customer this is the latest version of security update, the "December 2003, Cumulative Patch" update which fixes all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three new vulnerabilities. Install now to protect your computer from these vulnerabilities. This update includes the functionality = of all previously released patches. --wzqjzdmwdniohies Content-Type: text/html Content-Transfer-Encoding: quoted-printable <HTML> <HEAD> <style type=3D'text/css'>.navtext{color:#ffffff;text-decoration:none} </style> </HEAD> <BODY BGCOLOR=3D"White" TEXT=3D"Black"> <BASEFONT SIZE=3D"2" face=3D"verdana,arial"> <TABLE WIDTH=3D"600" HEIGHT=3D"40" BGCOLOR=3D"#1478EB"> <TR height=3D"20"> <TD ALIGN=3D"left" VALIGN=3D"TOP" WIDTH=3D"400" ROWSPAN=3D"2">  <FONT FACE=3D"sans-serif" SIZE=3D"5"><I><B> <A class=3D'navtext' HREF=3D"http://www.microsoft.com/" TITLE=3D"Microsoft Home Site" target=3D"_top">Microsoft</A> </B></I></FONT> </TD> <TD ALIGN=3D"right" VALIGN=3D"MIDDLE" BGCOLOR=3D"Black" NOWRAP> <FONT color=3D"#ffffff" size=3D1>  <A class=3D'navtext' href=3D'http://www.microsoft.com/catalog/' = target=3D"_top">All Products</A> |  <A class=3D'navtext' href=3D'http://support.microsoft.com/' = target=3D"_top">Support</A> |  <A class=3D'navtext' href=3D'http://search.microsoft.com/' = target=3D"_top">Search</A> |  <A class=3D'navtext' href=3D'http://www.microsoft.com/' target=3D_top> Microsoft.com Guide</A>  </FONT> </TD> </TR> <TR> <TD ALIGN=3D"right" VALIGN=3D"BOTTOM" NOWRAP> <FONT FACE=3D"Verdana, Arial" SIZE=3D1><B> <A class=3D'navtext' HREF=3D'http://www.microsoft.com/' TARGET=3D" top"> Microsoft Home</A>  </B> </FONT> </TD> </TR> </TABLE>  <IMG SRC=3D"cid:pujjkqj" BORDER=3D"0"><BR><BR> <TABLE WIDTH=3D"600"><TR><TD><FONT SIZE=3D"2"> Microsoft Customer<BR><BR> this is the latest version of security update, the "December 2003, Cumulative Patch" update which fixes all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three new vulnerabilities. Install now to protect your computer from these vulnerabilities. This update includes the functionality = of all previously released patches. </FONT></TD></TR> </TABLE> <BR><BR> <TABLE BORDER=3D"1" CELLSPACING=3D"1" CELLPADDING=3D"3" WIDTH=3D"600"> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:maykmmg" = ALIGN=3D"absmiddle" BORDER=3D"0"> System requirements</B> </FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Windows 95/98/Me/2000/NT/XP</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:maykmmg" = ALIGN=3D"absmiddle" BORDER=3D"0"> This update applies to</B> </FONT></TD><TD NOWRAP> <FONT SIZE=3D"1"> MS Internet Explorer, version 4.01 and later<BR> MS Outlook, version 8.00 and later<BR> MS Outlook Express, version 4.01 and later </FONT> </TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:maykmmg" = ALIGN=3D"absmiddle" BORDER=3D"0"> Recommendation</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Customers should install the patch = at the earliest opportunity.</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:maykmmg" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to install</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Run attached file. = Choose Yes on displayed dialog box.</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:maykmmg" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to use</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">You don't need to do = anything after installing this item.</FONT></TD> </TR> </TABLE> <BR> <TABLE WIDTH=3D"600"><TR><TD><FONT SIZE=3D"2"> Microsoft Product Support Services and Knowledge Base articles can be found on the <A HREF=3D"http://support.microsoft.com/" = TARGET=3D"_top">Microsoft Technical Support</A> web site. = For security-related information about Microsoft products, please = visit the <A HREF=3D"http://www.microsoft.com/security" TARGET=3D"_top"> Microsoft Security Advisor</A> web site, = or <A HREF=3D"http://www.microsoft.com/contactus/contactus.asp" = TARGET=3D"_top">Contact Us.</A> <BR><BR> Thank you for using Microsoft products.<BR><BR></FONT> <FONT SIZE=3D"1">Please do not reply to this message. = It was sent from an unmonitored e-mail address and we are unable = to respond to any replies.<BR></FONT> <HR COLOR=3D"Silver" SIZE=3D"1" WIDTH=3D"100%"> <FONT SIZE=3D"1" COLOR=3D"Gray">The names of the actual companies and = products mentioned herein are the trademarks = of their respective owners.</FONT> </TD></TR></TABLE> <BR> <TABLE WIDTH=3D"600" HEIGHT=3D"45" BGCOLOR=3D"#1478EB"> <TR VALIGN=3D"TOP"> <TD WIDTH=3D"5"></TD> <TD> <FONT COLOR=3D"#FFFFFF" SIZE=3D"1"><B> <A class=3D'navtext' HREF=3D"http://www.microsoft.com/= contactus/contactus.asp" TARGET=3D"_top">Contact Us</A>  |  <A class=3D'navtext' HREF=3D"http://www.microsoft.com/legal/" = TARGET=3D"_top">Legal</A>  |  <A class=3D'navtext' HREF=3D"https://www.truste.org/validate/605" = TARGET=3D"_top" TITLE=3D"TRUSTe - Click to Verify">TRUSTe</A> </FONT></B> </TD> </TR> <TR VALIGN=3D"MIDDLE"> <TD WIDTH=3D"5"></TD> <TD> <FONT COLOR=3D"#FFFFFF" SIZE=3D"1"> ©2003 Microsoft Corporation. All rights reserved. <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/cpyright.htm" TARGET=3D"_top">Terms of Use</A>  |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/privacy.htm" TARGET=3D"_top"> Privacy Statement</A> |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= enable/" TARGET=3D"_top">Accessibility</A> </FONT> </TD> </TR> </TABLE> </BODY> </HTML> --wzqjzdmwdniohies-- --diehjhtth Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <pujjkqj> R0lGODlhaAA7APcAAP///+rp6puSp6GZrDUjUUc6Zn53mFJMdbGvvVtXh2xre8bF1x8cU4yLprOy zIGArlZWu25ux319xWpqnnNzppaWy46OvKKizZqavLa2176+283N5sfH34uLmpKSoNvb7c7O3L29 yqOjrtTU4crK1Nvb5erq9O/v+O7u99PT2sbGzePj6vLy99jY3Pv7/vb2+fn5++/v8Kqr0oWHuNbX 55SVoszN28vM2pGUr7S1vqqtv52frOPl8CQvaquz2Ojp7pmn3Ozu83OPzmmT6F1/xo6Voh9p2C5z 3EWC31mS40Zxr4uw6LXN8iZkuXmn55q97PH2/Yir1rbL5iVTh3Oj2cvX5Pv9/+/w8QF8606h62Wk 3n+dubnY9abB2c7n/83h9Nji6weK+CGJ4Vim6WyKpKWssgFyyAaV/0Km8Gyx6HW57FJxicDP2+Tt 9Pj8/wOa/wmL5wqd/w6V8heb91e5+mS9+VmLr4vD6qvc/b/j/Mbn/sTi9rvX6szq/tPt/9ju/dzx /+n2/+74//P6/+3w8hOh/xOW6yCm/iuu/zWv/0m4/XTH/IXK95TP9qPV9bfi/tDn9tfp9OP0/93r 9L3Izy6Vzj22/lrC/mfG/JvJ5JGntAyd6IbX/3zD6GzP/3jV/2uoxHqbqujv8g6MvJTj/2HF5pXV 606zz6Hp/63v/7j1/8Ps88b8/rbj5RKOkE2wr3OGhoKGhv7///Dx8V2alqvm4Zni1YPRvx5uVwyO X0q2hLTvw8X10gx2H4PXkkuoV5zkoQeADZu7mmzIVEO7HIXbaGfLMPz8+97d2/Px7v///+bl5eHg 4P7+/v39/fT09PLy8u7u7gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAAaAA7AAAI/gCVCRxI sKDBgwgTKlzIsKHDhxAjKgwiqs2kSJEgQfqyp2PHLxoxTmojSpTEkyglBrGYcU+el3n09PEDSFKg mzclAfLTRw/MPV4gjTSZsmhRURchuXwUs88fSYIGubEiqyqAq1gBNLPiRlCgPz197tE4MojRswuD JHX5UiagQILcNMtKl26zu3etuBgUaKcePXv0QIo0iSjaw8raROKYh6nbuFbmVpVlpbKby4Mya858 eWrlrV0l/fECWDBhw4hPimoJUw9NQVa0Yg6kk6dPmD9xt/Xi52kgKG4GCRLtpTjZNmZTQ5yktLXT QFNDA+qJe2wkkgkrrmWrx4tv0X6M/gvFrnzh6uaO+wCKOhzs7TzWyUesyDom7z9//EAKOh51eYKK sdWWH1D15cd78J12GFJKufRXcfwNNtR/ANYXE006UfdSfBQq1lxM3fFHWFlojRBCCA5goMMK5y3V 1B879VGdUMlRqIxaG7kUmHEikVTjQyuAcGIGDmSQwQUYzPBAA1UIKJMfUCI4Vhs2EjTJKrWYwogp mXSxY0iTTLhQAC2ocKIDHGywgAwYWPDAm3AeIIVztr3E1FiFVSnQJLXc4ksxuujyiy6npNGFYBKK WRAzKZipAgkp8ACCAyLg0MClDcD5ppIUVNCFFDL1oSF8Qvn3nyi8+KIqMH8aQwwx/66EMQcoVQxG mI/KBEBCCCSo0MIPLJSJwA6YFvsmBlFkYgopUTxwgQ8XXGBBBRUA0QUXeJp6qi2r2rKLLcAU42qs WIRhR623YpdDNM4wQ0IOInggrwfFNoCDDl20wooqqaSCCil3SHCBBgQXnAGbFmCAgQMkBKDnLsMU 4wswvPCySy3DuLpJGFiY4YodX6RrUhnOIFDDvPNeqkkXfKzCyssv8+svwM5uYPPNONusAZszEEEE GoooQsfQdRRdxyJII83I0ow04nQjjkTtCB5cVN3KMBEXA8wuFbMC6Cu5jIJFLsG4oonIQeQQQw4o a5KsI6moogrMMMvt77+kCPzB3v589+03BxdQ0IFyotyCdTFap7I1K7Z4YskmcIwSTC+9KMHGSD6S 0AIJHkRxByekkIJKv3LPXbfMeOddgQmst+466xoAIUEEEUzAQNBD02H00UkvwnTTT0s9ddV4ZPEK 1hH/qTUnlyDyRi659BJMMLiEgrkoQSwTAjMefPIJ6KKPHnfppfeLCt6cCDFDmjT8AMP7MJywwQW0 1187Aco5osUYyGNtjC+ccFwhzuCK6U0OF2uoQht8FAMEoMADnfge+M7Xrwpa8HyhI0X6JGCwDGhg fvYLoe1wRzSj9c53THsa1KRGNS6oYQxZ0AXyjKGLUlzCEoeIQxjIRjnKTYESC/7EnjJyYAIRRMF7 4Auf+Cp4vtRxghNOiEAHjxTC+k3gfsp5ghPSAIqMBeoUlkjEIeYgBzjwEBdonEIOgmgWSDlgC0h8 YgabSEcncuITUZQBwYxERftRYAIToEDtbie0EhbthL9TofBa6IT9jeEVgQpUJcZoCDEUcHqUw8UU ysBGZZQgBAvAgSfimMQMmjJ0T/SeGiKgRw3w8QKz+2Mgp/UALKamC1FYwha1AElJzkEMYiDb5HqB wE2SRIjR0MEIGoCJUUqwlKd84h0/4QlMRKACezQSLAM5A2pR6wF/JGTudofIFAaPhVW7AxWooIX9 ZSELv4hnJYA5CjQScw1rUP/jMQeCgA/gQA2ecOYzpUnQaVKzmtfM5pEkMIFpebMCtZwA/lJTBR88 YQlRcIITQBHPeNrhCEcwQhPQmM8EALEkAwnBDTBAhWYG1HukTCVMD4oJTBDBAgrNAEOnZYE/vomh 4jQk75KWyHNGrYWO0KUT1tlOWnRUCUdQQhOaoIQ12GEKsVCgEAVSAge88RIufelMxxrQal7iEkLg oCv5uFOffvOPE0XMMvjggy74IAoZ3UI8aYEEJUh1CkoggxIOUIbCbFUZyczADM4K1rI69rHVxARj kyDFtRppp9OawR8pAFQS6s6EvSuq0xZZNS444gkZ1SgVQkELWvjMr1QlQgT+pgALG+yTIDrgwAPo wFiwhtWxNZUsYxVBWYX6YAYT0CwgHwDRB0i0PNGoghTsCoQoaEIYQhCCz7ZLhCYoIAdD+ZEyQqAB C4xBEb09a3Brmt5LBE0RWYiAB/mo2EBSoJvfdG5QP3vI0JpztOgsLR8y8QTU4jUK2U2wEIagBAWU AQy3JcgIUqSF97b3wu9VhCXQwErLKpYCDvXmmygQV+UEQLpScKUPfACEFjuBCGuAhQ4gXBLxIjZa QrBEhtGL3rPyOMOWCHIiOkxfCzT0oc2lwH7J6d+lKTLAVfPIdAu8hCUAwQlCIIMBikAJCEeYIMm4 gAxmkIggB3nHOzazJcb+QIXZ6bHIIPZmT0FMYj2RyUw50EEZRIAASnzheoctSJEekIgyq/nQalaE E2QXAYHlFANx1iyILYDcJYOWqP9d4VFLi62PgEQkGAl1mI5p44HcYMxoQISqC21oIYcxDUuowOwk IAMOTDEDGAAnBR5gARyAE5Al1pMytIM5UiuEBxWwQBIOoepmO1sRd/BBBWgnMGo9a758xECmcOBr QE5Av55lMqadbNThldYjX/h0qEVyvVIDiFpEOIS85b3qOjBBBrODgL4foCZoWVsG2cZAt5fL7ToL WyAVWeAxA42QScjgAkQoRCHmrYhGgDAC+s54AjbAAQ4s4GDeFHOuvf3/ABwMQBgiUHK4L620TJP2 3J7WSEhG1MmJRKILsJzDxBfxhfLWL+MZn4AGOm5rgj2cWrJ8wAB2sAMRFEMYBtcTRUpCdXcbZDV8 sIAExoAHHuA7At2sYv3Q5PEOQmvXTE/7DlCu8kLyd6gtJzeANw3zPaRb5uwOIkoV0gY2SNsCgG+0 DFJwJFhWMbkDK7qHRcD4xjMeBxMoQAGEHYSpWz0hPlhANHxggWtyYBnMQAYIKvBwCZj+9GCHqAUc kFMdOF4EOzBAAXoA2JX3d9zAm7u5oxxzW4164doaiAM0rwwU0IAHz4hGAEDfAjH74PTQn4G0EpAA Z9HX9Y03wAEKcIAB/oDAYQc/CQkcEIBoPAMGzoDBM2KwfGa0QAMXOBLg5y8B6V/gAVNowhQogIEV 61kEDXAAPdADTVAJaKBjtgd3KCR3mrZ7nWZ36kZzx0QIV5AQGNAC5Xd+x6B+7Md8KYBN0oZkziIt E4AAKTAACtBQ8ZIA3NcBKrAMMRB+RfEAzLAM0aAMz/ACLwANyrcMyNACKXABCwA40VKEFPBwRtYE cjAHhmAEU5AAAzgFYjAHrHZmCVhODPhyvAeBtkJzNUYIs5AQNLgM5VeBV9CDoQeEIZABICADbviG FBAtRqYAzCAQAVACOSAACFACMngYFqACNRgAgiiIy+CDLQCEJCAD/yWgAV7ViHF4ATOQAFMABxI3 cWM0B6tWhQjoduIWd7nXgC20hXfHbkOBPRSYECFgAchQg4VYiMyQhikAAjdwAStgAydyIm1yARVA AQXQASvQhzYSAA2AAav4iq/4g0AYiyRwATRQAiqgAggwAxYgA7t4AAcQAjcIjBTSAgYwAySADOB4 iMkoi7uCAQuQJBYgZj3FfQOwDNpYJSnQAROAAZozjuS4AAsAfzLgAGzyACzYfXX4jlVSAmVAfQ+w MCRgAyRAAvhIMCmCXNtXAAYQAu4okHryAzaAARNgjQYJJxNAfRF5AAaQAy2QjRYpdWBQBV2QawrA gpLHfQpgAA1ggiMrYJInKWxIsRhfUAU82ZMj0Iwr8AM3qY3E9ntVV3lDWSUBAQA7 --diehjhtth Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <maykmmg> R0lGODlhDAAMANUAAP////f3//f39+/v9+/v797m987W787W5sXW5rXF76295qW975y175St75St 3pSlzoyl1oSl5oylzoycxXOU3nOMxWOM5mOM3mOE1lqE3mOEvVKE1lp7xVJ71lJ7zlJ7xVJ7vUp7 zkpzzkpzxVJzrUprvUJrxUJrvUJjtTpjtTpjrTparTpapQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAADAAMAAAIjAABAAhwwMGFCxAQ CACwkICDDBYSLGjQwQEBhg8zDBAIYIEIBwIQdLjAoOOFgSFMIICwIUMEAxQwCBxhAgKHDh5C6DQA IIGJEyA4fPAwYoQCAAVKoEgBQsKJEidQ8CyRYumDA1VTqNBQQYXXFQofsPB6AIAKFiweNBTLoiza BxcFCjgwgQSJCQcWCggIADs= --diehjhtth-- --xtmooggljmkpr Content-Type: application/x-compressed; name="dpc.zip" Content-Transfer-Encoding: base64 Content-Disposition: attachment --xtmooggljmkpr-- Tag: Append Path Statement for System Level Environmental Variables Tag: 148756
  - 24
    - ShortCut and Localization Hi, When I execute a shortcut to execute a vbs file I want this vbs file give me the information to know where the user have execute the shortcut. How can I do that ? Thanks a lot for your help. -- David Tag: Append Path Statement for System Level Environmental Variables Tag: 148753
  - 25
    - Calling functions from .dll files and terminal services enviromnent Let me ask 3 questions, a general and 2 more specific questions. The first general question is: how can I call a function existing in a .dll file from a VBscript file? How can I insert the reference to the .dll file? Is there any documentation available? The more specific question is: I need to detect if my script is running in a terminal services session. I read article http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/detecting_the_terminal_services_environment.asp that suggests to use the GetSystemMetrics function, thast looks to fit my needs: how can I call such function from my VBscript? The second more specific question is: I used the Object Browser of Word to see the details of the wtsapi32.dll objects, but if I try to add it to the list of my references I get a message saying that it can't add a reference to the specific file. What is my mistake? Regards Mario Tag: Append Path Statement for System Level Environmental Variables Tag: 148750

I work with a program that has an add-on module that only requires a
modification to the environmental variables PATH statement no installation.
I'm looking to use a VBScript to append the PATH statement in the System
Vaiables for that workstation.
I need to add "J:\MyProg\Folder;J:\MyProg" to the PATH statement. I'm still
new at this VBScripting but it would make my life easier instead of running
to all the machines and added this setting.

Any help or suggestions are great.
thanks
rob bartley

Top

Re: Append Path Statement for System Level Environmental Variables by Torgeir

Torgeir
Fri Dec 05 09:47:57 CST 2003

Rob wrote:

> I work with a program that has an add-on module that only requires a
> modification to the environmental variables PATH statement no installation.
> I'm looking to use a VBScript to append the PATH statement in the System
> Vaiables for that workstation.
> I need to add "J:\MyProg\Folder;J:\MyProg" to the PATH statement. I'm still
> new at this VBScripting but it would make my life easier instead of running
> to all the machines and added this setting.

Hi

I always use the command line utility Pathman.exe to modify the path
programmatically (NT4, Win2k and WinXP). It will e.g. handle repeated entries
correctly. A logoff/logon is necessary to see the changes.

Here is the one from the free part of the Windows 2000 Resource kit
(It works on WinXP and Win Nt 4.0 as well):

Download Pathman.exe from here:
http://www.microsoft.com/windows2000/techinfo/reskit/tools/default.asp

Run pathman /? in a command prompt for more help...

It's in the Windows Server 2003 Resource Kit Tools as well:
http://www.microsoft.com/downloads/details.aspx?FamilyID=9d467a69-57ff-4ae7-96ee-b18c4790cffd&DisplayLang=en

Windows Server 2003 Resource Kit Tools will install on WinXP or later.

--
torgeir
Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of the 1328 page
Scripting Guide: http://www.microsoft.com/technet/scriptcenter

Top