Hex program

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
    - Need a vb-script to read user + data (phone-number etc.) from active We need a dynamic phone list for an internal website with user-names and corresponding phone number. to keep administrative effort low it would be best to generate it automatically from active directory entries. has anyone a script that can do that? eventually another one to search data for a given name? thx, mk (ts) Tag: Hex program Tag: 206941
  - 2
    - Parse text find match extract line I am looking for a way to loop through a file and do the following (vbs script?) 1) Find string match A, then move down 4 lines and save the contents of that new line (Line 5) 2) Find string match B then save that same line Save 1 and 2 above to a new file, separated by a comma. For example if a file looks like this: ********************* HEADER_BEGIN header1line1 header1line2 header1line3 header1line4 HEADER_END DATA_BEGIN data line1 data line2 data line3 DATA_END HEADER_BEGIN header2line1 header2line2 header2line3 header2line4 header2line5 header2line6 HEADER_END DATA_BEGIN data line1 data line2 data line3 DATA_END **************** Tricky because the headers may be different lengths (some 3 lines, some 10 lines) "HEADER_BEGIN" is always the same. (I want the 4th line underneath) "data line3" is always the same (I want this whole line) My output file would read like this: ******** header1line4, data line3 header2line4, data line3 ********** I've spent hours searching for answers and have been unsuccessful. File is thousands of lines long. I have hundreds of files in one folder. (Ideally I could loop through all the files) Tag: Hex program Tag: 206939
  - 3
    - Register event sink in Exchange Hello! I'm working on my first event sink, written in VBScript. Following some examples found in the Web I was able to write a simple script, which should check every new message and if it finds a known value in TO: field, write a mail to the sender (something like an out-of-office but selective). Now I'm trying to register my script in Exchange, I followed the steps in this KB article: http://support.microsoft.com/kb/895239 but when I try to send this command: C:\Scripts>cscript regevent.vbs add OnSave ExOleDB.ScriptEventSink.1 "file://./BackOfficeStorage/mycompany.local/MBX/kurtz" -m deep -file "c:\scripts\autoreply.vbs" I always get this error: Error Opening Connection : -2147217895 Unable to find an object or data correspondly to name, interval or selection criteria specified (I'm translating from my language...) I'd like to connect my script only to my mail folder (named kurtz). Where Am I wrong? Thanks! PS: Maybe this isn't the correct NG? Better in exchange ng? Tag: Hex program Tag: 206938
  - 4
    - Copying a Link's Target File I want to: 1. iterate through a folder of shortcuts 2. Get the target path 3. Copy the target file back to the folder of links. Here is my attempt. Any suggestions? Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolderOfLinks = oFSO.GetFolder("C:\Documents and Settings\Dan \Desktop\Links") Set colFiles = oFolderOfLinks.Files For Each oFile in colFiles If strcomp(right(oFile.name,4),".lnk", vbTextCompare) = 0 Then Set oLink = oFile.TargetPath Set oLinkedFile = oFSO.GetFile(oLink) oLink.Copy oFolderOfLinks End If Next Tag: Hex program Tag: 206937
  - 5
    - get event log NAMES Hello, I have a script for backing up and clearing log files. I was wondering... is there any way (WQL perhaps) to get the names of the event logs. In the domain, there are domain controllers and member servers. The domain controllers have 6 physical logs and the member servers have 3 physical logs. It would be cool to create a collection which holds all the event view logs on the host automatically -- instead of hardcoding event log names or maintaining two different scripts where the only difference is the number of *.evt files. I tried looking at some of the very verbose scriptomatic stuff but didn't see a method to get all the event log names off of a host. Suggestions are greatly appreciated! Tag: Hex program Tag: 206932
  - 6
    - octet string - Echo or Dump Contents How Echo the value of the Attrib. I do not need to convert to a string. I just need the HEX raw data. FYI the attrib is extensionData(SmartDL Filter) Thanks in Advance... RT Tag: Hex program Tag: 206928
  - 7
    - VBScript Working Progress Hi Does anyone know how to make to IE progress bar to display the VBScript running progress? Kururu Tag: Hex program Tag: 206925
  - 8
    - Including STYLE tag in script I am creating an InternetExplorer object to show progress. I am trying to hide the scrollbars and can do this via CSS but do not know how to include this in the script. How can I include this: <STYLE TYPE='text/ css'> to get rid of the scrollbars? objExplorer.Document.style.innerhtml? Tag: Hex program Tag: 206909
  - 9
    - Retrieving two (or more) Arguments from a Text File hello, i've a script that read line and return line as argument _______________________________________________ Const ForReading = 1 Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("list.txt", ForReading) i = 0 Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline objDictionary.Add i, strNextLine i = i + 1 Loop For Each objItem in objDictionary StrComputer = objDictionary.Item(objItem) msgbox strComputer Next ________________________________________________________ return line by line the content of list.txt file. 10.119.1.1;i'mfirstcomouter 10.119.1.2;i'mSecondcomputer 10.119.1.3;i'm........... Is possible to have 2 (or more) arguments with input file separated by ; or other symbol ? Thank you for any suggestions, A. Tag: Hex program Tag: 206906
  - 10
    - Learn scripting from scratch (VB) wich study book ? Trying to find out what the best study book is to learn scripting (VB) from scratch, Need a good study book. Which one ?? Rik Tag: Hex program Tag: 206904
  - 11
    - Serious HTA/CSS Help... I'm trying to use show/hide layers with CSS to make something like a tabbed interface for my HTA. I found and modified a nice bit of javascript and CSS that uses changes the "display" property of some div tags to either "block" or "none". I'm been using it on my website (thepip3r.com) -- you can see it working if you click projects -> HTAs -> RunAs_Admin. That tabbed interface is what I'm trying to incorporate into my HTA. The problem is that I got all of the code into my HTA and CSS files for the HTA but when I run the HTA, all of my Div tags are displayed at the start instead of not displaying like the display:none property does on my site. I'm not sure what's going on or if CSS is just qwerky with HTAs. I've verified that my div display property is initially set to "none" and that my javascript function is correctly setting only layer1's display property to "block" on the initial page load. So I'm not sure where my problem lies. If anyone can offer any insight, please do so -- i'm at a loss. Also... ironically, even though the page shows everything as "block" on the inital HTA load, once you start clicking the layer tabs, each div starts disappearing like it's supposed to be doing so I have no idea what I'm doing wrong if anything. Thanx in advance. Tag: Hex program Tag: 206895
  - 12
    - Script will not continue - Please Help!!! What I want to happen it to open the Adobe Reader, print a PDF, then continue on my merry way. What happened is that the reader would not close after the file printed. I looked on the net and found that this is a common problem with AcroRd32.exe. So, I thought I would try to kill the process after the file printed. The code to kill the process works, but I cant get that far. Once the PDF opens, the script waits and will not continue until Adobe closes. Once I manually close Adobe my "OK" message comes up and the code continues. I can't figure out how to make this work. Can someone please help. This is the code that I am using. Function printPDF ( exportName ) set wshShell = CreateObject( "WScript.Shell" ) cmdLine = """" & "AcroRd32.exe" & """" & " /t " &_ """" & exportName & """" & " " &_ """" & "Kyocera Mita KM-4035" & """" & " " &_ """" & "Kyocera Mita KM-4035" & """" & " " &_ """" & "IP_XXX.XX.X.XX" & """" 'msgbox cmdLine ok = wshShell.Run( cmdLine, 1, true ) set wshShell = Nothing msgbox "OK" 'kills the adobe process Dim objWMIService, objProcess, colProcess, strComputer, strProcessKill strComputer = "." strProcessKill = "'AcroRd32.exe'" Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = " & strProcessKill ) For Each objProcess in colProcess objProcess.Terminate() Next End Function Tag: Hex program Tag: 206890
  - 13
    - problems comparing bytes Hi, Next problem in an ongoing saga of trying to work with binary files in VBS. I've created a function in VB6 to read an original copy of a file and return it in blocks so that I can compare it to the same file in an ODBC data source. Public Function GetBytesFromFile(bytesReadTotal As Variant, _ blockSize As Variant, _ FILE As Variant) As Byte() On Error GoTo EH Dim offset, size As Long Dim fileIndex As Integer Dim arrBin() As Byte offset = CLng(bytesReadTotal) + 1 size = CLng(blockSize) FilePath = CStr(FILE) ReDim arrBin(size - 1) fileIndex = 1 Open FilePath For Binary Access Read As #fileIndex Get #fileIndex, offset, arrBin Close GetBytesFromFile = arrBin Exit Function EH: MsgBox Err.Number & ": " & Err.Description & vbNewLine & Err.Source, vbCritical Resume Next End Function I'm calling this once for every block of data read, and then comparing it to the database copy, but i can't get past the second Byte, withough it failing as so... "Invalid procedure call or argument: 'Asc'" iReturn = TestFunctions.GetBytesFromFile(bytesReadTotal, _ blockSize, FILE) msgbox "data type is: " & typeName(iReturn) ' type is "Byte()" as expected msgbox "length of iReturn: " & LenB(iReturn) ' len is 4 bytes as expected temp = Chr(Asc(MidB(iReturn, 3, 1))) ' Bytes one and two go through this fine, but bytes 3 and 4 cause the above error. The block coming from the database does the same thing at the same place. Since a byte is notihng but a number 0-255 what could cause the assignment to fail? Thank You Eric Tag: Hex program Tag: 206874
  - 14
    - Anyone here have InstallShield experience and knows WMI scripting? Hello, I've asked this question in the InstallShield forums but haven't got a reply that is the least bit cogent. I'm making a project that will be a Windows service. I also want this project to be zero configuration on the user end after install. I need to manipulate the service after install and though doing that via WMI would be a slam dunk. I'm not going to post the whole script. But my VBScript has these two lines: Dim objWMI : Set objWMI = GetObject("winmgmts:\\" & sName & "\root \CIMV2") Dim objService : Set objService = objWMI.Get("Win32_Service.Name='Message Handler Service'") In the second line, InstallShield does not like the "objWMI.Get" part. This script runs fine from the desktop but not from within my *.msi file. Does anyone know of a workaround? Suggestions are greatly appreciated! Tag: Hex program Tag: 206864
  - 15
    - Writing a script to monitor system tasks and shutdown process Hello Everyone; I would like to write a script that monitors, on my command, the system performance to track down programs that eat up too many system resources; also, another script that monitors the system shutdown process to see if something crashes or won't shutdown and let the computer power down. Now, I a little about scripting, but nothing about the classes or objects embedded within the scripts to accomplish these tasks. Does anyone know of such items that can be envoked within the script and be used to monitor these actions? Any input is highly appreciated. Thank you; Bray. Tag: Hex program Tag: 206861
  - 16
    - sharing variables between scripts with dynawrap case study #3 an old problem revisited... two scripts: server.vbs which set shared string and client.vbs which get shared string enjoy server.vbs: Option Explicit Const INVALID_HANDLE_VALUE=-1 Const PAGE_READWRITE=4 Const FILE_MAP_WRITE=2 Function GetBSTRPtr(ByRef sData) Dim pSource,pDest pSource=oApi.lstrcat(sData,"") pDest=oApi.lstrcat(GetBSTRPtr,"") GetBSTRPtr=CLng(0) oApi.RtlMoveMemory pDest+8,pSource+8,4 End Function Sub SetShared(ByRef sVar) oApi.RtlMoveMemory lMapView,GetBSTRPtr(sVar),LenB(sVar) End Sub Dim oApi,hFile,sSharedSpace,lMapView Dim sTest sSharedSpace="ACME" Set oApi=CreateObject("DynamicWrapper") oApi.Register "kernel32.dll","CreateFileMappingA","f=s","i=hlllls","r=h" oApi.Register "kernel32.dll","MapViewOfFile","f=s","i=hllll","r=l" oApi.Register "kernel32.dll","UnmapViewOfFile","f=s","i=l","r=l" oApi.Register "kernel32.dll","CloseHandle","f=s","i=h","r=l" oApi.Register "kernel32.dll","lstrcat","f=s","i=ws","r=l" oApi.Register "kernel32.dll","RtlMoveMemory","f=s","i=lll","r=l" hFile=oApi.CreateFileMappingA(INVALID_HANDLE_VALUE,Null,PAGE_READWRITE, 0,4096,sSharedSpace&"") lMapView=oApi.MapViewOfFile(hFile,FILE_MAP_WRITE,0,0,0) sTest="This is an omen999 share test" SetShared sTest Msgbox "Server waiting... " oApi.UnmapViewOfFile lMapView oApi.CloseHandle hFile client.vbs: Option Explicit Const INVALID_HANDLE_VALUE=-1 Const PAGE_READWRITE=4 Const FILE_MAP_WRITE=2 Function GetBSTRPtr(ByRef sData) Dim pSource,pDest pSource=oApi.lstrcat(sData,"") pDest=oApi.lstrcat(GetBSTRPtr,"") GetBSTRPtr=CLng(0) oApi.RtlMoveMemory pDest+8,pSource+8,4 End Function Function GetShared() GetShared=String(58,chr(0)) oApi.RtlMoveMemory GetBSTRPtr(GetShared),lMapView,58 End Function Dim oApi,hFile,sSharedSpace,lMapView Dim sTest 'shared string variable sSharedSpace="ACME" Set oApi=CreateObject("DynamicWrapper") oApi.Register "kernel32.dll","CreateFileMappingA","f=s","i=hlllls","r=h" oApi.Register "kernel32.dll","MapViewOfFile","f=s","i=hllll","r=l" oApi.Register "kernel32.dll","UnmapViewOfFile","f=s","i=l","r=l" oApi.Register "kernel32.dll","CloseHandle","f=s","i=h","r=l" oApi.Register "kernel32.dll","lstrcat","f=s","i=ws","r=l" oApi.Register "kernel32.dll","RtlMoveMemory","f=s","i=lll","r=l" hFile=oApi.CreateFileMappingA(INVALID_HANDLE_VALUE,Null,PAGE_READWRITE, 0,4096,sSharedSpace&"") lMapView=oApi.MapViewOfFile(hFile,FILE_MAP_WRITE,0,0,0) sTest=GetShared oApi.UnmapViewOfFile lMapView oApi.CloseHandle hFile Msgbox sTest Tag: Hex program Tag: 206859
  - 17
    - Copy all but one file. I am trying to copy all the files form the desktop from one computer to another. The old computer is put in by an input box then inserted into the script. Is it possible to copy all the files in the Desktop folder except for the desktop.ini? Or mayby I'll be lucky and some one will have a script that copies a user profile from one PC to another, without relying on the windows file transfer utility. My script: Set objNetwork = CreateObject("Wscript.Network") strUserName = objNetwork.UserName Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "\\" & strOldName & "\c$\Documents And Settings\"& _ strUserName & "\Desktop\*.*" , "C:\Documents And Settings\" & strUserName & "\Desktop" -------- Thanks TimM Tag: Hex program Tag: 206857
  - 18
    - Finding the lowest OU a user is in Hey I'm pretty new to VBScript. They gave me a book 1.5 weeks ago at work, and told me I had to learn it. Anyway part of the script that I'm working on right now is a login script. The part I'm having trouble with is finding the User's OU. The scripting guys have a script for doing this here. Use the first script on the page. http://www.microsoft.com/technet/scriptcenter/resources/qanda/oct04/hey1021.mspx But when I run the script instead of getting a distinguished name like: CN=kenmyer,OU=Finance,DC=fabrikam,DC=com mine looks more like: CN=RobertParker,OU=Users,OU=Location1,OU=HUB,OU=US,DC=xxxxxx,DC=xxxxx I think the OUs are set as follows: Location1 is a subgroup of HUB, which is a subgroup of US, which is a subgroup of USERS The only one I want is the one is the lowest level group: OU=Location1 I started writing some code to try and filter out the wrong OUs, but as our OU setup is very complicated it would be very sloppy to program, and likely not work on many machines. Any update to AD to could cause the code to break. I stopped doing that and now I am stuck. I'm also pretty new to AD btw. How can I find the lowest OU that a user is in? Tag: Hex program Tag: 206856
  - 19
    - send mail resolving exchange address list Hi, I'm using this vbscript code in order to send an e-mail message with Outlook 2003 It works fine sending messages to a specific recipient name.surname@company.com My problem is that I want to send a message to an EXCHANGE distribution list and the ResolveAll method doesn't seem able to do that I tried putting LIST or LIST@company.com but the message stay in my Draft folder and I get the error pop-up: "Could not resolve the message recipients" I'm able to resolve LIST from my Outlook client instead Thanks, Nicola Attico ********** Dim rMail Dim oItem Dim ns Dim Sync Set rMail =3D CreateObject("Redemption.SafeMailItem") set Application =3D CreateObject("Outlook.Application") set NS =3D Application.GetNamespace("MAPI") NS.Logon Set oItem =3D Application.CreateItem(0) rMail.Item =3D oItem rmail.recipients.Add "name.surname@company.com" rmail.recipients.ResolveAll strmessage =3D "test" strsubject =3D ("scusate, =E8 una prova di invio mail ad una lista di distribuzione Exchange per un prospect..") rmail.subject =3D strsubject rmail.body =3D strmessage rmail.Send Set Sync =3D ns.SyncObjects.Item(1) Set Utils =3D CreateObject("Redemption.MAPIUtils") Utils.DeliverNow Tag: Hex program Tag: 206852
  - 20
    - ADODB Recordset / Text field bug... This is driving me nuts!!! I have one text field and one varchar field in my SELECT statement (SELECT * FROM Table...) and only the first line is returning a value from the recordset. For the sake of this example fieldA is text and fieldB is varchar(250). I have the statements: rs("fieldA").Value - I get the value from here rs("fieldB").Value - This is blank (when I *know* there is data in it!) I try it again as: rs("fieldB").Value - This returns a value rs("fieldA").Value - This is blank If I have an Int field or anything else like, rs("IntField").Value, it returns a value like it should no matter where the line is. However, it is not true for a text field. Is this a known bug? Is there a patch / workaround for this? What the FUDGE is going on here!?! Tag: Hex program Tag: 206851
  - 21
    - ADSI EnableRemoteControl Method This is a multi-part message in MIME format. ------=_NextPart_000_0006_01C7A9A5.90A4DCD0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable So I'm thoroughly stumped here. I'm trying to set the Remote Control = properties for active directory users & everywhere I look I find the = following code: Const EnableInputNotify =3D 1 Const EnableInputNoNotify =3D 2=20 Const EnableNoInputNotify =3D 3 Const EnableNoInputNoNotify =3D 4 =20 Set objUser =3D GetObject _ = ("LDAP://CN=3Dtestuser,OU=3D2014,OU=3DSES,OU=3Dstudents,OU=3D01-users,DC=3D= nonprod,DC=3DPSD,DC=3Dlocal") objUser.EnableRemoteControl =3D EnableNoInputNoNotify =20 objUser.SetInfo But when I execute the code I get the following error: C:\Dev\Scripts\EnableRemoteControl.vbs(20, 1) Microsoft VBScript runtime = error: Object doesn't support this property or method: = 'objUser.EnableRemoteControl' I must be doing something wrong, but I can't figure out what it is. Any = ideas? Thanks! ------=_NextPart_000_0006_01C7A9A5.90A4DCD0 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.6000.16441" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>So I'm thoroughly stumped here.  = I'm trying to=20 set the Remote Control properties for active directory users & = everywhere I=20 look I find the following code:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT size=3D2><FONT face=3DTerminal>Const EnableInputNotify =3D = 1<BR>Const=20 EnableInputNoNotify =3D 2 <BR>Const EnableNoInputNotify =3D 3<BR>Const=20 EnableNoInputNoNotify =3D 4<BR> <BR>Set objUser =3D GetObject = _<BR> =20 ("</FONT><A=20 href=3D"ldap://CN=3Dtestuser,OU=3D2014,OU=3DSES,OU=3Dstudents,OU=3D01-use= rs,DC=3Dnonprod,DC=3DPSD,DC=3Dlocal"><FONT=20 face=3DTerminal>LDAP://CN=3Dtestuser,OU=3D2014,OU=3DSES,OU=3Dstudents,OU=3D= 01-users,DC=3Dnonprod,DC=3DPSD,DC=3Dlocal</FONT></A><FONT=20 face=3DTerminal>")<BR>objUser.EnableRemoteControl =3D=20 EnableNoInputNoNotify<BR> <BR>objUser.SetInfo</FONT></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>But when I execute the code I get the = following=20 error:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DTerminal = size=3D2>C:\Dev\Scripts\EnableRemoteControl.vbs(20, 1)=20 Microsoft VBScript runtime error: Object doesn't support this property = or=20 method: 'objUser.EnableRemoteControl'</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I must be doing something wrong, but I = can't figure=20 out what it is.  Any ideas?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks!</FONT></DIV></BODY></HTML> ------=_NextPart_000_0006_01C7A9A5.90A4DCD0-- Tag: Hex program Tag: 206849
  - 22
    - MI5 Persecution: Goldfish and Piranha 29/9/95 (5578) I just thought I'd let you know what I've been reading into the "Crusader" spam. I don't want to post this to usenet because somebody might try to tie that in to my posts in some way (someone already has, in uk.misc). First of all, I'd like to ask you to believe that my phone line in my apartment is bugged, and has been for many months. I have moved a couple of times this year, but "they" have faithfully been on my trail. Anyway, let's suppose my phone line is bugged. Now, when I talk to my internet service provider, it's over a SLIP (now PPP) connection. So if you wanted to bug what was said, either you'd listen in over the line and have to decode the transmission, or you could go to the service provider (more difficult) and ask them to decode a particular user's connection. OK, so now they're listening to everything I do over my SLIP/PPP connection. A couple of months ago I was messing around with faking articles through nntp servers and through anonymous remailers. I chose a nice inconspicuous newsgroup for my little tests, something no-one would ever notice. Guess which newsgroup I chose??? Yes, _FISH_!!! or rec.aquaria to be precise And guess what articles I tried to post? Goldfish, Koi carp and, you'll never guess... PIRANHA!!! The goldfish article and the Koi went through, but the piranha didn';t appear. by now you probably think this is too silly for words. But if you look in the papers a few eeks ago you will find John Major, Tonny Blair and Paddy Ashdown sharing a "private joke" about Major's sunburnt goldfish. We haven't had anything about Koi yet (they must be too dull ). Now, sent by someone who clearly knew what they were doing (they chose an Italian backbone site for their launch point) we have many thousands of messages to people all over the globe. All about piranha, and with the punchline "that gives you something to think about, doesn't it?" The way it works is that they're trying to kill two birds with one stone again. I don't knoiw why they should be against these national alliance people, but my interpretation is that they simultaneously try to discredit them, and stem the flow of Corley articles. ================================================================= In article <DFnE55.8tF.0.bloor@torfree.net>, Mike Corley <bu765@torfree.net> wrote: > >John J Smith (J.J.Smith@ftel.co.uk) wrote: > >: b) we do know who you are. Or are you someone else we don't know about? >: You are currently known as "That bloody persistant net nutter, who's >: expanding from uk.misc to the rest of the world". > >I think the point I was trying to make is that I could tell you things >from my personal life, at home and at work, which would add credibility >to my story. But if I named people, then (a) they would object violently >to being included in this shenanigans, and (b) I would be revealing my >identity which would be bad for my personal life and my work life. Of >course some people in my personal life, and at work, do know who "mike >corley" is. But at least we're observing a studied silence for now. :People can always be called "MR X", to save them being named. : :I'm completely perplexed as to what you mean by b). Revealing identity? :To who? And why would this be bad for any part of your life when you :already have a less than respectful reputation here? I'll just enumerate one or two things that I can still remember. Sometime around August/Sept 1992 I was living in a house in Oxford, and coming out of the house was physically attacked by someone - not punched, just grabbed by the coat, with some verbals thrown in for good measure. That was something the people at work shouldn't have known about... but soon after a couple of people were talking right in front of me about, "yeah, I heard he was attacked". Again, one I went for a walk in some woods outside Oxford. The next day, at work, someone said "you know he went to the forest yesterday". I don't want to put details on usenet of what happened because to do so would be to risk it happening again. If you put ideas in peoples' heads then you can find them reflecting back at you, and I don't want that. Also I can't remember that much from three years ago. From november 1992 I started taking "major tranquilizers" and just blotted the whole thing from my mind. >This is a feature time and time again, that the security services >(presumed) get at you by manipulating other people around you to get at >you. If you have their contacts, manpower, resources and technology then >you can do that sort of thing. :But why? Are you a threat? They pretend they "have" to get at me. After the first few weeks they had to find a reason to spy and abuse. You can't abuse someone unless they're in the wrong in some way. What I did "wrong" was to be ill. So it became "nutter" and "monster" and "he's going to attack us" coupled with "ha ha ha, he can't do anything to defend himself, it was so funny". That obvious contradiction within their propaganda is something they blithely ignore. :So, the Security Services never *actually* appear, and you assume that :they get someone else to do your dirty work. This is a bit of a big :logical step, here: That person doesn't like me, or is causing me trouble, :it's not because they've got problems themselves, it must be the "Security :Services". Yes. Because people are infallible. Or is there more? A single source is indicated because of the range of harassment. BBC + Capital + manipulated_public_at_large + set_up_situations, what does that add up to? Add in the technology to carry out the covert spying and the manpower and knowhow to follow you around for five years without being spotted. It smells very much of the security services, because there is no other organization (to my knowledge) which does the things I've seen these people do. Remember, they have deliberately chosen the softest of soft targets to victimize. They purposely chose a mentally ill person who they thought would be likely to kill himself anyway, so that they could get away with murder. And in all likelihood it will have started as a personal vendetta by someone. Who could that be? I don't know, but I can give you some clues. The first possibility (deep breath) is that someone from my college set me up. Six years ago I graduated from university in the UK, during the last year there I was steadily getting more and more ill. I know that I was talking in my sleep; although I don't know what I was saying, it got me a reputation, and if someone from my college talked afterwards to the "wrong" people then that could be the reason for all that has followed. I think that's the strongest contender for source. Directly beneath my room lived another bloke who frequently had his friends round late at night, after the time that I went to sleep. So they could have heard what I was saying in my sleep, and that could have got me the reputation for "talking to myself". What I don't know is why that should have rebounded a year after I left. You'd think it would have happened sooner; it's a bit odd to wait for a year and then start abuse. That leads me to question what in particular happened around May/June 1990 for them to start then. >What I don't know is how it looks from the other side, from the side of >the people who are being manipulated to get at me. On a couple of >occasions I have challenged people to tell the truth of the matter, but >they have alwats ducked the challenge. :Have you ever considered the possibility, that you have made a mistake, and :the people don't know what you are talking about? Yes. I am currently considering the possibility that some people around me know only what is being posted on Usenet, and have not been "contacted" by "them". But I _know_ that others have been contacted. :What words? Are they in common use? Could they be a catchphrase of a :popular comedian?: "Nice to see you, to see you nice"? In England the all-time No. 1 is "nutter". Easter this year, returning home from Clapham police station to report five years of harassment ("we're not saying it's happening and we're not saying it isn't happening"), another "not happening" incident of harassment when a cowardly little slut did her country proud by yelling "nutter, nutter, nutter" in the face of the hated enemy. What can you do about that? You can't yell abuse back in their face, because they know they're supported by their peers, by the media, by the murderers in the security forces. You can't put them down when the fascist establishment is on their side. You can't hit them, because they would deny their abuse, they would deny knowing anything, and bring charges against the "nutter" who attacked them "at random". >You know, you're >passing saomeone, they're hardly going to construct an argument for your >benefit, so they work a word of abuse into the conversation which they >can giggle at. :Abuse such as what? We're all adults here, we can take it. Is this abuse :aimed at you? How can you tell it is? I think I've said already what the words are. Thing is, at any given time the language is consistent. In January everyone's calling you X, then a few weeks later people stop calling you X and start calling you Y. You can tell it's aimed at me, because when people repeatedly say the same words are you walk past, then laugh, you would have to be hard of understanding not to recognize it. >Or they repeat something that's been said somewhere else... the PE thing >being a case in point. PE says it, then other people pick up the refrain. :Remind me who PE is again. PE = "Private Eye" >: >To give you an example, which I mentioned in another posting. In around >: >October 1992, Private Eye ran a cover with the heading "Major's support >: >lowest ever", with John calling to Norma on the cover "come back, Norma". >: >Only one obvious interpretation to that, isn';;t there? I certainly >: >thought so when I saw that cover. Wrongo!! Down the pub with people from work >: >Simon says to phil, "don';t you think it's wrong then?" phil says, "well >: >private eye are usuallyright"..."hislop strikes again.. > >: Erm. Mike? Heeeelllllooo? What are you on about. What is the other >: interpretation then? Norma having an affair? Seems a bit wrong, with the >: heading "Majors support Lowest ever"... > >No, this one isn't obvious , it really does need to be explained. I >certainly didn't understand it when I first saw it. You see, the kernel >of vitriol is in the words "come back". At the time, the themes of >abuse were centred around interpretations of those two words (stretch your >mind a little bit, I don't have to spell it out for you, surely). :You did in your mail item. : :You seem to be scouting about something called a "Double Entendre". The :inference being "Come" = Ejaculation, "Back" = Anus (not the first part :of the body I would have went for, I would have foolishly gone for "Back", :silly old me). : :You see to have picked a sodomy double entendre out of a Private Eye :headline. They are everywhere. The English language has much double :meaning in it, and if you put your mind to it, you could pull a double :entendre out of a randomly chosen page of the bible. So what? >The point is that when Simon pointed it out to Phil, he did recognise >what it meant after a moment's thought... and so did I... and so did the >people who repeated it several times later... so however murky it may >seem to you, that is the meaning they intended it to have... I still don't really know if the meaning was intended when that headline was written, or if it was simply "found" after the fact. The reason I think it might be the former is that I got quite a lot of abuse along the lines of "sound-alike" or "double-entendre" at work, in particularly from Steve. So "double" inevitably came to mean split-personality, "two people in one"; "back" inevitably came to mean "backside", "come" inevitably meant you-know- what, "split" (well, we'd better split now) again you can guess, "bent" (of a similar bent), the list goes on forever. These aren't "nice" double- entendres intended for comedy, they're nasty words to humiliate and cause pain. If I could turn the clock back three years then I would sue my former employers for harassment and I would almost certainly win. I had to take pills after a year of Oxford, so they wouldn't be able to lie their way out of it. Actually, I could still take them to court - the main obstacle being that three years after the fact is a bit late and much of what happened, the details that would be necessary for a case to go to court, has just been obliterated by time. : Smid ============================================== From: flames@flames.cityscape.co.uk (Peter Kr|ger) Newsgroups: uk.misc,soc.culture.british,alt.conspiracy,uk.media,uk.legal Subject: Re: Mike Corley - a (helpful) suggestion Date: Mon Oct 2 05:43:42 1995 In article <812551172snz@objmedia.demon.co.uk>, Snail <snail@objmedia.demon.co.uk> says: >Indeed, I feel that my Usenet access is censored simply because I don't want >to download groups he is partaking in, because of his behaviour. > >I wasn't that bothered, but I am starting to get seriously pissed off >with him. Which takes a lot. Hi Snail This person Corley seems quite interesting for three reasons. I put the following at the end of a post in another thread just to see if he was reading any other threads in uk.media. It seems he is probably not. ----------------------------------------------------------------------- Heres an interesting little story from back in the early days of CCD technology. There was this miniature camera which was designed to fit behind the infrared receiver lens of the remote control system (just beside the IR sensor itself) the camera clocked out the data in 256 lines of 256 pixels from a Fairchild chip and fed it out, a line at a time, into the VBI within the TV set itself. The signal could be picked up remotely from a standard license detector van from where it was stripped out of the surrounding RF signal and relayed back to the TV station where it was displayed as a slowscan monochrome image in a corner of the news readers monitor. 5578 Tag: Hex program Tag: 206845
  - 23
    - MI5 Persecution: Watch Out, Forger About 27/9/95 (4064) From: ray@ultimate-tech.com (Ray Dunn) Newsgroups: uk.misc,soc.culture.british Subject: Re: An apology from Mike Corley Date: Wed Sep 27 14:20:36 1995 In referenced article, David Wooding says... >Well, Mike Corley might or might not have written the apologies, but I >think not. I thought the following line both witty and imaginative. > >>>It was the razor blades stuffed down between the keys that told me. Corley himself denies posting this "apology", but I'm impressed if it is a forgery. Here's the header of my received email. It looks very genuine except for the fact that postings to newsgroups are directed through demon's mail to news gateway, which is strange. Also the message id is <m0sxbx2-000JEeC@bloor.torfree.net> which seems to be in a different format from previous Corley postings, e.g. <DFJJB3.6Ft.0.bloor@torfree.net The mail seems to have been received directly from mail.torfree.net. One way of telling for sure would be if anyone on the recipient list contacted torfree, but did not publish any complaints on the newsgroups - he would not have had access to their address in that case. >Received: from SpoolDir by ULTIMATE (Mercury 1.20); 26 Sep 95 12:00:14 +0500 >Return-path: <bu765@torfree.net> >Received: from mail.torfree.net by smtp.ultimate-tech.com (Mercury 1.20); > 26 Sep 95 12:00:04 +0500 >Received: from bloor.torfree.net ([199.71.188.18]) by mail.torfree.net > (/\==/\ Smail3.1.28.1 #28.6; 16-jun-94) > via sendmail with smtp id <m0sxbyy-000LXSC@mail.torfree.net> > for <ray@ultimate-tech.com>; Tue, 26 Sep 95 11:31 EDT >Received: from torfree.net by bloor.torfree.net with smtp > (Smail3.1.28.1 #6) id m0sxbx2-000JEeC; Tue, 26 Sep 95 11:29 EDT >Message-Id: <m0sxbx2-000JEeC@bloor.torfree.net> >Apparently-To: bu765@torfree.net, snail@objmedia.demon.co.uk, > ray@ultimate-tech.com, Frank@acclaim.demon.co.uk, > p.marshall@axion.bt.co.uk, me93jrb@brunel.ac.uk, > mikeh@mordor.com, > michael@everyman.demon.co.uk, tim@xara.co.uk, > Alan.Holmes@brunel.ac.uk, uk.misc@news.demon.co.uk, > uk-misc@news.demon.co.uk, uk-media@news.demon.co.uk, > uk.media@news.demon.co.uk, uk.legal@news.demon.co.uk, > uk-legal@news.demon.co.uk, alt-conspiracy@news.demon.co.uk, > alt.conspiracy@news.demon.co.uk, > soc.culture.british@news.demon.co.uk, > soc-culture-british@news.demon.co.uk, > soc-culture-canada@news.demon.co.uk, > soc.culture.canada@news.demon.co.uk >Newsgroups: uk.misc, uk.media, soc.culture.british, soc.culture.canada, uk.legal, alt.conspiracy >From: bu765@torfree.net (Mike Corley) >Subject: Oops! Sorry! >Organization: Toronto Free-Net >X-Newsreader: TIN [version 1.2 PL2] >Date: Thu, 26 Sep 1995 01:23:45 GMT >Lines: 27 >X-PMFLAGS: 33554560 -- Ray Dunn (opinions are my own) | Phone: (514) 938 9050 Montreal | Phax : (514) 938 5225 ray@ultimate-tech.com | Home : (514) 630 3749 4064 Tag: Hex program Tag: 206842
  - 24
    - MI5 Persecution: Question and Answer 27/9/95 (2550) In article <DFGxnF.Cr8.0.bloor@torfree.net> bu765@torfree.net "Mike Corley" writes: >>> ##: There were also a few other things said at the trial >>> ##: relating to this which I won't repeat here; it was in the papers >>> ##: at the time anyway. This quote and others said by and about this >>> ##: witness were repeating things that had been said by and about >>> ##: me at around that time. When, where and by whom ? Let's have some details that can be checked. I'm not going to repeat them. They're hurtful to me because they contained abuse that was directed against me by someone else at the time and which got picked up and thrown again in the trial. It is a matter of record but I won't repeat it here. >>> PM: >Who's character is being assassinated? It isn't clear from the post. >>> PM: >Are we talking about Grenville Janner? I thought he was a spook >>> PM: >himself? He's certainly able to hold his own on the issue you cite. >>> ##: Mine, mainly. The reason for putting that episode at the top >>> ##: of the posting is that they tried to kill two birds with one stone >>> ##: at the Beck trial - they simultaneously put words into the mouth >>> ##: of their invented "witness" to smear Janner, and repeated exactly, >>> ##: word-for-word, stuff which had been said by and about me. Why would "they" wish to assassinate your character? Well, let's put it this way - just because this is the first time it's happened in this way, from these people, on this scale, doesn't mean that it hasn't happened before, on a lesser scale. At university there were people who quite overtly hated me and would have wished something nasty to happen to me. Because of where I went making the wrong sort of enemies is pretty deadly. "They" would wish to assassinate my character because it had all been done before, and because they knew I would not be able to react in any other way than I'd reacted previously. >>> ##: They invaded my home with their bugs, they repeated what I >>> ##: was saying in the privacy of my home, and they laughed that it >>> ##: was "so funny", that I was impotent and could not even communicate >>> ##: what was going on. Who did this? Our friends on BBC television, >>> ##: our friends in ITN, last but not least our friends in Capital >>> ##: Radio in London and on Radio 1. Please give details of when, where and by whom these comments were made, so that they can be checked. This was four, five years ago... sorry, I don't remember. I can remember individual incidents, words which were repeated by different people at different times in different locations. Around the end of 1992 Private Eye rtan a front-cover with John and Norma Major, with the title "Major's support lowest ever" and John saying to Norma "Come back norma" on the front cover. What can you read in to that? Not a lot, seems like standard fare for PE. The first time I saw it I was in the pub with some people from work. One was expressing doubts to the other (let's call the first one Simon, shall we? and the second one Phil?) about whether what was going on was right. Phil's answer was that if Private Eye was doing it then it must be ok, "they're usually right". A few days later, again near work, there were some students laughing in the street, "Were you COMING BACK later? But I thought you said you were COMING BACK ha ha ha?" Play on words, you see. Not very nice, either. I had start medication soon afterwards. Clever people, these chaps who think up PE titles. Just slightly lacking in any sense of morality. >>> ##: How did they do this? I'll give you an example. About a year ago, >>> ##: I was listening to Chris Tarrant (Capital Radio DJ among other >>> ##: pursuits) on his radio morning show, when he said, talking about >>> ##: someone he didn't identify, "you know this bloke? he says we're >>> ##: trying to kill him. We should be done for attempted manslaughter" >>> ##: which mirrored something I had said a day or two before. >>> ##: Now that got broadcast to the whole of London - if any recordings >>> ##: are kept of the shows then it'll be there. What was the date of the broadcast ? Out of 2 million plus listeners, why should you be the only one that Tarrant was allegedly referring to ? Sometyime in spring 1994. I can't remember the date, I heard the broadcast in the car - I was going into the office from London that day and just happened to snap on the radio, and hey presto! Mr Tarrant gives us the benefit of his excellent understanding. >>> ##: That's exactly what we did. We went to a competent, professional >>> ##: detective agency in London, paid them over 400 quid to debug our house. >>> ##: They found nothing. What was the name of the detective agency and their address ? I don't see why I should tell you that, but they're in Yellow Pages; they're a well-established outfit. >>> PM: >What? Spend a quarter mil. a year to amuse themselves? And why not >>> PM: >change every now and again? Why keep watching you? (Unless you _are_ >>> PM: >doing something, and I don't think you are, though you may have some >>> PM: >deep, dark secret in your past.) >>> >>> ##: See the above. Is there a deep dark secret in your past ? Apart from "it's all happened before in a different way", no. >>> ##: In a couple of cases people have even known my name - when I was in >>> ##: London over Easter somebody (no idea who they were, just some bloke with >>> ##: his girlfriend) called me by name - quite clearly, and my name is >>> ##: distinctive. Is your name truly Mike Corley, or are you using it as an alias ? It's an alias. I'm not English by ethnic origin. If someone manages to pronounce my name as well as that guy did then they must have been really trying. >>> ##: There's a little story behind this. First of all, in 1992 I worked >>> ##: for a company where the people made clear they knew what was going on, >>> ##: first of all directly (the very first evening I was there I went out to >>> ##: the pub with them and the Technical Director said to another guy, >>> ##: "is this the bloke who's been on TV?" "yeah, I think so") Have you appeared, or been reported by name on TV ? When, where and by whom ? No. Never. Not directly. >>> ##: Also, in summer 1992 I went on a trip abroad to Europe by coach, What was the name of the coach company and your date of departure ? It was a national express coach. At dover we boarded a ferry for Holland somewhere. The company that organized the trip went out of business some time ago, so they won't have records of passengers - so we can't get any corroboration from anyone else that way. We tried all that last summer, ran into a brick wall. The other thing is in summer 1992 I was visibly ill, so other people in the party might remember that more than anyone getting at me on the coach trip. >>> ##: >>Yes, this gets me. I think the answer is that I was set up by >>> ##: >>someone. I was very aware when this started back in 1990 that I >>> ##: >>was being painted as a "threat" to which people had to "react" Why were you being painted as a "threat"; is this related to a "deep,dark, secret" ? Aaaarrrrgh. I think I should make clear that that's their created justification rather than the real reason. They started harassing first and then came up with the reasons for it. >>> >>> ##: I think I know who set me up. Who ? Someone who knew me some time ago. Someone who would have been able to talk this little campaign into existence. >>> ##: The bloke can't even control his own mind without medicine. Is this true ? What is the medication and dosage ? Yes, I'm afraid so. Sulpiride, 200mg a day. It's designed to stop people coming up with the sort of ideas you've heard here for the last few weeks. Give him a higher dose!! In the long term it causes tardive dyskinesia, tardive dementia and general nasty stuff to your brain. So it's three years of sulpiride talking to you here. >-- >john heelan 2550 Tag: Hex program Tag: 206839
  - 25
    - MI5 Persecution: Options 21/9/95 (1036) From: john heelan <john@lorca.demon.co.uk> Newsgroups: uk.misc,alt.current-events.net-abuse,alt.journalism Subject: Re: CENSORHSIP IS IMMORAL, UNJUST AND WRONG Date: Thu, 21 Sep 95 19:17:30 GMT Organization: (Private) Lines: 65 Message-ID: <811711050snz@lorca.demon.co.uk> References: <DF8DMu.Dqu.0.bloor@torfree.net> <43qpdh$iki@news3.digex.net> Reply-To: john@lorca.demon.co.uk X-NNTP-Posting-Host: lorca.demon.co.uk X-Newsreader: Demon Internet Simple News v1.29 You have to admit that Mike is persistent and obviously feels deeply that he is being hounded by the "Security Services" and there is a Conspiracy out to get him personally. If that is true, then we should be concerned; if he is just paranoid, then we should empathise with his sickness. What we should not do is to invite censorship....that just could be implicitly joining in the putative Conspiracy. Let's look at Mike's potential options (and the alleged responses he has received): > 1. Complain to the Police: (their alleged response > "Don't be silly, Sir"; Mike's rationale "They are part > of the Conspiracy") > I don't think the police as an organisation are part of it. They're certainly not the source. The officer I spoke to at Easter clearly didn't know anything about it. And that was at my local police station in London - if anyone in the police knew you would think the people at your local cop shop would. A couple of years ago I had to go into the station after a motoring infraction, the guy I spoke to then said something about "brain like a computer sir" which my suspicions latched on to - (I'm alleged to be a programmer as some people reading this know) - but as per the usual "can';t prove nuthin" and you ask yourself if you're just being stupid suspecting on the basis of a straw > 2. Complain to a Member of Parliament (Mike's rationale: "Can't > because they are part of the Conspiracy") > I could do that actually. But he would probably tell me to go see the police, for which see above. > 3. Make it visible through the UK Press. (Mike's rationale: > "Can't because they are part of the Conspiracy") > They are actually. There's a difference though in the way journalists react to this stuff when they're "got to" by the security service. This is completely giving the game away, but the trouble originally started with my reading into stuff that was being written by Times columnists, in particular our antagonistic friend Mr Levin. But you see that some journalists are taking part in the conspiracy and others are only doing it because their puppet masters have been feeding them information which they can't allow themselves to ignore. The security services have their hooks into the UK media, this case shows that very explicitly. You also see how things get gradualkly wqorse with a particular journalist; a couple of weeks ago Peter Tory in the Express was writing about "nerds seeking their revenge on him through the Net", guess what that was about. > 4. Complain to the UK Security Services. (Mike's rationale: "Can't > because they ARE the Cnspiracy") > Quis custodiet ipsos custodes? If the fascist Gestapo bastards plot to see you dead then who's going to deal with it? Not the security services, that's for sure. > 5. Make it visible through Internet: (Mike has done this > suvccessfully; but any gainsayers are "part of the Conspiracy". > I don;t think you';re part of the consipracy if you refuse to believe or email the postmaster. Those who do know are keeping their silence. > 6. Complain to the Canadian National and State Governments. (Has > Mike done this yet ?) > No. It's a UK problem so that's where it should be dealt with. The perpetrators are UK residents, are unidentified, and would be difficult to deal with through the Canadian courts. Ditto the police in Canada, ditto the press - it isn't their problem, it's caused by UK people against someone from the UK. Of course Canadian laws are being broken relating to harassment and "stalking" which do not exist in the UK, but the Canadian police do not have a very good record of enforcing those laws anyway. > 7. Complain to the Canadian Security Services (Has Mike done this > yet ?) > > 8. Complain to the Canadian Press. (Has Mike done this yet ?) > I think if they didn't knoiw, they'd just think you were having delusions; and if they did, then they would side with the people with the power, the smiling English people with their knives out. Remember, nobody uis going to side with the person who has less power in a copfrontation. The team over here in Canada have the resources of their organization behind them, other broadcasters etc in the UK would have influence with their counterparts in Canada; after all, this was once a British colony, there is still a feeling of "looking up to" the UK among many Canadians, so if a team of security services arrives from the UK with apparently limitless resources to pursue their target, people over here will forget anything they ever knew about basic human rights and go along with what they are told to do and how they are told to behave. > 9. Complain to non-UK TV Watchdogs (Does Canada have an "Oprah > Winfrey ? Has Mike done this yet ?) > > 10. Complain to the EC Court of Human Rights. (Has Mike done > this yet ?) > > ........or...are 6,7,8,9,10 also all part of > the Conspiracy ? > > > > -- > john heelan 1036 Tag: Hex program Tag: 206836
- Next
  - 1
    - How do I add error control to this script? How do I add error control to this script, "If Err.number <> 0 Then" doesnt seem to work! I also want to log that "The user was removed" or "The user doesnt exist" in a log file Plz help I've spent 6 hours trying to this Const ForReading = 1 ' Open the csv file for reading Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile _ ("C:\Documents and Settings\All Users\Desktop\admin\VBScript\APM.csv", ForReading) ' Read the file one line at the time Do Until objFile.AtEndOfStream strLine = objFile.ReadLine arrFields = Split(strLine, ",") For i=0 To UBound (arrFields) strName = arrFields(i) ' Bind the locale administrator group Set objGroup = GetObject("WinNT://" & strName & "/Administrators") ' Add the name of the user / group who should be removed For Each objUser In objGroup.Members If objUser.Name = "xxxxx" OR objUser.Name = "yyyyyy" Then objGroup.Remove(objUser.AdsPath) End If Next Next Loop ' Close the csv file objFile.Close WScript.Echo "The users have been removed!" /Mikael Tag: Hex program Tag: 206834
  - 2
    - VBS to Create an NT4 User in an NT4 Domain Urgent assistance required. Can anyone help with code for creating a new user on an NT4 Domain. I have a script which creates users on the 2003 AD Domain but am struggling to find code which will allow a user to be created on an NT4 Domain. We have an old NT4 domain which still requires new users created hence the reason for the code request. I need urgent help and appreciate any given. Many Thanks Tag: Hex program Tag: 206833
  - 3
    - Take ownership of directory... Hi, I'm trying to take ownership of a users profile-directory(after the user has been deleted from the AD)... Normally i would take ownership of a file like: Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objFile = objWMI.Get("CIM_DataFile.Name='c:\boot.ini'") objFile.TakeOwnership but if i try to change that to a directory: Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objFile = objWMI.Get("CIM_DataFile.Name='c:\windows'") objFile.TakeOwnership i get an error: "SWbemServicesEx: Not found" on the objWMI.get-line? I've tried everything(except for the right thing;-)): C:\windows C:\windows\ C:\windows\. and doubleslashes... Any hints on how to do this? (or maybe another way to make sure that the profiles directory is "up-to-date") Thanks in advance... Kind Regards Thomas Tag: Hex program Tag: 206829
  - 4
    - Any VBScript editor/IDE? Hi, Is there any IDE for VBScript? For example, we have a built in IDE in Excel for Visual Basic For Java we have NetBeans or Eclipse or BlueJ For C we have Dev C++ or Quincy. But what about VBScript? Please provide freeware VBSCript IDE websites. Thanks a lot. Tag: Hex program Tag: 206828
  - 5
    - WMI method for single property Hi all, Could someone tell me, is there a way to directly retrieve 1 property from a namespace, e.g., i want "IdentifyingNumber" from "Win32_ComputerSystemProduct". So far, all the code example I found on the internet always return a collection then I would need to do a "For Each" [ Set colSWbemObjectSet = objSWbemServices.InstancesOf("Win32_ComputerSystemProduct") For Each objSWbemObject In colSWbemObjectSet fDellServiceTag2 = objSWbemObject.IdentifyingNumber Next ] Thanks. Tag: Hex program Tag: 206827
  - 6
    - TargetPath Problem Hi all - I'm writing a script that updates a shortcut to one of the App we use when we are upgrading versions. Code Snippets sDesktop = "c:\Documents and Settings\trader\desktop" 'sDesktop = oShell.SpecialFolders("Desktop") sPathToOrc = "O:\Orc5.2.15.app\Contents\Windows\Orc.exe" wscript.echo sPathToOrc sShortCutDescription = "Shortcut to Orc" sShortcutPath = sDesktop & "\Shortcut to Orc.lnk" sShortcutBackupDir = "Orc Shortcuts" 'logic to backup old shortcut cut.... wscript.echo ("Creating New Orc Shortcut...") Set oNewSC = oShell.CreateShortcut(sShortcutPath) wscript.echo "Path to Orc " & sPathToOrc oNewSC.TargetPath = sPathToOrc wscript.echo "Target Path " & oNewSC.TargetPath oNewSC.Description = sShortcutDescription oNewSC.Save Now the problem is that the new shortcut Target Path is getting mangled for some reason - you can see it in the output below. O:\Orc5.2.15.app\Contents\Windows\Orc.exe Found Orc Shortcut: Shortcut to Orc.lnk Copying Shortcut to Orc.lnk to c:\Documents and Settings\trader\desktop \Orc Shortcuts\2007-06-08_085515-Shortcut to Orc.lnk Deleting Shortcut to Orc.lnk Creating New Orc Shortcut... Path to Orc O:\Orc5.2.15.app\Contents\Windows\Orc.exe Target Path O:\Orc5.app\Contents\Windows\Orc.exe c:\windows\system32\cscript exited on desk15-big with error code 0. Its dropping the 2.15 - why is this happening? It works fine on my local machine, but when I run it from my machine on the remote PC it gives me problem. I'm running it on a remote machine via psexec. Thanks, Tag: Hex program Tag: 206819
  - 7
    - Recordset.GetRows() returning nothing? I'm trying to load an Active Directory users list into an array (for data manipulation), but it seem that the GetRows() function have some limitation? I'm saying that, since when I'm doing aUsers = RecordSet.Getrows(), aUsers array stay empty, even if the recordset have more than 2000 fields. Does I'm asking too much memory? Thanks. Claude Lachapelle Systems Administrator, MCSE Tag: Hex program Tag: 206814
  - 8
    - Can't delete folders/subfolders Howdy- I'm aware of the post-SP2 changes for the Win32_Directory (or Win32_Subdirectory) Delete methods (where you can't delete a directory if a subdirectory exists), but still can't seem to successfully do what I want - which is delete user profiles from remote machines using WMI & VBScript. Even if I copy/paste the code in: http://www.microsoft.com/technet/scriptcenter/resources/qanda/apr05/hey0405.mspx and run it against a strFolderName like "c:\documents and settings\joeuser", I usually end up with a (null): 0x80041017 error in the line reading: For Each objFolder in colSubfolders (or For Each objFolder2 in colSubFolders2) and the colSubFolders is set to: Set colSubfolders = objWMIService.ExecQuery _ ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _ & "Where AssocClass = Win32_Subdirectory " _ & "ResultRole = PartComponent") Has anyone found success in using this newer method (enumerating the entire folder tree & then deleting them from the bottom up)? Or found any problems/better ways to do it? Thanks, Brian Tag: Hex program Tag: 206813
  - 9
    - Renaming Scheduled Tasks and WMI I am creating a scheduled task using WMI. It works fine, creating a task called AT1, with the digit being incremented for the next digit if it already exists. I am able to retrieve the Job ID for the task. My question is, can I rename this scheduled task using VBScript? I only want to schedule the task through a login script if it has not already been scheduled. I know how to check the names but if AT2 is created on one workstation and AT5 on another, how do I know not to schedule the task? TIA Tag: Hex program Tag: 206811
  - 10
    - set registry value for custom label I'm trying to set a registry value for a custom label which I've exported to a file. This doesn't work: Dim sFilename, wshShell sFilename = "G:\some\path\to\MagLabel.reg" Set wshShell = CreateObject("WScript.Shell") wshShell.Run "regedit /s sFilename", 1, True It also doesn't work if I use the entire path name instead of sFilename. If I manually import the file from regedit, it works beautifully, but not from script. Any suggestions as to how to accomplish my goal is much appreciated. TIA Tag: Hex program Tag: 206810
  - 11
    - Parameters Hi all, I need to make a script to change CDROM letter and I need to change the pause when windows start (by default 30 seconds). How can do it by script ? Does someone can help me ? Thank you, Olivier Tag: Hex program Tag: 206803
  - 12
    - Acessing AutoSys global variable via VBScript. Hi everybody, I am very new at both VBScript and just got introduced to AutoSys along with JIL (Job interface language). Following is the problem I am facing: The AutoSys is being run on Windows only. When my VBScript (not Visual Basics) script is run, I will calculate the system time and format the date as required and update a global variable of the AutoSys with the formatted date. Now, the problem is, when I update the global variable of AutoSys (i.e. GLOB_VAR), this is the scenario: The global variable (GLOB_VAR) resides on a table belonging to AutoSys which holds only global variables. I was told that I have to use JIL (Job Information Language) commands in order to run commands from my script to update the global variable BUT... the JIL is only run from command prompt. In specific: How can you issue commands from your VBScript to get value of a global variable or to update the value of a global variable given the above scenario? NOTE: We are using SQL Databases. I apologize if I provided too much or too little detail. If more information is required, please let me know. Tag: Hex program Tag: 206801
  - 13
    - Scheduled task Ok I have a sheduled task that runs from a script as long as I do not specfiy the user name. But due to some restrictions in security I have to run this task from a script with the user name built in. Set ws= CreateObject("WScript.Shell") ws.Run ("SCHTASKS /Run /S Comp1 /U username /P password /TN task") But if I remove the switches /S /U and /P it works perfect, does any one have any ideas on how to make this run? And yes I know that it's never a good idea to put this stuff in a script but thats the way the boss wants it. maybe from a batch file, maybe from thin air, I am going nutts trying to figure it out. Thanks for the help. -- Thanks TimM Tag: Hex program Tag: 206799
  - 14
    - Simple Date Script returning Wrong Day of Week I am puzzled, a simple date script to return the present date and the day of week is returning the wrong day of week. ##################SCRIPT-START################ Wscript.Echo Month(Now) & "/" & Year(Now) Wscript.Echo WeekDayName(Day("6/7/2007")) ##################SCRIPT-END################## When I run this script I get the following info back: #################SCRIPT-OUTPUT################ D:\Scripts\>cscript time.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. 6/2007 Saturday D:\Scripts\> #################SCRIPT-OUTPUT-END################ Has anyone seen this before? Tag: Hex program Tag: 206798
  - 15
    - Iterating through the Child nodes of a Child Node Hello; I'm trying to iterate through the sub nodes of a child node, but I'm getting a compile error on the 2nd For...Next expression saying it is invalid. Using the below code, the HasChild() statement is "true" when the 3rd item is reached so I know there are child elements below it. A debug watch on the "SET oNodeList2 statement" shows that there is a list present at run-time. What is wrong with the code on the FOR..NEXT statement? Thanks, Gregg set oNodeList = root.childnodes i = 0 i2 = 0 For Each Item In oNodeList i = i + 1 if i < oNodeList.length then msgbox "Listing the EXISTING nodes" MsgBox oNodeList.item(i).nodename & " " & oNodeList.item(i).nodevalue & " " & oNodeList.item(i).nodetype If oNodeList.item(i).hasChildNodes() then MsgBox oNodeList.item(i).nodename & "has child nodes" 'set oNodeList2 = root.getelementsbytagname(oNodeList.item(i).nodename) set oNodeList2 = oNodeList.item(i).childnodes i2 = 0 For Each Item In oNodeList2 i2 = i2 + 1 MsgBox oNodeList2.item(i).nodename & " " & oNodeList2.item(i).nodevalue & " " & oNodeList2.item(i).nodetype If oNodeList2.item(i).hasChildNodes() then MsgBox oNodeList2.item(i).nodename & "has child nodes" end if Next end if end if Next *** Sent via Developersdex http://www.developersdex.com *** Tag: Hex program Tag: 206797
  - 16
    - Client printing to old print server I have an old print server named "x" I need any clients printing to the old server X to (1) Deleted their connections (2) Map to the new print server. (3) This applies to even printers mapped that are not default printers too. Script thus far: On Error Resume Next Dim strCaption, strComment, strName, strDeviceID, strComputer Dim strStatusAdd, strStatusDelete, strDefaultPrinter, strSetDefaultPrinter, strTempPrinter Const ForWriting = 2 Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 sComputer = "." Set WshShell = WScript.CreateObject("WScript.Shell") Set WshSysEnv = WshShell.Environment("PROCESS") Set ws = wscript.CreateObject("Scripting.FileSystemObject") logfile = WshSysEnv("TEMP") & "\" & "changeprt-status.log" arrComputers = Array(sComputer) strNewServer = "y" strOldServer = "x" blnDeleteNonExistentOldPrinter = true silent = 0 ' 0 = verbose, 1 = silent Set l = ws.OpenTextFile (logfile, ForWriting, True) If silent = 0 Then strResult = MsgBox("This will attempt to map printers from " & strOldServer _ & " to " & strNewServer & ". This process takes approximately 1 minute." & vbcrlf & vbcrlf _ & "You will not see any output during this time until the script has completed." & vbcrlf & vbcrlf _ & "Continue?",68,"Printer conversion script") If strResult = 7 Then l.writeline Now & " - User aborted printer conversion script." wscript.quit End If For Each strComputer In arrComputers l.writeline "---------------------------------------------------------------------------" l.writeline "Relocate printer script - " & vbcrlf & Now & vbcrlf & "Computer: " & strComputer l.writeline "---------------------------------------------------------------------------" l.writeline Now & " - Starting change printer script" l.writeline Now & " - Converting local printer queues from " & strOldServer _ & " to " & strNewServer l.writeline Now & " - Delete old printers that do not exist on new server is Set to: " _ & blnDeleteNonExistentOldPrinter strDefaultPrinter = lcase(GetDefaultPrinter()) l.writeline Now & " - Default printer is currently Set to: " & strDefaultPrinter Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colOS = objWMIService.ExecQuery("SELECT caption FROM Win32_OperatingSystem", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For each objitem in colOS If instr(objItem.caption,"2000") or instr(strOS,"Windows Powered")Then Set colItems = objWMIService.ExecQuery("Select Caption, DriverName, PortName from Win32_Printer",,48) ElseIf instr(objItem.Caption,"XP") Then Set colItems = objWMIService.ExecQuery("SELECT CAPTION, COMMENT, DEFAULT, DEVICEID, NAME, NETWORK FROM Win32_Printer", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) End If strOS = objItem.caption Next l.writeline Now & " - Operating System on " & strComputer & " is " & strOS 'Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") For Each objItem In colItems If instr(strOS,"XP") Then strCaption = objItem.Caption strComment = objItem.Comment strName = objItem.Name strDeviceID = objItem.DeviceID blnDefault = objItem.Default ElseIf instr(strOS,"2000") or instr(strOS,"Windows Powered")Then strCaption = objItem.Caption strName = objItem.DriverName strDeviceID = objItem.DeviceID End If l.writeline Now & " - Processing printer " & strDeviceID If instr(lcase(strDeviceID),lcase(strOldServer)) Then l.writeline Now & " - Found reference to old server. Printer: " & strDeviceID strQueueArray = split(strDeviceID,"\") For i = 0 to ubound(strQueueArray) strPrintQueue = strQueueArray(i) Next l.writeline Now & " - Queue name is: " & strPrintQueue Set objNetwork = CreateObject("WScript.Network") strStatusAdd = nothing If blnDeleteNonExistentOldPrinter = true then strStatusDelete = nothing err.clear l.writeline Now & " - Now attempting to add \\" & strNewServer & "\" & strPrintQueue objNetwork.AddWindowsPrinterConnection "\\" & strNewServer & "\" & strPrintQueue If instr(strDefaultPrinter,lcase(lcase(strPrintQueue))) then strSetDefaultPrinter = "\\" & strNewServer & "\" & strPrintQueue 'wscript.echo "Setting variable for default printer to " & "\\" & strNewServer & "\" & strPrintQueue Else 'wscript.echo "not Setting new default printer to " & "\\" & strNewServer & "\" & strPrintQueue End If If cstr(err.number) = -2147023095 then l.writeline Now & " - ERROR: Could not add \\" & strNewServer & "\" & strPrintQueue _ & ". This printer (" & strPrintQueue & ") may not exist on the new server. Contact your system " _ & " administrator." l.writeline Now & " - " & err.number & "; " & err.description & "; " & err.source err.clear Else strStatusAdd = strStatusAdd & "\\" & strNewServer & "\" & strPrintQueue & " (" & strComment & ")" & vbcrlf 'Here's where you would put the default printer information 'wscript.echo StrDefaultPrinter & vbcrlf & strPrintQueue 'wscript.echo "strDefaultprinter(2): " & strDefaultPrinter(2) End If If blnDeleteNonExistentOldPrinter = true then objNetwork.RemovePrinterConnection strDeviceID If cstr(err.number) <> 0 then l.writeline Now & " - ERROR: Could not remove " & strDeviceID & ". There may be a permissions " _ & "issue with this computer. Contact your system administrator." err.clear If strTempPrinter <> "" Then strSetDefaultPrinter = strTempPrinter Else strTempPrinter = "\\" & strNewServer & "\" & strPrintQueue End If End If If blnDeleteNonExistentOldPrinter = true then strStatusDelete = strStatusDelete & strDeviceID & " (" & strComment & ")" & vbcrlf End If Next Next 'wscript.echo "strSetDefaultPrinter: " & strSetDefaultPrinter l.writeline Now & " - Now attempting to Set default printer to " & strSetDefaultPrinter If strSetDefaultPrinter <> "" Then objNetwork.SetDefaultPrinter strSetDefaultPrinter If cstr(err.number) <> 0 Then l.writeline Now & " - There was an error while attempting to Set the default printer." err.clear End If l.writeline Now & " - Finished processing printers." If strStatusAdd <> "" Then l.writeline Now & " - Added the following printers: " & vbcrlf & strStatusAdd If silent = 0 then strmsg = "Added the following printers: " & vbcrlf & strStatusAdd & vbcrlf & vbcrlf _ & "Your default printer is: " & strSetDefaultPrinter & vbcrlf & vbcrlf Else If silent = 0 then strMsg = "No new printers were added. Click 'Start'> 'Settings' to " _ & "verify your printer connections. " & vbcrlf & vbcrlf _ & "Your default printer is: " & strDefaultPrinter End If End If If strStatusDelete <> "" and blnDeleteNonExistentOldPrinter = true Then l.writeline Now & " - Removed the following printers: " & vbcrlf & strStatusDelete If silent= 0 then strmsg = strmsg & "Removed the following printers: " & vbcrlf & strStatusDelete End If If silent = 0 Then MsgBox strmsg,64,"Printer conversion completed" l.writeline "---------------------------------------------------------------------------" l.close Function GetDefaultPrinter() PrinterCheck = DefaultPrtExist TotalKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device" If PrinterCheck <> "" then strDefault = UCase(left(WshShell.RegRead(TotalKey),InStr(WshShell.RegRead(TotalKey),",") - 1)) GetDefaultPrinter = strDefault exit function Else Counter = 0 ' Initialize Variables Do Dot = "." Counter = Counter + 1 If Counter = 5 then strDefault = "No Default Printer currently assigned!" exit Do End If PrinterCheck = DefaultPrtExist If PrinterCheck <> "" then strDefault = UCase(left(WshShell.RegRead(TotalKey),InStr(WshShell.RegRead(TotalKey),",") - 1)) GetDefaultPrinter = strDefault wscript.sleep 2000 exit Do End If Wscript.Sleep 1000 Loop End If GetDefaultPrinter = strDefault End Function Function DefaultPrtExist() Dim strKey, strValue, strDefault Dim Shell strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows" strValueName = "Device" Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,DefaultPrtExist 'wscript.echo DefaultPrtExist End function Tag: Hex program Tag: 206796
  - 17
    - Service failure I have a service named "servicename" in task manager. This service has to always run.. Is there a way that a script can be ran indefinatelly/or until the server reboots to: (1) Check to see if the service is running. (2) If it is running = skip (3) If service is not running. Restart service. (4) Check every 1-2 minutes. Tag: Hex program Tag: 206795
  - 18
    - Printer question This question is not as much the content within a script, however best practices when completing the following. What is the best way to assign default printers with the following conditions. - Mobile users - Thick and Thin clients - No OUs currently set - Thin clients using Citrix. I thought about assigning it to the end-user (logon name) however when they log on the get the same default printer, no matter if the move to another location. This wont work, as they need the new locations printer. I thought about assigning the script to the workstation in ADS, by making an OU and assigning a GPO to the container, however Thin clients are not in ADS. Group memebership wont work either as this enviroment is 4000+ users and a ton of groups where in one department they may have 30+ printers, and when they move the want the one thats closest to them. No matter if they use Citrix or Thick/Workstations. Any thoughts? I thought about the logon script, however the only orangization as of right now is "groups" in ads. Our security team hasnt created ou structure, and I had a discussion about how we need this as all users are in the default container, and likewise PCs in computers, The only change was i moved all the servers in their own ou, as i didnt want their gpos effecting my servers; espically automatic windows updates. I thought about based on location, however using membership/subnet tracking will not work, as one subnet may have 10+ printers easily. On thick Clients (or better know as Pcs) they are in ADS, so assigning a gpo to an ou and moving designated workstation in the appropriate container would work. and create multible scripts for each ou/gpo. However thin clients, which are passed through citrix dont even have computer accounts in ads to manage. So that is the pit fall. I keep spinning my wheels as i try to think of the best way -- here is a sample of the script thus far created by jdh logonscript creator.... And ideas. 'Created: 6/6/2007 'Author: haverlyr '********************** On Error Resume Next Dim objFSO,objFILE,objShell,objNetwork set objFSO=CreateObject("Scripting.FileSystemObject") set objShell=CreateObject("Wscript.Shell") set objNetwork=CreateObject("Wscript.Network") 'Map network drives If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Staff Nurse II - BU3") Then MapIt "Z:","\\fileserver\groups\StaffNursing" & objNetwork.Username & "" 'Map printers AddPrinterConnection "\\Prntserver1\BU3HpLaserJ" objNetwork.SetDefaultPrinter "\\Prntserver1\BU3HpLaserJ" 'End of main script '////////////////////////////////////////////////// Function PasswordExpires(strDomain,strUser) On Error Resume Next Dim objUser Set objUser=GetObject("WinNT://" & strDomain & "/" & strUser & ",user") PassExp=INT(objUser.MaxPasswordAge/86400)-INT(objUser.PasswordAge/86400) If PassExp<0 Then strPassMsg="Your password never expires." Else strPassMsg="Your password expires in " & PassExp & " day(s)" end If PasswordExpires=strPassMsg End Function Function IsAMemberOf(strDomain,strUser,strGroup) On Error Resume Next Set objUser=GetObject("WinNT://" & strDomain & "/" & strUser & ",user") Set objGrp=GetObject("WinNT://" & strDomain & "/" & strGroup & ",group") If objGrp.IsMember(objUser.ADsPath) Then IsAMemberOf=True Else IsAMemberOf=False End If End Function Sub MapIt(strDrive,strMap) On Error Resume Next If objFSO.DriveExists(strDrive) Then objNetwork.RemoveNetworkDrive(strDrive) objNetwork.MapNetworkDrive strDrive,strMap If Err.Number<>0 And blnShowError Then strMsg="There was a problem mapping drive " & UCase(strDrive) & " to " &_ strMap & VbCrLf & strHelpMsg & VbCrLf & "Error#:" & Hex(err.Number) &_ VbCrLf & Err.Description objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation Err.Clear End If End Sub Sub AddPrinterConnection(strPrinterUNC) On Error Resume Next objNetwork.AddWindowsPrinterConnection strPrinterUNC If Err.Number<>0 And blnShowError Then strMsg="There was a problem mapping " & UCase(strPrinterUNC) & ". " &_ vbcrlf & VbCrLf & strHelpMsg & VbCrLf & "Error#:" & Hex(err.Number) &_ VbCrLf & Err.Description objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation Err.Clear End If end sub Sub AddPrinterPortConnection(strPort,strPrinterUNC) On Error Resume Next objNetwork.AddPrinterConnection strPort,strPrinterUNC If Err.Number<>0 And blnShowError Then strMsg="There was a problem mapping " & UCase(strPrinterUNC) & " to " &_ strPort & vbcrlf & VbCrLf & strHelpMsg & VbCrLf & "Error#:" & Hex(err.Number) &_ VbCrLf & Err.Description objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation Err.Clear End If end sub Tag: Hex program Tag: 206794
  - 19
    - Mapped network drive?? I am newbie to scripting. I am using a logon script to mapped the user network drives. I use the net use command but I am facing a problem where the drive letter that the logon script use has already been mapped on the machine. What should I do to resolve this issue? I was thinking to use the next letter available but not sure how to write that. Any help would be appreciated. Thank you Tag: Hex program Tag: 206792
  - 20
    - VBS file - OLE DB I have a vbs file that executes a stored procedure on a server within my domain. The procedure uses a linked server. When I execute the procedure in Query Analyzer, it works just fine. However, I receive the following error when executing the vbs file itself: Windows Script Host Error: Timeout expired Code: 80040E31 Source: Microsoft OLE DB Provider My linked server has a Query Timeout and Connection Timeout of 0, and the setting for the server on which it resides (the server in my domain) has a query timeout of 1200. TIA - Tag: Hex program Tag: 206784
  - 21
    - How can I list all the OUs and child OUs Hello all, I was wondering if someone could help me list all the OU's in my domain I want to create a form to add users to a domain and in the form I want a drop down menu that lists the OUs. Any help will be much appreciated. Tag: Hex program Tag: 206783
  - 22
    - CDO Email and Junk Hey everyone - to make a long story short... I work for a City and we have a program that allows us to set up and configure Workflow processes. We can customize this program through VBScript. I have several scripts that send email through CDO (all this runs as a process on the server). This all seems to work great inside our network, however when the emails are sent outside the network Outlook almost always puts them in the Junk Folder. We used to have this problem with PHP email a while ago and modified the X-Mailer header to say it was from Outlook, and that seemed to work for the PHP scripts, but now when I do the same thing with VBScript it doesn't work. Is there anything I can do to my script to make it "safer" so Outlook doesn't mark it as Junk? These are being sent to citizens all over the City so I obviously have no control over their Junk settings. Tag: Hex program Tag: 206781
  - 23
    - WMI WbemClass problems Hello all, I am writing a script in which I am trying to change the configuration of Microsoft Host Integration Server (HIS). When installing HIS on a server several WMI classes specifically for HIS are installed on the server. These WMI classes can be used to manage HIS in allmost every aspect. Although the different HIS WMI classes are documented on the Technet and MSDN websites, I do not understand how to use some of these classes in my script. To be more specific, I have found an example in which a wmi class is used to create a Display LU in HIS. I have pasted the code below. This code works perfectly, and it indeed creates a display LU. Set WmiLocator = CreateObject("WbemScripting.SWBemLocator") Set WmiHisNameSpace = WmiLocator.ConnectServer("","root\MicrosoftHIS") Set WmiObj = WmiHisNameSpace.Get("MsSna_LuDisplay") WmiObj.Security_.impersonationLevel = 3 Set NewWmiObj = WmiObj.SpawnInstance_ NewWmiObj.Name = strLU NewWmiObj.Comment = "" NewWmiObj.Compression = "false" NewWmiObj.Model = 0 NewWmiObj.ModelOverride = "true" NewWmiObj.PoolName = "" NewWmiObj.UserWksSecure = "false" NewWmiObj.Number = strLUTAA NewWmiObj.ConnectionName = strPU NewWmiObj.Put_ wbemFlagReturnWhenComplete But now I also need to be able to delete Display LU's, probably using the same WMI class. I suspect that I need to use this class in a way which is not specifc for just this WMI class, but a general approach for doing things for allot of different WMI classes. Does anybody have any idea how to approach this issue? I have no idea to use this WMI class, or other related classes to get things done. There is plenty of documentation regarding W32_* classes which are part of the operating system, but when working with these exotic-like classes, I can't find anything about using them in a vbscript. Thank you in advance. Regards, Richard Tag: Hex program Tag: 206778
  - 24
    - Retrieve single property in WMI hi all, I have been writing up some functions to retrieve computer hardware info inside Excel VBA. Most of my VBA is based on VBScript with some modification. Could someone tell me, is there a some built-in method that would let me retrieve a single property of a class, for example, I want Caption of Win32_ComputerSystemProduct, is there way so that I can write something like the following: Dim objSWbemServices As SWbemServices objTemp = objSWbemServices.SomeBuilt-InFunction(""Win32_ComputerSystemProduct.Caption") instead of Set colSWbemObjectSet = objSWbemServices.InstancesOf("Win32_ComputerSystemProduct") For Each objSWbemObject In colSWbemObjectSet objTemp = objSWbemObject.Caption Next I found Get and InstancesOf for SWbemServices, but it seems all methods always return a collection. thanks Tag: Hex program Tag: 206777
  - 25
    - Reading file to extract value to variable Hi, how to read file to extract value and keep it in varialble with vbscript? please help me. it's quite urgent. Thanks any Guru. Angela. Tag: Hex program Tag: 206773

Hi,
I want to know if there's any method to open a file in Hex with
VBScript
Thx
Omar Abid

Re: Hex program by noone

noone
Thu Jun 14 16:51:33 CDT 2007

Il giorno Tue, 12 Jun 2007 04:26:50 -0700, Omar Abid <omar.abid2006@gmail.com> ha scritto:
>I want to know if there's any method to open a file in Hex with
>VBScript

This reads a single char:
set ts=f.OpenAsTextStream(ForReading,0)
ch=ts.read(1)

This shows the hex dump in an IE window.

'************************************************
' File: HexDump2.vbs (VBScript)
' Author: Giovanni Cenati
' 16 june 2005
' Mostra in IE un file in esadecimale
' Shows a hex dump of a selected file
' http://digilander.libero.it/Cenati
' Codice utilizzabile citando il sito.
' Based on a script post by spmlinton at sk sympatico ca
' in the newsgroup microsoft.public.scripting.vbscript
' on Thu, 27 Mar 2003
'************************************************
Set objArgs = WScript.Arguments 'Vedo se ci sono degli argomenti passati allo script
if objargs.count=0 then
Set comDlg=CreateObject("MSComDlg.CommonDialog.1")
const cdlOFNHideReadOnly = 4 'Nasconde la casella "sola lettura"
const cdlOFNFileMustExist = 4096 'Puoi scegliere solo files esistenti
Const cdlOFNExplorer = 524288 'Finestra in stile win95
comDlg.Flags = cdlOFNHideReadOnly + cdlOFNFileMustExist + cdlOFNExplorer
comDlg.Filter = "Tutti i files|*.*"
comDlg.DialogTitle="Visualizza un file in formato esadecimale"
'comDlg.InitDir="c:\"
comDlg.maxfilesize=500
'comDlg.FileName="c:\autoexec.bat"
comDlg.ShowOpen
if comDlg.FileName="" then wscript.quit
FName= comDlg.FileName
'Ricordo il filename scelto. Saves the filename in variable
set comDlg=nothing 'Scarica l'oggetto. Discards object
else
fName = objArgs(0)
end if

' Lancia Internet Explorer per mostrare i risultati.
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.navigate "about:blank" ' documento vuoto. Empty doc.
' Importante: aspetta che Internet Explorer sia pronto
Do While (oIE.Busy) ' Waits until IE is ready
WScript.Sleep 200 ' Sospende per 200 millisecondi.
Loop
oIE.Visible = 1 ' Internet Explorer è visibile.
oIE.ToolBar = 1 ' ed ha la toolbar così è presente il pulsante "stampa"
Set doc1 = oIE.Document ' Punta al documento...
doc1.open ' ...lo apre
' Scrive le intestazioni html. Writes html headers
doc1.writeln("<html><head><title>" & Title & "</title></head>")
doc1.writeln("<body bgcolor='#FAF0F0'><pre>")

Const ForReading = 1
set fso=createobject("scripting.filesystemobject")
set f=fso.getfile(FName) 'apro il file. Open file for reading
set ts=f.OpenAsTextStream(ForReading,0) 'in lettura
byteCtr=0
chCtr=0

doc1.writeln(Fname)
doc1.writeln(f.size & " bytes")
doc1.writeln()
do while not ts.atendofstream
ch=ts.read(1) 'Legge un carattere. Reads a char
chCtr=chCtr + 1 'E ne tiene nota nel conteggio. Counts it

hexch=hex(asc(ch)) 'Ne determina il codice ascii. Finds ascii code
if len(hexch)< 2 then hexch="0" & hexch
hexLine=hexLine & hexch & " " 'Adds it to the string

if asc(ch)> 31 and asc(ch)< 127 then 'Printable?
if ch=">" then ch=">" '(IE lo interpreterebbe come un tag)
if ch="<" then ch="<" '(IE would think it's a tag)
ascStr=ascStr & ch 'è stampabile. Yes
else
ascStr=ascStr & "." 'non è stampabile. No
end if

'Prepara la stampa di una riga:
'indirizzo - 16 esadecimali - 16 caratteri ascii
'Prepares a line to be displayed:
'Address, 16 hex characters, 16 ascii
if chCtr=16 or ts.atendofstream then
lineStr=byteCtr & vbtab & hexLine & vbtab & ascStr
'Now manages last line if it has less than 16 chars
if chCtr<16 then 'Se l'ultima riga ha meno di 16 cartteri...
lineStr=byteCtr & vbtab & hexLine 'inizio normalmente
for r= (chCtr+1) to 16 'poi riempio la parte restante della riga
lineStr= lineStr & "-- " 'con dei caratteri
next
lineStr = lineStr & vbtab & ascStr 'e finisco normalmente
end if
'Writes output to Internet Explorer
doc1.writeln(lineStr) 'Scrive in IE la riga creata
byteCtr=byteCtr + chCtr 'incrementa l'indirizzo
chCtr=0 'e azzera il parziale
ascStr=""
hexLine=""
end if
loop

'Chiude le intestazioni html
'Closes html headers
doc1.writeln("</pre></body></html>")
doc1.close

set fso=nothing
set f=nothing
set ts= nothing

--
Giovanni Cenati (Aosta, Italy)
Write to user "Reventlov" and domain at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--

Top