Script will not run after Windows update

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
    - Select Box Multiple This is seriously killing me: Does anyone use MSN Hotmail? If so, they have an e-mail attachment screen that I wish to emulate, but for my purposes instead of attaching files to an e-mail, I am trying to upload images to an on-line photo gallery. I have the file input box, and script (Javascript) that will take the file path from the input box and add a new option to the multi select box. The path is the value of the new option, and I parse the path to get the file name, and use that as the text value of the new option. I need to loop through the select box and upload/save each file on the server. I have tried SA File Up, but it was not working correctly. I tried an eval version of ASPUpload, to no avail. Has anyone had any experience with this? Any help is greatly appreciated. Regards, Nathan Arnold Tag: Script will not run after Windows update Tag: 148995
  - 2
    - Verifying if an Outlook profile does exist I am creating a logon script to create automatically a user profile if it does not exist using newprof, a utility existing on the Office Resource kit. However, how can I say that a user profile does not exist for a specific user? Regards Marius Tag: Script will not run after Windows update Tag: 148994
  - 3
    - DLL unload problems Hi, I have done an COM component in VC 6. I'm using it from VBScript. The code is something like: Dim obj Set obj = CreateObject("Comcom.Interface1") cver = obj.GetVersion Set obj = Nothing My problem is that the DLL that contain the COM is unloaded from memory only when the Internet Explorer window is closed. Is there any way to unload the dll but keeping the Internet Explorer window open ? Thanks, Gabi Tag: Script will not run after Windows update Tag: 148988
  - 4
    - Append Path Statement for System Level Environmental Variables 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 Tag: Script will not run after Windows update Tag: 148983
  - 5
    - 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: Script will not run after Windows update Tag: 148982
  - 6
    - 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: Script will not run after Windows update Tag: 148976
  - 7
    - 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: Script will not run after Windows update Tag: 148971
  - 8
    - 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: Script will not run after Windows update Tag: 148967
  - 9
    - 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: Script will not run after Windows update Tag: 148964
  - 10
    - | | Tag: Script will not run after Windows update Tag: 148959
  - 11
    - 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: Script will not run after Windows update Tag: 148947
  - 12
    - 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: Script will not run after Windows update Tag: 148946
  - 13
    - 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: Script will not run after Windows update Tag: 148943
  - 14
    - 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: Script will not run after Windows update Tag: 148941
  - 15
    - 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: Script will not run after Windows update Tag: 148939
  - 16
    - 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: Script will not run after Windows update Tag: 148933
  - 17
    - 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: Script will not run after Windows update Tag: 148932
  - 18
    - 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: Script will not run after Windows update Tag: 148921
  - 19
    - 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: Script will not run after Windows update Tag: 148920
  - 20
    - 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: Script will not run after Windows update Tag: 148919
  - 21
    - 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: Script will not run after Windows update Tag: 148916
  - 22
    - 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: Script will not run after Windows update Tag: 148913
  - 23
    - 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: Script will not run after Windows update Tag: 148912
  - 24
    - 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: Script will not run after Windows update Tag: 148909
  - 25
    - 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: Script will not run after Windows update Tag: 148900
- Next
  - 1
    - 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: Script will not run after Windows update Tag: 148894
  - 2
    - 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: Script will not run after Windows update Tag: 148892
  - 3
    - 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: Script will not run after Windows update Tag: 148886
  - 4
    - How to round up. Using vbscript How can I round up to the next int Don Tag: Script will not run after Windows update Tag: 148885
  - 5
    - 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: Script will not run after Windows update Tag: 148880
  - 6
    - 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: Script will not run after Windows update Tag: 148878
  - 7
    - 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: Script will not run after Windows update Tag: 148876
  - 8
    - 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: Script will not run after Windows update Tag: 148873
  - 9
    - 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: Script will not run after Windows update Tag: 148856
  - 10
    - 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: Script will not run after Windows update Tag: 148854
  - 11
    - 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: Script will not run after Windows update Tag: 148797
  - 12
    - 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: Script will not run after Windows update Tag: 148794
  - 13
    - 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: Script will not run after Windows update Tag: 148791
  - 14
    - 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: Script will not run after Windows update Tag: 148789
  - 15
    - 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: Script will not run after Windows update Tag: 148781
  - 16
    - 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: Script will not run after Windows update Tag: 148779
  - 17
    - 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: Script will not run after Windows update Tag: 148776
  - 18
    - 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: Script will not run after Windows update Tag: 148775
  - 19
    - 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: Script will not run after Windows update Tag: 148772
  - 20
    - 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: Script will not run after Windows update Tag: 148770
  - 21
    - 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: Script will not run after Windows update Tag: 148767
  - 22
    - 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: Script will not run after Windows update Tag: 148765
  - 23
    - 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: Script will not run after Windows update Tag: 148762
  - 24
    - 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: Script will not run after Windows update Tag: 148761
  - 25
    - 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: Script will not run after Windows update Tag: 148760

After using Windows Update to update Windows XP Pro, my
scripts stop when launching an exe or bat file with the
follwoing message

File Download
Some files can harm your computer.....
Would you like to open the file or save it to your
computer ?

Open /Cancel ...

How can I disable this in a good way so the script will
run without user interaction ?

Top