Transfer file from VBS via HTTP

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
    - get proxyaddresses for all contacts of an OU using vbs & ADO Hello, I'm making a script to compare an export of an OU(csv) with the content of an OU. I saw approaches using ado or ldap. But using ADO i'm only able to connect to Rootdse and get the proxyaddresses attribute of all users. How can i filter down to the OU and afterwards get the contacts or user's proxyaddresses from that specific OU only? thanks Tag: Transfer file from VBS via HTTP Tag: 171375
  - 2
    - Blocking right mouse click to copy items on html internet page Dear, because I want to use some material on the internet site, but I plan to write a book too later, I would like to "secure" (a little) my data on my html pages, by giving a messagebox when the visitor gives a right mouse button click. I want to remove the copy menu and give a message such as "sorry, this material is copyrighted"... Any good idea's please ? Phil webmaster Official site 101st Airborne 463rd Parachute Field Artillery -- http://users.skynet.be/101airborne Tag: Transfer file from VBS via HTTP Tag: 171374
  - 3
    - xml /text-file issue Hi, I create an XML-file with a vb-script containing an AS database. This file I load in the Analysis Services dso/xml console. I create my file with VbS: Set objFSObject = CreateObject ("Scripting.FileSystemObject") Set objFile = objFSObject.CreateTextFile("dso.xml", 8, True) This works great as long as I copy all the content of my textfile into and replace all the content of a generated file from DSO/XML convertion utility. But if I try to use my file direct with the dso/xml console nothing happens. If start "my" XML-file with IE there is an errormessage and no text shows up, but if I replace the content of a generated file it shows up in a coorect and structured way. Is there different types of xml-files ? I thought that any text-file named .xml would work. /Jerome Tag: Transfer file from VBS via HTTP Tag: 171373
  - 4
    - Changing the name of MSI installed software I was wondering if anyone would know if it is possible to change the name of software in the Add/Remove software list. I have tried using set obj.Name = "Change the name" and set obj.Caption = "Change the name" I have a feeling that this is not scriptable. Thanks Tag: Transfer file from VBS via HTTP Tag: 171369
  - 5
    - How to Search C:\ to find a file Hi, I have found several scripts that will search for files as long as a folder name is provided as soon as I change it to C:\ I get permission errors. As I don't know where the file will be I need to search from C:\. Can vbscript do this? Tag: Transfer file from VBS via HTTP Tag: 171363
  - 6
    - Finding out when desktop is available I need to destermine within my vbs script when it is safe to start a function within my login script. It is only safe for me to do that once the users has entered his password and the "desktop" has appeared. If teh function that I have runs before the desktop has appeared it fails. I thought I could check to cul dstart my function once the explorer.exe process is running but that appears to be running before the desktop is up. What process or other identifier can I use to check so I can know it is safe to start my process in teh script ? Placing it in the start, rograms ..startup folde ris not an option for me. Thanks Tag: Transfer file from VBS via HTTP Tag: 171358
  - 7
    - Problem with a class I have created a class cReqPos in a file by itself I include the class file in a page that creates an instance of the class and do some stuff. That instance is in a Session variable: Session("ReqPos")= new cReqPos I submit that page to itself in several ocassions and the instance works fine, but when I submit it to a different page and try to access its properties, it fails: "Object doesn't accept that property or method". What am I doing wrong? Session("ReqPos") is still an object after submission, but somehow it loses the properties and methods. Thanks in advance Tag: Transfer file from VBS via HTTP Tag: 171350
  - 8
    - Customizing Word 2003 menubar I want to customize Word menubar from a macro. I would like to remove options like "Save As", "Open", etc... This because I will invoke Word from another application with the name of the file. I want the users to change the opened document and save it, with no other way of saving it somewhere else... Thanks Jacques Tag: Transfer file from VBS via HTTP Tag: 171348
  - 9
    - Script to see if a user is logged in via RDP I have a script that will tell you if a user is physically logged into a workstation, but if the user RDPs and logs onto the workstation it appears no one is logged in. Is there a way to tell via a script if someone is logged in via RDP to an XP workstation. Here is my script that works for a physical log in. On Error Resume Next Dim name Dim User(20) Dim wks(20) Dim comname(20) Dim strComputer(20) y = 0 For x = 1 to 9 if y < 9 then name = "computername-0" else name = "computername-" end if y = y + 1 comname(x) = name & y Strcomputer(x) = comname(x) Set objWMIService = GetObject("winmgmts:\\" & strComputer(x) & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) For Each objItem in colItems wks(x) = objItem.Name user(x) = objItem.UserName Next Next For r = 1 to 9 if user(r) <> vbempty then Wscript.Echo wks(r) & " is currently in use by " & user(r) else Wscript.Echo wks(r) & " is available for RDP" end if Next Tag: Transfer file from VBS via HTTP Tag: 171345
  - 10
    - How to determine server role Hello, I have many servers in a win2003 domain. I would like to have a ADSI vbscript to determine the system role: like, Domain Controller, member server, further more WINS, DNS, DHCP roles even better. Thanks, Wensi Tag: Transfer file from VBS via HTTP Tag: 171344
  - 11
    - Display a picture in VBScript. Is it possible to display a picture with VBScript? I need a stand-alone script to run when users log onto a network of Windows 2000 clients. I want to display a picture of our usage policy which is longer than the Windows logon banner allows. Any help you can give is greatly appreciated. Tag: Transfer file from VBS via HTTP Tag: 171343
  - 12
    - Send email when password expires I have found the following code at the scripting centre but contine to get the following error when I try it: Line 12 char1 table does not exist. Can someone please help me with this? Set oConfig = CreateObject("CDO.Configuration") Set colFlds = oConfig.Fields colFlds("http://schemas.microsoft.com/cdo/configuration/sendusingmethod") = 2 ' cdoSendUsingPort colFlds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server ip address" colFlds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2 ' cdoNTLM colFlds.Update Set cnAD = CreateObject("ADODB.Connection") cnAD.Open "Provider=ADsDSOObject;" Set cmdLDAP = CreateObject("ADODB.Command") cmdLDAP.ActiveConnection = cnAD cmdLDAP.CommandText = "<LDAP://dc=netbios domain name>;(objectCategory=User);samAccountName,mail,userAccountControl;subtree" Set rsUsers = cmdLDAP.Execute Do While Not rsUsers.EOF sEmail = rsUsers("mail") If Len(sEmail) = 0 Then ' User has no email address, so no point in checking further Else If rsUsers("userAccountControl") And &h10000 Then ' ADS_UF_DONT_EXPIRE_PASSWD ' User is exempt from password expiration Else sUser = rsUsers("samAccountName") If Not IsNull(sUser) Then Set oUser = GetObject("WinNT://domain name/" & sUser & ",user") If oUser.UserFlags And 2 Then ' Account is disabled, so it doesn't matter Else iDaysLeft = (oUser.Get("MaxPasswordAge") - oUser.Get("PasswordAge")) \ 86400 If iDaysLeft < 14 Then Set oMsg = CreateObject("CDO.Message") Set oMsg.Configuration = oConfig oMsg.From = "mailadmin@ablao.ab.ca" oMsg.To = sEmail oMsg.Subject = "Password Expiration Warning" oMsg.TextBody = "Your password expires in " & iDaysLeft & " days." oMsg.Send End If End If End If End If End If rsUsers.MoveNext Loop rsUsers.Close cnAD.Close Tag: Transfer file from VBS via HTTP Tag: 171342
  - 13
    - Passing object between Scripts I would like to use an object in one script called from another script. The object is created in the calling script. Based on the documentation in the MSDN library, it appears I can only pass text. Thanks, dra Tag: Transfer file from VBS via HTTP Tag: 171339
  - 14
    - "Assistant" Email Contact Attribute Hello, I am trying to populate the "Assistant" attribute field in email contacts. I have not been able to find a way to do this. Does anyone know how I would change this value using VBScript? TIA, Bill Burke bill@2burkes.com Tag: Transfer file from VBS via HTTP Tag: 171337
  - 15
    - Date Questions I'm a programming neophyte so needless to say I need some help on some VB scripting. I need to create some code to find what month it will be this coming Saturday. I also need to do the same for the week # of the month this Saturday. And finally, the Year of the month this Saturday. I just want the that paticular value returned (i.e. if I'm looking for the month then it gives me 03 not 03/08/2005) Could someone help me with this? And Finally, is there a way to say that if the month is January (from the value in the previous questons) the substitue January for A; Februray for B; March for C; etc??? Thanks for the the help!?!?!?! -vbDazed&Confused Tag: Transfer file from VBS via HTTP Tag: 171335
  - 16
    - Error Reporting Strategies for Scheduled Scripts This message is in MIME format. The first part should be readable text, while the remaining parts are likely unreadable without MIME-aware tools. --5009574-13942-1110386155=:1888 Content-Type: TEXT/PLAIN; charset=X-UNKNOWN; format=flowed Content-Transfer-Encoding: QUOTED-PRINTABLE I've got several scripts that I run on our server. Most move sql data=20 around from one source to another. Some just copy files. Anyway, I=20 haven't came up with a good error reporting strategy yet and I was=20 wondering how you all are handling it. A good error handling strategy would * log all errors to a text file * time the script out after it ran for an hour or so * report time outs to a log file * just report errors that stopped execution What else? How do you do it? =F8=A4=B0`=B0=A4=F8,=B8_=B8,=F8=A4=B0`=B0=A4=F8,=B8_=B8,=F8 --5009574-13942-1110386155=:1888-- Tag: Transfer file from VBS via HTTP Tag: 171332
  - 17
    - One window opened Hello all again! On the main form I have a few fields and among of them there is button which opens additional window (named "Links") where user can delete and add data. I want this user let open (from the main form) only one subform "Links". I hope you know what I mean. An example of my idea is Winamp program, which in the default version opens only once and when somebody wants to open two Winamp programs in the same time it is rather impossible or settings change is then needed. I do not even know in what language it is possible to do, maybe in javascript. Thank you in advance for your posts Best and kind regards Marcin from Poland Tag: Transfer file from VBS via HTTP Tag: 171330
  - 18
    - browse window Hello! I would like to use such a browse window, thanks for it, I would select/choose a path of the local source files, which paths would be saved in the database. Is it possible in VBScript if so, please be so kind and give me a code. After saving I would like to create a button in VBScript and HTML which would open me this file in the default program installed on the local machine. Hard question, so I will be grateful for any posts. Kind regards Marcin Tag: Transfer file from VBS via HTTP Tag: 171329
  - 19
    - wscript.quit 8004005 Error I have a WSF script that we use with SMS to install software. The script calls the cmd line for an installation (setup.exe, MsiExec.exe, etc.) I am using the following line to call the install: strRunTime = oshell.run(strCMD,1,1) WScript.Quit(strRunTime) strRunTime captures the return value from the setup and passes it to wscript.quit so that SMS will know whether the install was successful. Here's the issue this code is working on literally 1000s of machines; however, there are 2 that will process the script trhough the strRunTime line and then throw the unspecified 80004005 error from source null. Oddly, the line number that is throws with the error is part of a second portion of embedded code in the wsf. a snipet of the code is below. The line number in the error is referencing the line after <![CDATA[. Any thoughts? Select Case strReady Case 1 strRunTime = oShell.run(strCMD,1,1) WScript.Quit(strRunTime) 'Using Wscript.Quit to pass any error codes from the package 'back to the application that called the script (e.g. SMS) Case 5 strRunTime = oShell.run(strCMD,1,1) WScript.Quit(strRunTime) 'Using Wscript.Quit to pass any error codes from the package 'back to the application that called the script (e.g. SMS) Case 6 strRunTime = oshell.run(strCMD,1,1) WScript.Quit(strRunTime) 'Using Wscript.Quit to pass any error codes from the package 'back to the application that called the script (e.g. SMS) Case 7 If strHelpSite = Empty Then strLater = MsgBox("You have selected to not install " & strPkgName & "." & VbCrLf &_ "You will be prompted again in 24 hours to run" &VbCrLf &_ "the installation. If you prefer you can install" &VbCrLf &_ "the application manually as follows:" &VbCrLf &VbCrLf &_ "1. Click Start" &VbCrLf &_ "2. Click Control Panel" &VbCrLf &_ "3. Click Add/Remove Programs" & VbCrLf &_ "4. Repeat Step 3 If necessary" & VbCrLf &_ "5. Click Add New Programs" & VbCrLf &_ "6. Click " & strSMSPkgName & VbCrLf &_ "7. Click Add, you will be prompted with the previous dialog" &VbCrLf &_ "",vbOKOnly,strPkgName &" Install") Elseif strHelpSite <> Empty Then strLater = MsgBox("You have selected to not install " & strPkgName & "." & VbCrLf &_ "You will be prompted again in 24 hours to run" &VbCrLf &_ "the installation. If you prefer you can install" &VbCrLf &_ "the application manually as follows:" &VbCrLf &VbCrLf &_ "1. Click Start" &VbCrLf &_ "2. Click Control Panel" &VbCrLf &_ "3. Click Add/Remove Programs" & VbCrLf &_ "4. Repeat Step 3 If necessary" & VbCrLf &_ "5. Click Add New Programs" & VbCrLf &_ "6. Click " & strSMSPkgName & VbCrLf &_ "7. Click Add, you will be prompted with the previous dialog" &VbCrLf &VbCrLf&_ "Click yes for a printable version of the instructions",vbYesNo,strPkgName &" Install") Select Case strLater Case 6 strRunHelp = oshell.run(strHelpSite,1,0) Case 7 WScript.Quit() End Select End If End Select End If ]]> </script> <script id="pkgPromptConfig" language="VBScript"> <![CDATA[ If strConfig = 1 Then Const FORReading = 1 Const ForWriting = 2 'WScript.Echo("Configure Script") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("pkgPromptVar.vbs", ForReading) n = 0 reDim aryVars(n) Do Until objTextFile.AtEndOfStream strFileInput = objTextFile.Readline If strFileInput <> Empty Then aryVars(n) = strFileInput n = n + 1 ReDim Preserve aryVars(n) End If Loop ReDim preserve aryVars(n - 1) objTextFile.close Set objTextFile = objFSO.OpenTextFile("pkgPromptVar.vbs", FORWriting) For Each strLine In aryVars aryInp = split(strLine,"=") aryInp1 = Split(aryInp(1),"'") 'WScript.echo("Before: " & aryInp(0) & "=" & aryInp1(0) & "'"& aryInp1(1)) strCfgParm = InputBox(aryInp1(1),"Script Configurator",aryInp1(0)) 'WScript.echo("After: " & aryInp(0) & "=" & strCfgParm & "'"& aryInp1(1)) objTextFile.WriteLine(aryInp(0) & "=" & strCfgParm & "'"& aryInp1(1)) Next End If ]]> </script> </job> </package> Tag: Transfer file from VBS via HTTP Tag: 171324
  - 20
    - Net Send or an alternative Hi, I have used Net Send to communicate with other machines on my LAN but have trouble with it on some new XP SP2 machines. I've started the Messenger Service but seem to be missing something. It works with some machines but not all. What am I missing. It's not a firewall issue. I had no problems with my old Win2K machines. Are there alternatives to the Net Send to sent a pop-up message to others? thanks, Mike Tag: Transfer file from VBS via HTTP Tag: 171322
  - 21
    - Performance difference I have this big VBscript where the author has used functions instead of subroutines when there is no need for functions. Is there any difference in performance using subroutines versus functions in VBscript. Tag: Transfer file from VBS via HTTP Tag: 171321
  - 22
    - Need to run cacls from ASP Hi I'm working on a create user script, and need to give user Full Controll of his/hers home directory. A Web Application will be doing a HTTP-request to an ASP, which then will run the create user script. I have already set myself, an admin user, in the Anonymous Access in the Directory Security for the web site. I did this cause no script would run, and interactiv logon is not an option since its a web application which will be making the request. But cacls wouldn't do anything anyway. This is how I called cacls: set obj = Server.createObject ("wScript.shell") Call obj.Run("cacls " & USER_ROOT_UNC & "\" & un & " /e /g " & un & ":F", HIDE_WINDOW, WAIT_ON_RETURN ) The ASP ran to the end, but when i checked the ACL of the directory, the user wasn't included, and the cacls command hadn't done a thing. I got a tip from a friend, and installed dynu.dll and used that exec method. Then it returned: Access Denied. rsCmd = "cacls " & USER_ROOT_UNC & "\" & un & " /e /g " & un & ":F" Set myexec = Server.Createobject("Dynu.Exec") Response.Write(myexec.execute( rsCmd )) Is there a way to authenticate an admin user, so I can remove my admin user from Anonymous Access and/or run the script? Geir Roger Moen Tag: Transfer file from VBS via HTTP Tag: 171315
  - 23
    - Classes in VBS? Is possible in VBScript to define classes? Tag: Transfer file from VBS via HTTP Tag: 171311
  - 24
    - .ini file to read script values Hi, I have created a few scripts for monitoring purposes that need input like hostname, logfile path name, etc. Instead of hardcoding all values into each script I thought about using a .ini file to hold the values which in turn can be read by my scripts. I.E: ********** start .ini file ********** [hostname] myserver1 [logfile path] C:\folder\logfiles ********** end .ini file ********** The scripts use the following code to read the .ini file: ********** script example ********** Set objFSO = CreateObject("Scripting.FileSystemObject") strINIfile = "C:\folder\file.ini" ' Open INI file to retrieve string values Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile(strINIfile, OPEN_FILE_FOR_READING) Do Until objTextFile.AtEndOfStream strText = objTextFile.ReadLine If Instr(strText, "[hostname]") Then strLogPath = objTextFile.ReadLine End If If Instr(strText, "[logfile path]") Then strSchemaPath = objTextFile.Readline Exit Do End If Loop objTextFile.Close Set objTextFile = Nothing Set objFSO = Nothing ********** end script example ********** This all works very nice, but to me it looks like a little bit of spaghetti-programming; does anyone know a nicer (more professional) way of achieving the same result? TIA, Wouter Tag: Transfer file from VBS via HTTP Tag: 171310
  - 25
    - Call Function in ASP Hi, I'm getting an "HTTP 404 error file not found" when I click on the Continue button. I think my ocde is incorrect somewhere in the IF block. Is anyone able to see where the error is with my code below? <% IF Session("UserLogonID")= "" THEN Response.Redirect "../Timeout.asp"%>   <% ProjectID = Request.QueryString("PROJ") ClosingProject = Request.QueryString("ClosingProject") If Not IsEmpty(Request.Form("_continue")) Then 'This block gets called when the Continue (submit) button is clicked on ' The function call may not be the correct syntax, I haven't tested it CloseProject() End If Call DisplayProject (ProjectID) %> <%If ClosingProject = "Yes" Then %> <FORM method=POST id=form1 name=form1> <TABLE BORDER=0> <TR></TR><TR></TR><TR></TR> <TR><TD><%=CancelButton%><input id="_continue" type="submit" value="Continue"></input></TD></TR> </FORM> <%End If %> <% Function CancelButton%> <INPUT type="button" value="Cancel" id=Cancel name=Cancel onclick="window.location='../WelcomeDataMaintenanceReDirect.asp';" style="WIDTH: 80px; HEIGHT: 22px; font-size: 10px bold; COLOR:#FFFFFF; BACKGROUND:#6699FF;"> <% End Function%> <% Function CloseProject()%> <% ' Close project, and update audit trail. dim COM_General dim COM_GroupMaintenance dim COM_AuditTrail dim COM_DemandFrontEnd dim objConn dim objConnAuditTrail ProjectID = Request.Form ("ProjectID") set COM_General = Server.CreateObject ("eOffice.General") set COM_GroupMaintenance = Server.CreateObject ("eOffice.GroupMaintenance") set COM_AuditTrail = Server.CreateObject ("eOffice.AuditTrail") set COM_DemandFrontEnd = Server.CreateObject ("eOffice.DemandFrontEnd") set objConn = COM_General.OpenConnection (Application("APPConnectionString")) set objConnAuditTrail = COM_General.OpenConnection (Application("AUDITConnectionString")) StatusUpdate = COM_DemandFrontEnd.CloseProject(objConn, ProjectID) CALL COM_General.closeConnection (objConn) CALL COM_General.closeConnection (objConnAuditTrail) set ObjConn = Nothing set objConnAuditTrail = Nothing set objRST = Nothing set COM_General = Nothing set COM_GroupMaintenance = Nothing set COM_DemandFrontEnd = Nothing set COM_AuditTrail = Nothing Response.Redirect "DisplayProjects.ASP?PROJ=" & ProjectID & "&ClosingProject=Yes&ProjectClosed=Yes" %> <% End Function %> Thanks for your help. Tag: Transfer file from VBS via HTTP Tag: 171297
- Next
  - 1
    - Advice/thoughts on best way to search registry? Hi all, I'm looking for opinions on the best way to search a branch of the = registry. I'll be looking for specific string data in the subkeys of: HKCU\Software\Microsoft\Windows\ShellNoRoam\Bags The data occurs in a value which is in some but not all of the subkeys = (FolderType). When found, I'll want to determine which key(s) contained = the data. I found this: http://groups-beta.google.com/group/microsoft.public.scripting.vbscript/m= sg/f25e5d6e077e37e5 which seems to indicate that exporting, using findstr and string = manipulation might be the most efficient way to go for this portion of = my project. Thoughts? Suggestions? Opinions? Thank you, Keith Tag: Transfer file from VBS via HTTP Tag: 171295
  - 2
    - HOWTO: Use DotNet Created DLL in VBScript Can I create a DLL in Visual Studio .Net 2003 using VB.NET as the programming language and call it from a VBScript program using Server.CreateObject? Is there any example code? I want to use the .Net sockets functionality, via System.Network.Sockets to replace the unstable Winsock control. I need to handle TCP sockets communication between two computers in a vbscript file because I only have the capability of loading vbscript macros into another software product I purchased. Currently, I have a vbscript file that does a Server.CreateObject("MSWinsockConstant","MSWinsock") and connects to a TCP server that sends it data, but there are issues when disconnecting. I need to upgrade this to a more stable solution. -- Thank you kindly, Dan Sikorsky MSCS, BSCE, BAB Tag: Transfer file from VBS via HTTP Tag: 171292
  - 3
    - Frequent Error I am using T Lavedas' WSH Scripts for msgbox function. I get the following error frequently: "Could not create object named "InternetExplorer.Application"" Error number: 800004002 I also notice that it usually takes a more that 2 or 3 seconds for T Lavedas' WSH Scripts msgbox to come up, once I start the script. Thanks, dra Tag: Transfer file from VBS via HTTP Tag: 171284
  - 4
    - Form autofill on error When someone submits a form, I run a few checks to ensure that they have a valid email format and that it's entered the same twice. If any of my checks fail, I return them to the form to correct the mistakes. What's the best way to get the information in the form (except the email address) filled in with the info they originally had in there? I had it set up to do a request.form on the asp page that did the test, the if it failed and returned back to the form page (also asp) it passed querystring variables. This works except for the comment area if the person had a carraige return in that portion as the carraige return can't be sent through in a querystring variable and the comment is truncated at that point. -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Brearley Tag: Transfer file from VBS via HTTP Tag: 171281
  - 5
    - URL limit Hello all! I have general question. Does the URL address has length limit of the passing data? Thank you for answers Marcin from Poland Tag: Transfer file from VBS via HTTP Tag: 171279
  - 6
    - running script under an alternate username (domain admin) Hello: I am working on a GP to run under the powerusers group. The script will remove the connections tab from IE. The users are only powerusers, and are not part of our active directory. However, I can authenticate from my domain (1 way trust). I have tried to create a script that will login as a domain admin, and run. It is failing, and also giving an access denied error. I have reset the actual domain password, to insure that was not the problem, it still fails. This is what I have. Const HKEY_CURRENT_USER = &H80000001 Const WbemAuthenticationLevelPktPrivacy = 6 strComputer = "." strNamespace = "\root\cimv2" strUser = "domain\admin" strPassword = "pword" Set ObjWbenLocator = CreateObject("wbemScripting.SWbemLocator") set objWMIservice = objwbemLocator.Connectserver _ (strComputer, strNamespace, strUser, strPassword) objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_OperatingSystem") For Each ObjItem in ColItems Wscript.Echo strComputer & ": " & objItem.Caption Next Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Policies\Microsoft\Internet Explorer\Control Panel" strValueName = "Connectionstab" strValue = "00000001" oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue strValueName = "Connectionstab" dwValue = 1 oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue Tag: Transfer file from VBS via HTTP Tag: 171278
  - 7
    - ADSystemInfo and Windows98 Hello: We have the following vb script that works great in WindowsXP, but does not work in Windows98. We know the reason is because the ADSystemInfo is not supported on Windows98. But our question is: what would we be able to do to get AD and Group information from a Windows98 machine? Also: would it be possible to run both in the same script, or would we need to have a seperate script for the different machines? ---------------------------------------------------------------------------------------------- Script ---------------------------------------------------------------------------------------------- Set objSysInfo = CreateObject("ADSystemInfo") Set objNetwork = CreateObject("Wscript.Network") strUserPath = "LDAP://" & objSysInfo.UserName Set objUser = GetObject(strUserPath) For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN Select Case strGroupName Case "MIS" objNetwork.MapNetworkDrive "T:", "\\Prod1\MIS" Case "HR" objNetwork.MapNetworkDrive "X:", "\\Prod1\HR" Case "AP" objNetwork.MapNetworkDrive "X:", "\\Prod1\AP" Case "AR" objNetwork.MapNetworkDrive "X:", "\\Prod1\AR" End Select Next Tag: Transfer file from VBS via HTTP Tag: 171275
  - 8
    - map printers with vbscript Can someone tell me how to write a vbscript to map network printers to user accounts when they login to the network? The script will live on a WinServer2000 domain controller. Your help will be greatly appreciated. btw, I have a very minimal understanding of scripting... so try to explain in a non-intimidating manner. Thanks. Tag: Transfer file from VBS via HTTP Tag: 171273
  - 9
    - IIF Hello all! I used to MS Access in daytime job, but now I create a page in VBScript (ASP), that`s why I have question. Does "iif" function exist in VBScript if not, so please give me the similar raplecesive function for such usage. I have noticed that iif function doesn`t work in VBScript or I am wrong. I don`t want to use simple "if" function. Thank you in advance Marcin from Poland Tag: Transfer file from VBS via HTTP Tag: 171269
  - 10
    - Remote logon using specific credentials? I've already got a vbscript that will logoff all computers in our lab (they're all xp pro boxes). Now I'd like to be able to run a script that logs on to each of the computers using the same generic domain account (for exam purposes). Is this possible? What would be ideal is a single script that logs everybody off and then immediately logs them on with the generic account. Tag: Transfer file from VBS via HTTP Tag: 171266
  - 11
    - read csv with ADO Hello, Can someone point me to a document or a script that uses ADO to read a comma delimited text file? I saw some articles about the ms text driver but couldn't find enough information for me to write the script... The script has to get some of the columns of the csv and write them to the console. thanks paisher Tag: Transfer file from VBS via HTTP Tag: 171257
  - 12
    - Identification on active directory (LDAP) Hi, i want to write a script to identifiate a user (with his login/password) on a active directory server i found the openDSObject function but i didn't manage to identifiate the user. Ifnact i manage on a simple active directory architecture but in a complex one i didn't?!! is there a limitation for that function is tyere a possibility to block this function on the server? my LDAP querry is like tht : QUERY LDAP = LDAP://ou=USERS,OU=FR_Town,DC=District,DC=Firm,DC=com i don't know if i had to add the server IP and the CN of the user (that is the user himself infact..... then my function is like that : openDSObject( LDAPQUERY, UserName,Userpassword,0) Is the username the loginname or the full name???? Thank you Olivier Tag: Transfer file from VBS via HTTP Tag: 171251
  - 13
    - convert binary file to Base64? Hi! You know how I can convert a binary file to Base64? Tag: Transfer file from VBS via HTTP Tag: 171249
  - 14
    - LsaAddAccountRights Hi! Does anyone know if it's possible to create a user using vb script and then add/remove privileges using LSA calls? I'm trying to create local users and modifying their privileges. Thanks in advance Morten Tag: Transfer file from VBS via HTTP Tag: 171243
  - 15
    - Using SOAP with WSS and VBS Hi! You know where I can download examples of SOAP for WSS write on VBS? Tag: Transfer file from VBS via HTTP Tag: 171237
  - 16
    - Validating a string using a regular expression I want to validate the value that a user enters in a textfield and ensure that it has a valid format. The required format is: - Must be 8 characters - The first 4 characters must be alphabetical (a-z) - The last 4 characters must be numerical (0-9) In the following code METHOD 1 does a suitable validation and works well, but what am I doing wrong in METHOD 2 which uses a regular expression to do the validation? ------------------------- METHOD 1: Dim strCheckValue, strCheckValue, strCheckResult, i strCheckValue = "abcd1234" strCheckValue = 0 For i = 1 To 4 If Not isNumeric(Mid(strCheckValue,i,1)) Then strCheckValue = strCheckValue + 1 End If Next For i = 5 to 8 If isNumeric(Mid(strCheckValue,i,1)) Then strCheckValue = strCheckValue + 1 End If Next If strCheckValue = 8 Then strCheckResult = "valid" Else strCheckResult = "invalid" End If Response.Write("The value is " & strCheckResult) ------------------------- METHOD 2: Dim strCheckValue, VerifyValue strCheckValue = "abcd1234" Set VerifyValue = New RegExp 'VerifyValue.Pattern = "\[a-z]{4}\[0-9]{4}" VerifyValue.Pattern = "\[a-z]{4}\d{4}" VerifyValue.IgnoreCase = True If VerifyValue.Test(strCheckValue) = False Then Response.Write("INVALID.") Else Response.Write("VALID" ) End If *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Transfer file from VBS via HTTP Tag: 171235
  - 17
    - Sort Filelist Hello News Group, i have a problem. I want to read in my fileystem. I want to display all subfolders in a folder with a tree. But he sort my orders very strange. How can I sort them alphabetically ? Can anyone help me ??? Thanks ChrIs Tag: Transfer file from VBS via HTTP Tag: 171233
  - 18
    - Scripting the *.reg file execution Hi to All, I need to change the Registry setting with administrative rights on "normal user workstations". I expected runas is the right choice, but the script that I intend to encrypt to hide the admin password does not work. There may be some missing agreement with the reg file execution as it is in manual execution. ere is the copy of script slightly adapted from Serdar Yegulalp set WshShell = CreateObject("WScript.Shell") WshShell.Run "runas /user:nt\MSvsSUN ""j:\Java\Off.reg""" WScript.Sleep 200 WshShell.Sendkeys "heslo~" Off.reg is exported file from Registry. TIA Regards, Milos Tag: Transfer file from VBS via HTTP Tag: 171228
  - 19
    - Need help with a create domain user script Hi I am a beginner in VBS scripting and need some help with a create user script I am making. This is the scenario. We are making a Web application, where a Customer might register, and when it is time for the Customer to be activated the WebApp is doing a HTTP request to a server running IIS and a ASP will run the script. The script will then create the user, set the user information and then create home directory and give the user full control of the home directory. My first problem was that the ASP couldn not connect to the Active Directory. That problem we fixed when the website is impersonating me as anonymous IIS user. The creating of the script went fine until it was time to give user full controll of the home directory. The cacls command does not do anything. The ASP will run and report no failures, but I can not witness any change in the ACL of the home directory. I got a tip from a frieng and installed dynu.dll, so I could send any error message when executing the cacls command. And it sent back: Access is denied. I am running the same script from cmd, and there it runs without problem, so I think its the ASP which do not have enough permissions to change ACL. I do not think RunAs is an option, cause, since its the WebApp which will be making the request, interactivity is not really an option. Do anyone have some ideas? Geir Roger Moen Tag: Transfer file from VBS via HTTP Tag: 171226
  - 20
    - vbscript and qchain.exe I would like to run several MS hotfixes from a network share without rebooting. I'd like the process to be dynamic so if I add another patch into the folder it will run without modifing the script. Something like: for each file in folder \server\share run "fileanme" & "-z -n" next Am i getting close? Tag: Transfer file from VBS via HTTP Tag: 171216
  - 21
    - Getting Script to Run In Internet Explorer Here's the problem, the code below work except for the reset. When I put the <form> tag in the code to get the reset to work, I get an error generated as the subroutine is processing, "object required computername.value". -----------8<----------------------------------- <html> <head> <title></title> </head> <script language="VBSCRIPT">  </script> <body> <p><font>Please specify computer name:</font> <input type="text" name="computername"><p> <input type="button" name="validatename" value="Submit"> <input type="reset" name="reset"> </body> </html> -----------8<----------------------------------- What am I missing? Thanks in advance. Randy Tag: Transfer file from VBS via HTTP Tag: 171209
  - 22
    - Stop Execution of a script Hello, I'm using vbscript to make a windows script. It should take 4 arguments, so I have a method that checks to see if there is 4 arguments. If not, it shows a usage message box, but now, it keeps going trying to execute until it crashes. How can I tell it to stop executing the script after the usage box is displayed? If there isn't enough args, then it really shouldn't keep trying to finish. I rather have it stop completely and then let the user enter a new command. Thanks, Brett Tag: Transfer file from VBS via HTTP Tag: 171207
  - 23
    - Sendkeys Question I have been trying to use the sendkeys method to send the decimal point on the numberpad. I have not been able to find out the coding to do that. I can use the period but the program that I need to do this on does diguise between those 2 key strokes. Any help would be appreicated. Tag: Transfer file from VBS via HTTP Tag: 171205
  - 24
    - Script to set IE 'Trusted Sites' zone Is it possible to detect with a script the zone IE is browsing to. We want to simplify IE setup for our remote users that access our internal data bases. If they do not have a trusted site entry for our web server, we would like to detect that and automatically (or with a mouse click) run a script to add the trusted sites entry. Tag: Transfer file from VBS via HTTP Tag: 171203
  - 25
    - Microsoft VBScript rutnime error '800a000d' Hello, I keep getting this error when trying to access an asp file. Microsoft VBScript runtime error '800a000d' Type mismatch: 'dtDateTime' /PRG/ppc/include/general/Commonfiles/common.asp line 63 I have been looking up this error everywhere and can't seem to find anything that will actually fix it. It's happening on a Spanish version of Windows 2003 server. It seems to work fine with other ASP stuff. Can anyone provide ANY details or pointers that I could look for? Thanks, Rick Please feel free to email me as well. Tag: Transfer file from VBS via HTTP Tag: 171200

Hi!

You know how VBS can transfer file via HTTP?

Re: Transfer file from VBS via HTTP by Don

Don
Thu Mar 10 04:54:37 CST 2005

"Tarllem" <no@no.no> wrote in message
news:%23wIvz5VJFHA.2928@TK2MSFTNGP10.phx.gbl...
> Hi!
>
> You know how VBS can transfer file via HTTP?
>

Like this !

'************************************
sSource = "http://www.assoft.com.au/images/headpic.gif"
sDest = "test.gif"

set oHTTP = WScript.CreateObject("Microsoft.XMLHTTP")

oHTTP.open "GET", sSource, False
oHTTP.send

tStart = timer()
set oStream = createobject("adodb.stream")
Const adTypeBinary = 1
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2
oStream.type = adTypeBinary
oStream.open
oStream.write oHTTP.responseBody
oStream.savetofile sDest, adSaveCreateOverWrite
set oStream = nothing
tElapsed = timer() - tStart

set oHTTP = nothing

WScript.Echo "Done! " & tElapsed & " seconds..."

'************************************

Top