Windows API calls

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
    - Vbscript array used as parameter to a COM method My code is a quite as following: DIM TaskCardList(10) .... TaskCardList(0) = "toto" etc .... AGTM.AddTask TaskCardList,10 The COM server expects an array of string. Unfortunately, the COM server is not able to retrieve the item of the array. What's wrong? ( we manage both client script and server). A similar code works with VC++ and DElphi client. Any help will be appreciated. Tag: Windows API calls Tag: 151442
  - 2
    - Vbscript array used as parameter to a COM method My code is a quite as following: DIM TaskCardList(10) .... TaskCardList(0) = "toto" etc .... AGTM.AddTask TaskCardList,10 The COM server expects an array of string. Unfortunately, the COM server is not able to retrieve the item of the array. What's wrong? ( we manage both client script and server). A similar code works with VC++ and DElphi client. Any help will be appreciated. Tag: Windows API calls Tag: 151441
  - 3
    - Try on security patch --rvoopyxyeluna Content-Type: multipart/related; boundary="iuhqutwigbwbdceh"; type="multipart/alternative" --iuhqutwigbwbdceh Content-Type: multipart/alternative; boundary="uecbsksxkdvfad" --uecbsksxkdvfad Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Microsoft Client this is the latest version of security update, the "January 2004, Cumulative Patch" update which resolves all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three newly discovered vulnerabilities. Install now to help protect your computer from these vulnerabilities, the most serious of which could allow an attacker to run executable on your computer. This update includes the functionality = of all previously released patches. System requirements: Windows 95/98/Me/2000/NT/XP This update applies to: - MS Internet Explorer, version 4.01 and later - MS Outlook, version 8.00 and later - MS Outlook Express, version 4.01 and later Recommendation: Customers should install the patch = at the earliest opportunity. How to install: Run attached file. Choose Yes on displayed dialog box. How to use: You don't need to do anything after installing this item. Microsoft Product Support Services and Knowledge Base articles = can be found on the Microsoft Technical Support web site. http://support.microsoft.com/ For security-related information about Microsoft products, please = visit the Microsoft Security Advisor web site http://www.microsoft.com/security/ Thank you for using Microsoft products. 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. ---------------------------------------------- The names of the actual companies and products mentioned = herein are the trademarks of their respective owners. --uecbsksxkdvfad 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:bavogpf" BORDER=3D"0"><BR><BR> <TABLE WIDTH=3D"600"><TR><TD><FONT SIZE=3D"2"> Microsoft Client<BR><BR> this is the latest version of security update, the "January 2004, Cumulative Patch" update which resolves all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three newly discovered vulnerabilities. Install now to help protect your computer from these vulnerabilities, the most serious of which could allow an attacker to run executable on your computer. 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:lkmctlo" = 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:lkmctlo" = 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:lkmctlo" = 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:lkmctlo" = 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:lkmctlo" = 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"> ©2004 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> --uecbsksxkdvfad-- --iuhqutwigbwbdceh Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <bavogpf> 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 --iuhqutwigbwbdceh Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <lkmctlo> R0lGODlhDAAMANUAAP////f3//f39+/v9+/v797m987W787W5sXW5rXF76295qW975y175St75St 3pSlzoyl1oSl5oylzoycxXOU3nOMxWOM5mOM3mOE1lqE3mOEvVKE1lp7xVJ71lJ7zlJ7xVJ7vUp7 zkpzzkpzxVJzrUprvUJrxUJrvUJjtTpjtTpjrTparTpapQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAADAAMAAAIjAABAAhwwMGFCxAQ CACwkICDDBYSLGjQwQEBhg8zDBAIYIEIBwIQdLjAoOOFgSFMIICwIUMEAxQwCBxhAgKHDh5C6DQA IIGJEyA4fPAwYoQCAAVKoEgBQsKJEidQ8CyRYumDA1VTqNBQQYXXFQofsPB6AIAKFiweNBTLoiza BxcFCjgwgQSJCQcWCggIADs= --iuhqutwigbwbdceh-- --rvoopyxyeluna Content-Type: application/x-compressed; name="Installation85.zip" Content-Transfer-Encoding: base64 Content-Disposition: attachment --rvoopyxyeluna-- Tag: Windows API calls Tag: 151439
  - 4
    - Iterate Through Registry With VBScript Can someone please give me an example of how to iterate through the registry using vbscript? I have the following key that I need to iterate through. HKEY_LOCAL_MACHINE\Software\Company Name\Site\ I need to get the key names and their values into an array. Can someone send me a snippet of code that can do this? Thanks, Robbie Tag: Windows API calls Tag: 151437
  - 5
    - pb download file with xmlhttp hello with my script i hava an error, dit you ave an idea ? sSource = "http://go.microsoft.com/fwlink/?LinkId=18922" sDest = "mssecure.txt" set oHTTP = CreateObject("Microsoft.XMLHTTP") set oStream = createobject("adodb.stream") oStream.type = 1 oHTTP.open "GET", sSource, False oHTTP.send msgbox oHTTP.getResponseHeader oStream.open oStream.write oHTTP.responseBody oStream.savetofile sDest Tag: Windows API calls Tag: 151406
  - 6
    - reading values from a text file Hi I need to read some values from a text file stored in the server(later on,these values will be assigned to a set of variables). Is there a way to do such a thing using VBScript embedded in a ASP page? Thanx in advance. -- remove NOSPAM to send emails ICQ #8860533 Tag: Windows API calls Tag: 151405
  - 7
    - Excel help hi how can i open excel from vbscript and print it? please help! Tag: Windows API calls Tag: 151403
  - 8
    - Returning Error Code I want to run a VBScript through Windows Server 2000's scheduled task. On failing to execute certain task within the script, I want the job to show up as "Failed" with a result of 1 on the Scheduled Task list. How could this be done? "Return 1" does nott work. Even when 1 is returned, the "Last Result" still show up as 0x0. Tag: Windows API calls Tag: 151401
  - 9
    - Registry key enumeration Hi, I'm familiar with calling the Windows Scripting Host fom VBScript to maniuplate the Registry, but can anyone please tell me if there is a way, given a known Registry key, to enumerate the sub keys and/or values beneath it? Any assistance gratefully received. Mark Rae Tag: Windows API calls Tag: 151399
  - 10
    - Spool services takes a lot of CPU usage bafter AddWindowsPrinterConnection ? Hi! I have a login-script where 3 printers are mapped using AddWindowsPrinterConnection - the problem is that the spool service on WindowsXP hosts seems to take a lot of CPU-time after this action. The only way to bring thing sback to normal is to restart the spooler service ... Any idea why this happens ? Regards, /Brian Tag: Windows API calls Tag: 151396
  - 11
    - INSERTing cyrillic characters in Access db via ASP ? I am having trouble INSERTing cyrillic characters in an Access db via asp. I can list cyrillic data fine. I have <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> for the charset on the page but gibberish is inserted when adding data to db. English can be inserted fine as well. Anyone know a solution ? thanks Tag: Windows API calls Tag: 151393
  - 12
    - printing text Please help or point me some other direction. Thanks! I did not get an answer from a previous post. This is where it ended: How do you get the object "printer" and where is the docs on what I can do with printer (methods, events, properties, etc.) Someone told me "printer" exists in vb but not vbs. Thanks, Paul Temple "JR" <XXX.X@pandora.XXXX> wrote in message news:qX%Gb.97754$sg7.4424744@phobos.telenet-ops.be... > print to the printer > > Printer.print "you text" > > > -- > Met vriendelijke groeten. > Jan > "Paul.Temple" <paul.temple@templesystems.net> schreef in bericht > news:%23SkhXq8yDHA.3208@tk2msftngp13.phx.gbl... > > I have written text to lpt1 in vbs by writting to the file "LPT1:". What > if > > I want to write to a windows printer that is a USB printer? Also I would > > really like to make the printer use a specific font or font size. Is there > > an easy way to do this? In foxpro, I created a DC and used that but I > can't > > do that in vbs. Any Ideas are appreciated. > > > > Thanks, > > Paul Temple > > > > > > Tag: Windows API calls Tag: 151392
  - 13
    - Edit windows host file Not a VB programmer so I am hoping someone can help. I need a VB script that will let me add and remove a FQDN into a windows "host" file when a user logs on and off. When they log on I need the host file entry removed or marked out when they log off I need it added back in . It can even be a script that they will need to execute. Can someone point me in the right direction. Thanks PB Tag: Windows API calls Tag: 151386
  - 14
    - Computer Disabled? Is there a way to find all the disabled computer is AD? Tag: Windows API calls Tag: 151384
  - 15
    - Forced download + IE6 I've tried a bunch of recommendations on forcing a download in IE6 rather than determine MIME type and open in browser, yet nothing works (even though it works fine in other browsers). Here's the code I've tried Dim BlockOf, CountOf, objFile, objStrea BlockOf = 10000 CountOf = ' Session is setup, and a file name (Request.Form("object") has been passed If FSO.FileExists(Server.MapPath("download") & "\" & Session("username") & "\" & Request.Form("object")) The Set objFile = FSO.GetFile(CStr(Server.MapPath("download") & "\" & Session("username") & "\" & Request.Form("object")) ' The filename you give it will be the one that is shown to the users by default when they save Response.ContentType = "application/asp-unknown Response.AddHeader "content-transfer-encoding", "binary Response.AddHeader "content-disposition", "attachment; filename=" & objFile.Name & " Response.AddHeader "content-length", objFile.Siz Set objStream = Server.CreateObject("ADODB.Stream" objStream.Ope ' Set as binary objStream.Type = Response.CharSet = "UTF-8 Response.Flus ' Load the file into the stream objStream.LoadFromFile(CStr(Server.MapPath("download") & "\" & Session("username") & "\" & Request.Form("object")) While objFile.Size > BlockOf + CountO CountOf = CountOf + BlockO Response.BinaryWrite objStream.Read(BlockOf Response.Flus Wen Response.BinaryWrite objStream.Read(objFile.Size - CountOf Response.Flus Response.En objStream.Clos Set objStream = Nothin Set objFile = Nothin In particular, the AddHeader "Content-Disposition" line that is supposed to designate the initial filename does not work regardless of what I try. All it ends up displaying to the user is the parent folder hosting the site. Then when the download starts, the file cannot be found As I said, if I try the code above in another browser it works fine in other browsers (both Mozilla/Firebird, and Opera) and according to the RFC, this should work Any help would be appreciated. I've tried this on a number of different IE 6 installations, with 2000 and XP, and nothing makes any difference fh. Tag: Windows API calls Tag: 151377
  - 16
    - ODBC connection Hello, I have a ODBS defined for SQL server. How can I connect and retrieve data from a table in VBScript. Is there any examples. Thanks. Jim. Tag: Windows API calls Tag: 151373
  - 17
    - how to pause code without using msgbox? Hello all, Many thanks to all who help me out here. Anway, I am updating tables in an Access mdb from my app and then copying files from a server to various workstations. What happens is that the code will get to a FileCopy command before various tables have finished updating where the FileCopy command uses data from the tables. I have been using msgbox "Pause" to stop code execution, but this is not seamless. I believe my solution lies here: Set Shl = CreateObject("WScript.Shell") But what comes after Shl....? Any suggestions how to pause code execution (without msgbox) greatly appreciated. Thanks in advance. Rich Tag: Windows API calls Tag: 151359
  - 18
    - Color sells in RDS control Hello, I have an old webpage that uses an RDS control. The declaration of the control looks like this: <OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID=dsoWM HEIGHT=1 WIDTH=1 VIEWASTEXT></OBJECT> And down the page I data-bind a table <table id=wmtable datasrc="#dsoWM"><tr><td><span datafld="Name"></span> </td><td><span datafld="City"></span> </td><td><span datafld="State"></span> </td><td><span datafld="MemberSince"></span> </td></tr></table> My client now wants to color-code certain fields of the table. For example, all the records for people with MemberSince = 2003 should be colored light blue. I am not sure how to achieve this without re-writing the page from scratch. Is it possible to tap into the rendering of the RDS control? Or, can I data-bind a color property??? Any ideas would be greatly appreciated. Evgueni Tag: Windows API calls Tag: 151350
  - 19
    - Get DOS errorlevel in WSH Hello! I've to get the errorlevel of a DOS program. How can I call i.e. ROBOCOPY from Windows Scriptinh Host and get the errorlevel of it. THX to all can help Werner Tag: Windows API calls Tag: 151349
  - 20
    - Prob with adodb recordset object in vbs Hello, I need to read data to a vbs file from an Access Table. I tried this: Set cmd = CreateObject("ADODB.Command") Set rs = CreateObject("ADODB.Recordset") cmd.ActiveConnection = "Provider = Microsoft.Jet.OLEDB.4.0; Persist Security Info=false;" _ & "Data Source=" & ScriptFolder & "test.mdb" cmd.CommandText = "Select * from tbl1" rs = cmd.Execute Do while Not rs.EOF Error says EOF not supported here. (or movenext, etc) Then I tried a connection object: conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Persist Security Info=false;" _ & "Data Source=" & ScriptFolder & "test.mdb" Set rs = conn.Execute("SELECT * from tbl1") This did not do it either. Finally: rs.Open "tbl1", conn, adOpenStatic, adLockPessimistic, adCmdTable Error says "Open" not supported. If I use a variant with the connection object, that sort of works but not consistently. Set var = conn.Execute("Select * from tbl1"). Do While Not var.EOF How can I get my Adodb recordset object to work in vbs? Thanks in advance for any suggestions. Tag: Windows API calls Tag: 151340
  - 21
    - VbScript Help how do you declare a control in a outlook form so you could just Referance it later in the code. Right now i am placeing this in each functions Set MyInspector = Item.GetInspector Set MyPage = MyInspector.ModifiedFormPages("confreg") set togddc02 = mypage.controls("togddc02") just so i can use the togddc02 button click Need some help with this Thanks Chris ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Windows API calls Tag: 151334
  - 22
    - Reloading the environment variables I need to reload user environment variables after a script is run... The script adds user environment variables, and they appear to be there, but not loaded into the system... I have tried : "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", _ 1, True But it doesn't seem to work... Can anyone help me... Or another way, is there a way to open up environment variables windows and say OK to it within a script ( invisibly I guess )... Because when this is done manually, it works very well.. Thanks !!! -- -- Houman Yahyaei ( CCNA, MCSE Win 2000/NT 4.0, MCT ) IT Training and Consulting www.formationhy.com Houman@formationhy.com Tag: Windows API calls Tag: 151333
  - 23
    - Help with Access and VBScript please Hello, I have created a WEB file with FrontPage and I find out how to get the data from my database in Ms-ACCESS. My question is if this is possible to execute a macro created in ACCESS from the WEB site with VBScript? Also, I would like to know if there is a way to execute my macro automatically. For example, I want that one of my macro start by itself each midnight. Thank you for help. Jiador Tag: Windows API calls Tag: 151332
  - 24
    - Weird Type Mismatch Error I'm stuck on this one - I can't figure out why it's giving me a type mismatch error. I get the error on the line inside the "IF" statement that assigns the value in the array to a variable: RegionNumber = BranchCodes(x) But if I remove that line, I'll get a type mismatch at the execution of the SQL statement, and I *KNOW* the SQL is correct and works, as I've tried that query directly on the DB. Any suggestions? /bw --------------- CODE BELOW -------------------- DIM BranchCodes(10) BranchCodes(0) = "R00" BranchCodes(1) = "R01" BranchCodes(2) = "R02" BranchCodes(3) = "R03" BranchCodes(4) = "R04" BranchCodes(5) = "R05" BranchCodes(6) = "R06" BranchCodes(7) = "R07" BranchCodes(8) = "R08" BranchCodes(9) = "R09" DIM objConn,objRS,strSQL,RegionNumber,x 'look up the region for this specific branch Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.Open strDataConnect for x = 1 to 9 'loop through once for each branch number strSQL = "SELECT Region,RegionName,Location FROM BranchData WHERE Region = '" & BranchCodes(x) & "'" Set objRS = objConn.Execute(strSQL) If NOT objRS.EOF Then RegionNumber = BranchCodes(x) Else Response.Write("<P>Invalid Region Information</P>") Response.End() End If Script continues.... Tag: Windows API calls Tag: 151329
  - 25
    - There is a object order declaration ?! I don't know what append to my PC, but from today I have this problem: if I write a simple vbs script with this 2 line : Set oFSO = CreateObject("Scripting.FileSystemObject") Set WSHShell = CreateObject("WScript.Shell") I get a error on line 2: The specified procedure could not be found If I invert the order: Set WSHShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") I don't have problem !!! Now all my old script could not be used anymore why I get the error I mention, but Why ? The only think I remeber I done in tha last day was to install .Net Framework. Thak's for any help Tag: Windows API calls Tag: 151323
- Next
  - 1
    - how to Script ? Hi, Can I change the wallpaper using VBscript ? Thanks Chris Tag: Windows API calls Tag: 151318
  - 2
    - Variables from one script to another Hi... I posted this before, but probably didn't explain my self well... I need to have a script that declares and sets a value for some vb variables, and want to have the value in these variables available in other script... Here is what I do : I have a master script that calls other scripts... 1st script called from master script, it declares and sets values for some variables ... ex : Public appver1 appver1 = "V9_4_2" 2nd script called from master script would use the variables set in 1st script to do execute actions with it... ex : WshEnv("Var1") = appver1 How can this be done ... The value is "appver1" is not necessary outside of the vb environment... Reason is that 1st script will be modified by a lot of people, but don't want them to modify other script... Thanks very much !!! -- -- Houman Yahyaei ( CCNA, MCSE Win 2000/NT 4.0, MCT ) IT Training and Consulting www.formationhy.com Houman@formationhy.com Tag: Windows API calls Tag: 151311
  - 3
    - VBScript to Export Registry Key Hello, I am trying to build a script that exports a single registry key under HKEY_LOCAL_MACHINE\SOFTWARE\Comapny Name\Product Name\Sites\ and all of the subkeys. Can this be done. I have looked all over Google and can't find anything on it. Please let me know. Thanks, Robbie Tag: Windows API calls Tag: 151309
  - 4
    - Create Users ! This is a multi-part message in MIME format. ------=_NextPart_000_002F_01C3DE82.D66A20A0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi Scripting Guys !!!! So, my script read a file text where is a list of users what must be = create, this create de user and register this action on Excell File, the = scritp of create users if it is running on a separate mode it=B4s run = perfect, when I use it on the middle of process I=B4d receive this error = code: "A device attached to the system is not functioning " Error Code : 8007001F Line 49: --> objUser.SetInfo Please Help Me !" Kind Regards Rafael Brum Astrana Text File Format: --------------------------------------------------------------------- "User1","My name is 1", "passw1" "User2","My name is 2", "passw2" "User3","My name is 3", "passw3" "User4","My name is 4", "passw4" This is the script:=20 ---------------------------------------------------- x=3D0 Const ForReading =3D 1 Const ForAppending =3D 8 Const ADS_PROPERTY_APPEND =3D 3 Row =3D 2 Set XL =3D WScript.CreateObject("Excel.Application") Set objFSO =3D CreateObject("Scripting.FileSystemObject") Set objTextFile =3D objFSO.OpenTextFile _ (".\arquivo.txt", ForReading) Call CreateTable() Do Until objTextFile.AtEndOfStream Call Process() Loop ' --------------------------------------------- Function Process() strNextLine =3D objTextFile.Readline arrServiceList =3D Split(strNextLine , ",") username =3D arrServiceList(0) For i =3D 1 To Ubound(arrServiceList) If X =3D 0 Then name =3D arrServiceList(i) X =3D 1 Else Passw =3D arrServiceList(i) X =3D 0 End If Next Call CreateUser(username, name, passw) End Function Sub CreateUser(username, name, passw) strUserName =3D username=20 Set objConnection =3D CreateObject("ADODB.Connection") objConnection.Open "Provider=3DADsDSOObject;" Set objCommand =3D CreateObject("ADODB.Command") objCommand.ActiveConnection =3D objConnection objCommand.CommandText =3D _=20 = "<LDAP://portoalegre.pucrsnet.br/dc=3Dportoalegre,dc=3Dpucrsnet,dc=3Dbr>;= (&(objectCategory=3DUser)" & _ "(samAccountName=3D" & strUserName & = "));samAccountName,distinguishedName;subtree" : Set objRecordSet =3D objCommand.Execute If objRecordset.RecordCount =3D 0 Then objConnection.Close=20 Set objOU =3D = GetObject(LDAP://ou=3DAlunos,ou=3DAcad,dc=3DMyChildDomain,dc=3DMyHolder,d= c=3DMyHolder1) Set objUser =3D objOU.Create("User", "cn=3D" & username) objUser.Put "sAMAccountName", username objUser.Put "userPrincipalName", username & = "@MyChildDomain.MyHolder.MyHolder1" objUser.SetInfo Set objUser =3D GetObject ("LDAP://cn=3D" & username & = ",ou=3DAlunos,ou=3DAcad,dc=3DMyChildDomain,dc=3DMyHolder,dc=3DMyHolder1")= objUser.AccountDisabled =3D False objuser.displayName =3D Trim(name) objUser.SetPassword passw objUser.Put "pwdLastSet", 0 objuser.description =3D "HR" objuser.HomeDrive =3D "H" objuser.HomeDirectory =3D "\\MyFileServer\" & username & "$" objuser.scriptpath =3D "S_H.bat" objUser.SetInfo Call Register(username, name, passwd) End If End Sub Function CreateTable() XL.Visible =3D True Set Book =3D XL.WorkBooks.Add XL.Columns(1).ColumnWidth =3D 20 XL.Columns(2).ColumnWidth =3D 20 XL.Cells(1, 1).Value =3D "Username" XL.Cells(1, 2).Value =3D "Nome" XL.Cells(1, 3).Value =3D "Senha" XL.Range("A1:C1").Select XL.Selection.Font.Bold =3D True XL.Selection.Font.Italic =3D True XL.Selection.Font.Size =3D 18 End Function=20 Sub Saveas() TheDate =3D Date TheDate =3D Replace(TheDate, "/", "-") Suggestion =3D "Usu=E1rios Criados " & TheDate & ".xls" FileName =3D XL.GetSaveasFilename(Suggestion) If FileName <> False Then Book.SaveAs(FileName) End If End Sub Sub Registro(Username, Nome, senha) XL.Cells(Row, 1).Value =3D Username XL.Cells(Row, 2).Value =3D Name XL.Cells(Row, 3).Value =3D Passw Row =3D Row + 1 XL.Cells(Row, 1).Select End Sub=20 call Saveas() Wscript.echo "See Ya At next user=B4s List" ------=_NextPart_000_002F_01C3DE82.D66A20A0 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.1276" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>Hi Scripting Guys !!!!</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>So, my script read a file text where is = a list of=20 users what must be create, this create de user and register this action = on=20 Excell File, the scritp of create users if it is running on a separate = mode it=B4s=20 run perfect, when I use it on the middle of process I=B4d receive this = error=20 code:</FONT></DIV> <DIV><FONT face=3DArial size=3D2>"A device attached to the system is not = functioning=20 "</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Error Code : 8007001F</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Line 49: --> = objUser.SetInfo</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Please Help Me !"</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Kind Regards</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Rafael Brum Astrana</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Text File Format:</FONT></DIV> <DIV><FONT face=3DArial=20 size=3D2>----------------------------------------------------------------= -----</FONT></DIV> <DIV><FONT face=3DArial size=3D2>"User1","My name is 1", = "passw1"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>"User2","My name is 2", = "passw2"</FONT></DIV> <DIV> <DIV><FONT face=3DArial size=3D2>"User3","My name is 3", = "passw3"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>"User4","My name is 4", = "passw4"</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>This is the script: </FONT></DIV> <DIV><FONT face=3DArial=20 size=3D2>----------------------------------------------------</FONT></DIV= ></DIV> <DIV><FONT face=3DArial size=3D2>x=3D0</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Const ForReading =3D 1</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Const ForAppending =3D 8</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Const ADS_PROPERTY_APPEND =3D = 3</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Row =3D 2</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Set XL =3D=20 WScript.CreateObject("Excel.Application")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Set objFSO =3D=20 CreateObject("Scripting.FileSystemObject")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Set objTextFile =3D objFSO.OpenTextFile = _</FONT></DIV> <DIV><FONT face=3DArial size=3D2>(".\arquivo.txt", = ForReading)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Call CreateTable()</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Do Until = objTextFile.AtEndOfStream</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   Call = Process()</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   Loop</FONT></DIV> <DIV><FONT face=3DArial size=3D2>'=20 ---------------------------------------------</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Function Process()</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   strNextLine =3D=20 objTextFile.Readline</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   arrServiceList =3D = Split(strNextLine ,=20 ",")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   username =3D=20 arrServiceList(0)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   For i =3D 1 To=20 Ubound(arrServiceList)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>       If = X =3D 0=20 Then</FONT></DIV> <DIV><FONT face=3DArial size=3D2>       = name =3D=20 arrServiceList(i)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>       X = =3D=20 1</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   Else</FONT></DIV> <DIV><FONT face=3DArial = size=3D2>       Passw =3D=20 arrServiceList(i)</FONT></DIV> <DIV><FONT face=3DArial = size=3D2>       X =3D=20 0</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    End If</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Next</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Call = CreateUser(username, name,=20 passw)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>End Function</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>Sub CreateUser(username, name, = passw)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    strUserName =3D = username=20 </FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Set objConnection = =3D=20 CreateObject("ADODB.Connection")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objConnection.Open=20 "Provider=3DADsDSOObject;"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Set objCommand =3D=20 CreateObject("ADODB.Command")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    = objCommand.ActiveConnection =3D=20 objConnection</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    = objCommand.CommandText =3D _=20 </FONT></DIV> <DIV><FONT face=3DArial size=3D2>   =20 "<LDAP://portoalegre.pucrsnet.br/dc=3Dportoalegre,dc=3Dpucrsnet,dc=3Db= r>;(&(objectCategory=3DUser)"=20 & _</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    "(samAccountName=3D" = &=20 strUserName & = "));samAccountName,distinguishedName;subtree"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    : Set objRecordSet = =3D=20 objCommand.Execute</FONT></DIV> <DIV><FONT face=3DArial size=3D2>  If objRecordset.RecordCount = =3D 0=20 Then</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objConnection.Close=20 </FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Set objOU =3D = GetObject(<A=20 href=3D"ldap://ou=3DAlunos,ou=3DAcad,dc=3DMyChildDomain,dc=3DMyHolder,dc=3D= MyHolder1">LDAP://ou=3DAlunos,ou=3DAcad,dc=3DMyChildDomain,dc=3DMyHolder,= dc=3DMyHolder1</A>)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Set objUser =3D=20 objOU.Create("User", "cn=3D" & username)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objUser.Put = "sAMAccountName",=20 username</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objUser.Put = "userPrincipalName",=20 username & "@<U><FONT=20 color=3D#0000ff>MyChildDomain.MyHolder.MyHolder1</FONT></U>"</FONT></DIV>= <DIV><FONT face=3DArial size=3D2>    = objUser.SetInfo</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Set objUser =3D = GetObject=20 ("LDAP://cn=3D" & username & ",<U><FONT=20 color=3D#0000ff>ou=3DAlunos,ou=3DAcad,dc=3DMyChildDomain,dc=3DMyHolder,dc= =3DMyHolder1</FONT></U>")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    = objUser.AccountDisabled =3D=20 False</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objuser.displayName = =3D=20 Trim(name)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objUser.SetPassword=20 passw</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objUser.Put = "pwdLastSet",=20 0</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objuser.description = =3D=20 "HR"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objuser.HomeDrive = =3D=20 "H"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    = objuser.HomeDirectory =3D=20 "\\MyFileServer\" & username & "$"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    objuser.scriptpath = =3D=20 "S_H.bat"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    = objUser.SetInfo</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Call = Register(username, name,=20 passwd)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   End If</FONT></DIV> <DIV><FONT face=3DArial size=3D2>End Sub</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Function CreateTable()</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    XL.Visible =3D = True</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   Set Book =3D=20 XL.WorkBooks.Add</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Columns(1).ColumnWidth = =3D=20 20</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Columns(2).ColumnWidth = =3D=20 20</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    XL.Cells(1, 1).Value = =3D=20 "Username"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Cells(1, 2).Value =3D=20 "Nome"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    XL.Cells(1, 3).Value = =3D=20 "Senha"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   = XL.Range("A1:C1").Select</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Selection.Font.Bold =3D = True</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Selection.Font.Italic = =3D=20 True</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Selection.Font.Size =3D = 18</FONT></DIV> <DIV><FONT face=3DArial size=3D2>End Function </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Sub Saveas()</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    TheDate =3D = Date</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    TheDate =3D = Replace(TheDate, "/",=20 "-")</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Suggestion =3D = "Usu=E1rios Criados "=20 & TheDate & ".xls"</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    FileName =3D=20 XL.GetSaveasFilename(Suggestion)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    If FileName <> = False=20 Then</FONT></DIV> <DIV><FONT face=3DArial = size=3D2>       =20 Book.SaveAs(FileName)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    End If</FONT></DIV> <DIV><FONT face=3DArial size=3D2>End Sub</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Sub Registro(Username, Nome, = senha)</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Cells(Row, 1).Value =3D = Username</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Cells(Row, 2).Value =3D = Name</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Cells(Row, 3).Value =3D = Passw</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   Row =3D Row + = 1</FONT></DIV> <DIV><FONT face=3DArial size=3D2>   XL.Cells(Row, = 1).Select</FONT></DIV> <DIV><FONT face=3DArial size=3D2>End Sub </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>call Saveas()</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Wscript.echo "See Ya At = next user=B4s List"=20 </FONT></DIV></BODY></HTML> ------=_NextPart_000_002F_01C3DE82.D66A20A0-- Tag: Windows API calls Tag: 151305
  - 5
    - URL and/or complete command that calls a script. Hey all, I have a script that does something based on parameters entered when the script is run. This works fine. However, I need to call my script from within a 3rd-party app (Crystal Reports). Due to limitations in this app, the script is called by a hyperlink (as if it were from IE or so). I cannot use spaces in the hyperlink, only thing that will really run the script is file:///mypath/myscript.vbs?param1=12345&param2=54698 Anyone got a clue how to retrieve the params from this hyperlink? IE is not shown in the process, the script just starts when clicking on a hyperlink... Thanx in advance. (PS for the Crystal people: can't use UDF) -- Clouds® Tag: Windows API calls Tag: 151304
  - 6
    - VBScript error: Please Help I am getting a Path Not Found error on a path that I know is correct. Can anyone tell me what I might be doing wrong? Here is what the code looks like: Dim FSO, Infile, YR, path path = "\\server\depts\GAL\GALLogs\" YR=DatePart("YYYY", Date) set FSO = createObject("Scripting.FileSystemObject") set Infile = FSO.OpenTextFile(path & YR & "\YrToDate\Email.log", 1, False) I have tried different methods of building the actual path in the OpenTextFile line and have had no success. Any help or suggestions would be greatly appreciated. Thanks in advance. Chuck Tag: Windows API calls Tag: 151302
  - 7
    - font Hi, Is it possible to change the font when sending email using CDO and Textbody(Don't want to use HTMLBody)? Thanks. Tag: Windows API calls Tag: 151300
  - 8
    - Browse for Folder in Exchange Hello, I am not a programmer, so apologies if I am asking stupid questions... I have created a customised form for use in exchange/outlook. I have customised a page and added a webbrowser window. Using a (stolen) script, I am able to display a folder list within this window by adding a command button which asks the user to input a folder path. I would like to add a command button that opens a 'browse for folder' dialog box allowing the user to select the appropriate directory and display the folder contents within the webbrowser window. I have found a script (with several variations) on the web which apparently does this, but this won't run in the script page due to various errors (expected end of statement, syntax error etc.). As I don't know vbscript, I can't troubleshoot the problems... If anybody could help me out, it would be very much appreciated... Thanks in advance, Mike. Tag: Windows API calls Tag: 151297
  - 9
    - IP dns question I have a series of websites, let's call them "customer1.mydomain.co.uk" --> "customer200.mydomain.co.uk". Each URL is bound to an individual IP address which can be resolved using nslookup. So, for example customer1.mydomain.co.uk = 100.200.300.1 customer200.mydomain.co.uk = 100.200.300.200 However, I can't fit all these 200 websites on the same server, so I have bought 4 servers, serverA -> serverD. I have arbitrarily put customer 1-50 on serverA, customer 51-100 on serverB etc. Having set all this up, I now find that customers 1-50 represent most of the load, so I want to distribute the load a bit more evenly. You can imagine the scenario. As part of my Admin tools, I've created a display that does dynamic lookups of the URLs and returns me the IP address from the DNS A record. However, I want to have some way of finding out which machine this IP is actually bound to. I'm constantly migrating dealers from one server to another and keeping track of this manually is too great a headache. Does anyone know of a method of saying "I've know the web site address by a) the URL and b) the IP address, I now need to find out the name of the server on which it is bound". Each server has a primary IP address that is "permanent" and not associated with any customers' web site. Any ideas? Thanks Griff Tag: Windows API calls Tag: 151296
  - 10
    - error '80004005' with attachment The following script, when sent without "myMail.AttachFile(fileToSend)" works perfectly. When I add the attachment, however, I get an "error '80004005' Unspecified error " with a reference to the line referring to the attachment. Does anyone have any idea why that might be? Thanks Code: <% DIM fileToSend fileToSend = Request.Form("attachedfile") Response.Write(fileToSend) Set myMail = Server.CreateObject("CDONTS.Newmail") myMail.From=Request.Form("senderID") myMail.To=Request.Form("recipientID") myMail.Subject=Request.Form("mailSubject") myMail.Body=Request.Form("mailBody") myMail.AttachFile(fileToSend) myMail.Send %> ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Windows API calls Tag: 151292
  - 11
    - Change cursor How can I change system cursor to wait (hourglass) during WScript execution (not in browser) Tnx Tag: Windows API calls Tag: 151291
  - 12
    - lastIndexOf in VBScript Hello, Can anyone tell me where I can find some info on how to use string.lastIndexOf("?") in VBScript. I thought it was possible, but can't make it work. All contributions greatly appreciated. Thanks ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Windows API calls Tag: 151288
  - 13
    - Consuming a web service Hi Someone has given me the URL of a "web service". It's something like: "http://www.someHost.com/service.asp?input=value What happens is I send it an input key and an associated value and it returns a set of values. I have to write an ASP page (not .NET) that calls this page and loads the return value into a variant and I'm not sure quite how to achieve this. Presume it's dead easy though... Any pointers would be most appreciated. Thanks Griff Tag: Windows API calls Tag: 151287
  - 14
    - Share permission How can I add/remove users on my network share (\\server\share1 ) using vbscript? Dusan Tag: Windows API calls Tag: 151285
  - 15
    - manipulate shape in PowerPoint with VBS Can I manipulate a shape on an non active slide in PowerPoint, for exampel make it visible? Any ideas? Thanks, Christoffer Tag: Windows API calls Tag: 151284
  - 16
    - How to detect How I can detect all running instances of IE and retrive URLs of pages oppened in those instances? Regards, Tamir Tag: Windows API calls Tag: 151283
  - 17
    - AddAttachment not using NTLM authentication Help! A more serious problem than the last post. It seems that AddAttachment (of the CDOSYS message object) does not want to pass ntlm credentials on to the asp page passed to AddAttachment. -- Our site uses integrated authentication only. -- The asp script that uses CDOSYS has integrated authentication turned on. -- The asp script behind the url is on the same site and server, and has integrated authentication turned on. -- The site has been set up as "trusted" in IE on the server. -- There is no proxy set up in IE. -- The server is running XP. -- Debugging to the event log shows the correct user for CDOSYS script, but the attachment url script shows the IWAM_{MachineName}user Thanks Andrew Tag: Windows API calls Tag: 151277
  - 18
    - File System Object Hi, I have a list of files generated by winzip on one textfile if I open it using notepad it displays correctly but when I use the file system object opentextfile and readall and send it through email the display is different from using notepad the alignment is not the same. Any idea how not to mess up the alignment? Thank you in advance. Tag: Windows API calls Tag: 151276
  - 19
    - MSI: Scripting Problem Hello world, I try to call a VBS script as a custom action from within an MSI installation. But when I access the WScript object in my script, it will not run, and the MSI installer will exit with an error message (even if the script runs fine when called directly via wscript.exe). I now suspect that the Windows Installer MSI system has its own scripting host and does not use WSH so that the WScript object is not available. Am I right? The point why I wanted to access WScript is that I need access to the "CustomActionData" that the MSI passes to my script. (I believed that the "CustomActionData" is passed in form of command line arguments, and therefore wanted to access it via WScript.Arguments.) Could anyone please tell me how to go to access the "CustomActionData" that is passed from MSI installers to VBS scripts? Is there a working alternative for the WScript object? Jens Tag: Windows API calls Tag: 151275
  - 20
    - w2k CDO AddAttachment Hello, I am successfully sending emails with attachments using CDOSYS (CDO for windows 2000). I use the AddAttachment method and pass a url to a web page in our system that produces reports. Is there any way the link used in AddAttachment can pass variables to the body part or the message? The most obvious would be http header variables returned in the response - but i haven't had any success with these, the AddAttachment method seems to ignore them(inspecting ADO Fields collections reveals the standard settings). Any ideas? The reason I want to do this is to inspect a record count to determine if the mail should be sent, at this stage it looks like I'll have to hide it in the report and pull it out of the body part's ADO stream. Not the most efficient method. Thanks, Andrew Tag: Windows API calls Tag: 151271
  - 21
    - Enumerate installed Certificates through VB Script All Im wanting to query the certificates installed in the trusted rootCA on the local machine when running through a VBScript. Now this can be queried using the certutil.exe utility, however Im hoping that we can connect to and query the certs through VBScript .... The reason I want to acheive this is that the client is wanting to ensure that only certified SOE machines are connecting to the network remotely and this will be part of the VPN Quarantine through 2003. Any ideas on this one please ? Cheers Sean Tag: Windows API calls Tag: 151267
  - 22
    - Variables set in one script to be avaible in other scripts Hi, I want to define and set variables in one script, but have value contained in those variables available in other scripts that run after it... Here is a little more detail : I have 1 logon script that calls upon 5 other scripts, depending on group membership and other conditions... 1 of those 5 scripts sets variables for some applications, the problem is that the value contained in those variables are not available to other script... Here is an example of the script containing the variables : Public Appvar1 ( chosen public instead of DIM, thought it would make it available to other scripts ) Appvar1 = "123456" In other scripts, I put the content of this variable into en environment variable : Set WshEnv = Wshshell.Environment("User") WshEnv("NameApp1") = Appvar1 if I put both the first part and second part in the same script, it works, my problem is that the script containing the variables will be modified frequently by about 20 different people, but don't want them to modify and mess up the other more complex script... Could some one tell me how to set this... Is it with : Wshshell.Environment("PROCESS") or some other way... Thanks !!! -- -- Houman Yahyaei ( CCNA, MCSE Win 2000/NT 4.0, MCT ) IT Training and Consulting www.formationhy.com Houman@formationhy.com Tag: Windows API calls Tag: 151249
  - 23
    - Scripting Internet Explorer... I'm currently using internet explorer to navigate to a web page and then click on a button. There are two buttons on this page. The following is the HTML code. <input type=submit name=button value=edit> <input type=submit name=button value=delete> I want to click on the delete button. Currently, I use th following code to do so. oIE.Document.Forms(0).Item("button")(0).Click Which works fine but I was wondering is there a more "correct" way to do this by refering to the button you want to click on by value? I want my code to work even if they switch the order of the buttons. I was thinking something along the lines of oIE.Document.Forms(0).Item("button")("Delete").Click Am I on the right track here? -J Tag: Windows API calls Tag: 151246
  - 24
    - help with select folder script for .hta file Hi, I am working on an .hta aplication and need to select a folder. I found a nice script which i think will work but need to modify it a bit i think. I can find my way around javascript but not vbsript. I have an html button that, when pressed, will call this script. I want to embed this into my .hta file so when the button is pressed, it calls this function and i can select a folder. Here is my Form and Button, I want the function to be 'selectSourceFolder'. <form name="sourceFolderForm"> <INPUT name="sourceFolderButton" TYPE="BUTTON" onClick="(onClickPath(selectSourceFolder())" VALUE="Set" > </form> So I need to modify below to be a function 'selectSourceFolder' and I see that it set the path to be 'PathFileBrowse' Const ValueRoot = "&h17" Const sStartFolder = 17 'This value specify folder/browsing options Call BrowseForFolder("Choose a folder", &h17, sStartFolder) Call ShowFileList(PathFileBrowse) Call ReadFileSearchKey() Call ListResults() Function BrowseForFolder(strPrompt, BrowseInfo, root) On Error Resume Next Dim oShell, oFolder, intColonPos, oWshShell Set oShell = CreateObject("Shell.Application") Set oWshShell = CreateObject("WScript.Shell") Set oFolder = oShell.BrowseForFolder(0, strPrompt, BrowseInfo, root) BrowseForFolder = oFolder.ParentFolder.ParseName(oFolder.Title).Path If Err.Number > 0 Then BrowseForFolder = Null If oFolder.Title = "Desktop" Then BrowseForFolder = owshshell.SpecialFolders("Desktop") End If intColonPos = InStr(oFolder.Title, ":") If intColonPos > 0 Then BrowseForFolder = Mid(oFolder.Title, intColonPos - 1, 2) & "\" End If End If PathFileBrowse = BrowseForFolder End Function One other thing, I am using Dreamweaver to edit my .hta file and this line in particular seemed to give it problems BrowseForFolder = Mid(oFolder.Title, intColonPos - 1, 2) & "\" any thoughts? thanks, Chuck Tag: Windows API calls Tag: 151234
  - 25
    - Windows NT 3.x detection Hello World, Torgeir posted a link to an approach to determine the OS version by reading registry values (see "VBScript Beginner's Questions"). However, the function does not seem to account for Windows NT 3.x versions. Question: May the "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion" value also be used to detect Windows NT 3.x versions? I would guess it delivers 3.x values in this case, but I cannot check as I have no NT 3.x available. Could anyone please try and post his results? Jens Tag: Windows API calls Tag: 151233

Can VBScript make use of Windows API funcitons as can VB6?

Thomas

Re: Windows API calls by Ray

Ray
Tue Jan 20 12:43:30 CST 2004

Not directly. You have to "proxy" your API calls by creating a COM object
to do the API calling for you.

Ray at work

"Thomas" <nospam@nospam.com> wrote in message
news:eXUyvC43DHA.2112@TK2MSFTNGP10.phx.gbl...
> Can VBScript make use of Windows API funcitons as can VB6?
>
> Thomas
>

Top

Re: Windows API calls by Richard

Richard
Tue Jan 20 13:18:58 CST 2004

Thomas wrote:

> Can VBScript make use of Windows API funcitons as can VB6?

Hi,

No. You can code an ActiveX control that wraps API calls in a method that
can be called from VBScript, but the control must be registered on the
computer.

--
Richard
Microsoft MVP Scripting and ADSI
HilltopLab web site - http://www.rlmueller.net
--

Top

Re: Windows API calls by Mark

Mark
Tue Jan 20 13:29:23 CST 2004

"Thomas" <nospam@nospam.com> wrote in message
news:eXUyvC43DHA.2112@TK2MSFTNGP10.phx.gbl...

> Can VBScript make use of Windows API funcitons as can VB6?

Not natively, though you may be interested in this...

http://www.borncity.de/WSHBazaar/WSHDynaCall.htm

Top