Alternative to NetConnectionID?
The WMI Tasks: Networking page at
http://msdn2.microsoft.com/en-us/library/aa394595.aspx shows an example using
NetConnectionID, and notes that this isn't available on Windows 2000, for
which you should use the "example below". But the example below still uses
NetConnectionID. For me any attempt to use this throws an Invalid Query
exception. I'm calling from C# rather than VBScript. Is that second example
on the web page wrong?
What I need to do is to find the "typical" network adapter - you know, the
Ethernet port you almost always find on the back of the computer. On Windows
2000. I know there are different configurations, and maybe there is no answer
which *always* works, but right now on Windows 2000 I'm stuck with scanning
for Manufacturer=Intel (which for now is true of all the computers we ship in
our product as far as I know), and I'd like to find something better than
that. (On XP I can just look for NetConnectionID='Local Area Connection').
P.S. What's up with WMI telling me a Bluetooth connection is
AdapterType=Ethernet? That's the reason I can't just scan for that. Tag: Connecting and reading SQL databases Tag: 207006
VBSCRIPT and DSMOD
I am running this DSQUERY and DSMOD command to change all the
passwords on my lab network:
dsquery user -limit 10000 | dsmod user -pwd Password1
However, it fails when it encounters a user with the hidden attribute,
such as ROOT$. I am NOT a vbscript'er, so I'm not sure how to write
this...any help would be greatly appreciated.
Thanks,
Phil Tag: Connecting and reading SQL databases Tag: 207003
(Wscript.Network) issue removing network drive
Hey All,
I have a question about (wscript.network). I am trying to remove some
network drives on xp pro workstations using the script below. Well,
it's just not working. I don't get any errors but when I open "My
Computer" it still shows the connection to the network drive.
I can use the shell to run "net use" to delete these drives but I was
trying to get this other way to work. Any ideas what would
prevent .network from removing the drives? Thanks in advance.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")
'Remove Existing Network Drives
objNetwork.RemoveNetworkDrive "G:", True
objNetwork.RemoveNetworkDrive "H:", True
objNetwork.RemoveNetworkDrive "I:", True
objNetwork.RemoveNetworkDrive "M:", True
objNetwork.RemoveNetworkDrive "S:", True
objNetwork.RemoveNetworkDrive "T:", True
objNetwork.RemoveNetworkDrive "Y:", True
objNetwork.RemoveNetworkDrive "V:", True
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Shrp Tag: Connecting and reading SQL databases Tag: 206995
lastlogonTimeStamp Script... Works but...
Ok well here is my script. It works sort of... What I would like for
it to do it get the lastlogontimestamp for every user in the domain.
It works if I add - On Error Resume Next - putting this in either
skips the record that does not have a lastlogontimestamp or uses
outputs the same timestamp from the previous user account.
If I leave it out I get the following error - (33, 4) Active
Directory: The directory property cannot be found in the cache. -
Line (33, 4) is - set objLogon = objUser.Get("lastLogonTimeStamp")
I tried to add in this but I think I'm doing it wrong. Instead of
skipping or outputting the wrong timestamp I would like for it to say
- 404 TimeStamp Not Found - .... something along those lines :P
If Hex(Err.Number)="&H8000500D" Then
WScript.Echo "No such property!" & vbCrLf & "Err. Number: " _
& vbTab & CStr(Hex(Err.Number)) & vbCrLf & "Err. Descr.: " _
& vbTab & Err.Description
End If
==========================
Any suggestions?
Thank You
============================
On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2
Dim objRootDSE
Dim objConnection, objCommand, objRecordSet
Dim UserDN, objUser, strDNSDomain, strQuery
Dim objLogon, strWeeks, strDays, intLogonTime
Dim intLLTS, intReqCompare, ADVersion
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
strQuery = "SELECT distinguishedName FROM 'LDAP://" & strDNSDomain &
"' WHERE objectCategory = 'User'"
objCommand.CommandText = strQuery
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
UserDN = objRecordSet.Fields("distinguishedName").Value
Set objUser = GetObject("LDAP://" & UserDN)
wscript.echo UserDN
' Begin calculation
set objLogon = objUser.Get("lastLogonTimeStamp")
intLogonTime = objLogon.HighPart * (2^32) + objLogon.LowPart
intLogonTime = intLogonTime / (60 * 10000000)
intLogonTime = intLogonTime / 1440
intLLTS = intLogonTime + #1/1/1601#
strDays = strWeeks * 7
intReqCompare = Now - strDays
If intLLTS < intReqCompare Then
wscript.echo Mid(objUser.Name,4) & " last logged on
at " & intLLTS
End If
objRecordSet.MoveNext
Loop Tag: Connecting and reading SQL databases Tag: 206994
WshShell.Run and long command
Hi, I have an install of Adobe CS3 that I can execute from a bat file. I
can't seem to convert the bat command to vbscript. It gets as far as
executing the setup.exe, but ignores the silent switch and anything after it.
Here is the command from the batch file that works.
E:\D\Creative Suite 3\Application\Adobe CS3\setup.exe" --Mode=Silent
--deploymentFile="E:\D\Creative Suite 3\Application\Adobe
CS3\deployment\install.xml"
Here is the vbscript that fails. It executes the setup.exe but ignores the
statements after the setup.exe.
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run """E:\D\Creative Suite 3\Application\Adobe CS3\setup.exe""" &
Space(1) & "--Mode=Silent" & Space(1) & "--deploymentFile=" &
"""E:\D\Creative Suite 3\Application\Adobe CS3\deployment\install.xml""", 2,
True
I have tried doing different codes with no luck. I have used ( ) with no
luck.
I can usually figure the command out fine. Please help.
Thanks,
Jeff L. Tag: Connecting and reading SQL databases Tag: 206993
VBScript to Remove Lotus Notes Person Record
Hi,
Is anyone able to assist. I need a Sub to remove/Delete a Person
Record in lotus notes but a struggling to find the code to do this. I
have code to delete a user, but 30 days before deleting the user we
would like to just remove them from all address books.
Here is the code I have already:
'==================================================================================
'Sub to Delete the Leavers Lotus Notes Address Book Entries
'==================================================================================
'==================================================================================
'Sub to Delete the Leavers Lotus Notes User Accounts Including
replica's
'==================================================================================
Sub DeleteLNUser (Lnusername,sLNpassword)
Dim objSess As New NotesSession
Dim adminp As NotesAdministrationProcess
Const ID_HIERARCHICAL = 172
Const MAILFILE_DELETE_ALL = 2
Const Immediate = False '==================Enter True or False. True
deletes all references to the user in the Domino Directory before
issuing an administration process request. False lets the
administration process make all deletions.
Set ObjSess = CreateObject("Lotus.NotesSession")
ObjSess.Initialize sLNpassword
Set adminp = notesSession.CreateAdministrationProcess(NOTES SERVER)
Call adminp.DeleteUser(Lnusername , immediate , MAILFILE_DELETE_ALL,
"", False)
End sub
'==================================================================================
Many Thanks Tag: Connecting and reading SQL databases Tag: 206992
Simple Time function (for you, maybe)
Hi,
I want to look at a date time stamp and determine if it is before or
after 0600 in the morning.
I have tried this, with no luck (everything comes back as "Day"
text = book1.Worksheets(1).Cells(x,4).Value
FSpace = Instr(text," ") + 1 'Search for the first space in the
string
qTime = Right(text,FSpace) 'Chop the string down
WScript.Echo "qTime: " & qTime
If qTime > "6:00" Or qTime < "18:00" Then
book1.Worksheets(1).Cells(x,6).Value = "Day"
Else
book1.Worksheets(1).Cells(x,6).Value = "Night"
End if
TIA Tag: Connecting and reading SQL databases Tag: 206982
Generating a HTML file with accentuated characters?
Hi!
We wrote a VBScript that create an Active Directory report into a HTML file
format, but users names containing accentuated characters are displayd
incorrectly! What could we do to avoid that (codepage settings)?
Thanks.
Claude Lachapelle
Systems Administrator, MCSE Tag: Connecting and reading SQL databases Tag: 206979
backup a remote host's event logs
Hello,
With VBScript, I'm trying to back up all the workstations and member
servers from the PDC FSMO role holder. My script enumerates the hosts
on the domain and then passes each hostname to a method which tries to
backup the event logs on that box (The script is also smart enough to
know how many logs are on the box and tries to back them up one at a
time). My script runs without complaining but it will only backup the
log files on the box which the script is run -- not any of the remote
boxes.
I've looked at:
http://groups.google.com/group/microsoft.public.win32.programmer.wmi/browse_thread/thread/f24756bda5859d8d/f74e6e83a58910c4
http://groups.google.com/group/microsoft.public.win32.programmer.wmi/browse_thread/thread/b3fe81a46fdeca2d/393d1380a58a207b
One of the posts says you cannot do this with WMI and the other post
implies they got it to work. A portion of my code is posted below
(and is pretty much the same as what is in one of the links above).
You'll notice I'm not ignoring errors and when I run the script here
backupLog always returns zero -- this is the confusing thing, the
script runs without complaining but it will only backup the log files
on the box which the script is run -- not any of the remote boxes.
' h = hostname
' l = Win32_NTEventlogFile.LogfileName
Sub backupLogs(h, l)
Dim sFileName : sFileName = "C:\Temp\" &_
h & " " &_
l & " " &_
".evt"
Dim objWMI : Set objWMI = GetObject("winmgmts:" &
"{impersonationLevel=impersonate,(Security, Backup)}!\\" & h & "\root
\cimv2")
Dim colLog : Set colLog = objWMI.ExecQuery("Select * from
Win32_NTEventLogFile where LogFileName='" & l & "'")
For Each log in colLog
backupLog = log.BackupEventLog(sFileName)
If backupLog <> 0 Then
MsgBox "The " & l & " log on " & h & " could not be backed up."
Else
log.ClearEventLog()
End If
Next
End Sub
So what is it... is it indeed possible to backup event logs from
remote machines? If so, any suggestions to where I went wrong with my
script are greatly appreciated.
Thanks! Tag: Connecting and reading SQL databases Tag: 206976
Array Question
I think this would be solved with an array, but I'm not sure. I have
no idea how to implement one into this.
I currently have a backup script going for my company. I'm just a IT
person, not a programmer by any means. I'm working off of a previously
created script. What this script does, is it calls another program
called "Robocopy" to do the actual copying.
Basically right now, the script backs up certain PC's. Afterwards, if
there is an error it emails me, telling me which computers didn't
complete the backup. It also creates text files with logs and stuff.
I want to be able to have a list with the PC name's and corresponding
email addresses of the owners of that PC. So if there is an error the
script, it find the PC name that got the error, located the email
address assigned to that PC name, and sends and email to that address,
stating that there was an error.
Here are my scripts ...
This one specifies Source & Destination
http://docs.google.com/Doc?id=dcc6zqw6_1fhdh4g
This one is the actual script
http://docs.google.com/Doc?id=dcc6zqw6_0czkw8m Tag: Connecting and reading SQL databases Tag: 206971
logoff/shutdown script
My manager has asked me to write a script that will run every time
someone tries to log off or shutdown a computer. In the past people
have logged off computers while virtual machines were running and
usually automation would be running at the time or people would be
doing manual QE testing so it would always be a real pain when they
were shut off without warning. He wants me to write a script
(shutdown or logoff or even both) that would check for one of VMware's
executable files that only appear when a VM is running and then prompt
a warning to the user to stop them from shutting down or logging off.
I've done a some reading on the internet about logoff/shutdown scripts
and I've emailed some people that I know. I know that it should be
either a vbscript or jscript file. I know where to save the script
when I'm done and how to configure group policy so that it runs on all
the computers. I even know how to format the script (1. get a process
list, 2. search the list for the VMware process 3. if process is found
alert the user and cancel shutdown/logoff 4. if not, do nothing). The
only problem is I DON'T KNOW HOW TO WRITE ONE. Do you guys have any
suggestions as far as websites or reading material? Any thoughts
would be appreciated. Tag: Connecting and reading SQL databases Tag: 206957
Error Handling - IADS bug ?
I have a script to create users.
.......
On Error Resume Next
set objUser = objCIADS.Create("User", "CN=" & strFname & " "
&strLname)
objUser.Put "samAccountName", strAccName
objUser.SetInfo
if (Err.Number<>0) then
Wscript.Echo "User Creation failed for " & strFname & " " &
strLname & vbcrdlf & _
"With Error " & Err.Description & " - continuing"
.......
It works just fine.
If I try and create a user that already exists then
the error event is not triggered. If I omit the On Error Resume Next I
get an error saying the object already exists.
Is this a bug or have I got something wrong? Tag: Connecting and reading SQL databases Tag: 206954
scripting folder date
If I use the following script -->
Const CONVERT_TO_LOCAL_TIME = True
Set dtmStart = CreateObject("WbemScripting.SWbemDateTime")
dtmStart.SetVarDate Now, CONVERT_TO_LOCAL_TIME
dtmRegular = dtmStart.GetVarDate(CONVERT_TO_LOCAL_TIME)
dtmNew = DateAdd("d", -37, dtmRegular)
Wscript.Echo dtmNew
wscript.quit
<--
I get an output something similar to 5/6/2007 10:11:10 AM
Is there a way to trim off the time information? I'm writing a script to
determine the date of a folder, and then if it is older than say 4 months,
delete it. Unfortunately, the time information is also there, and so the
script never deletes the folder.
Any Ideas how I can trim that time info off of there?
Thanks Tag: Connecting and reading SQL databases Tag: 206953
Hex program
Hi,
I want to know if there's any method to open a file in Hex with
VBScript
Thx
Omar Abid Tag: Connecting and reading SQL databases Tag: 206945
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: Connecting and reading SQL databases Tag: 206941
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: Connecting and reading SQL databases Tag: 206939
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: Connecting and reading SQL databases Tag: 206938
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: Connecting and reading SQL databases Tag: 206937
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: Connecting and reading SQL databases Tag: 206932
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: Connecting and reading SQL databases Tag: 206928
VBScript Working Progress
Hi
Does anyone know how to make to IE progress bar to display the VBScript
running progress?
Kururu Tag: Connecting and reading SQL databases Tag: 206925
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'><!--body {overflow:hidden}--> to get rid of the scrollbars?
objExplorer.Document.style.innerhtml? Tag: Connecting and reading SQL databases Tag: 206909
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: Connecting and reading SQL databases Tag: 206906
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: Connecting and reading SQL databases Tag: 206904
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: Connecting and reading SQL databases Tag: 206895
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: Connecting and reading SQL databases Tag: 206890
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: Connecting and reading SQL databases Tag: 206874
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: Connecting and reading SQL databases Tag: 206864
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: Connecting and reading SQL databases Tag: 206861
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: Connecting and reading SQL databases Tag: 206859
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: Connecting and reading SQL databases Tag: 206857
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: Connecting and reading SQL databases Tag: 206856
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: Connecting and reading SQL databases Tag: 206852
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: Connecting and reading SQL databases Tag: 206851
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: Connecting and reading SQL databases Tag: 206849
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: Connecting and reading SQL databases Tag: 206845
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: Connecting and reading SQL databases Tag: 206842
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: Connecting and reading SQL databases Tag: 206839
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: Connecting and reading SQL databases Tag: 206836
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: Connecting and reading SQL databases Tag: 206834
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: Connecting and reading SQL databases Tag: 206833
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: Connecting and reading SQL databases Tag: 206829
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: Connecting and reading SQL databases Tag: 206828
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: Connecting and reading SQL databases Tag: 206827
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: Connecting and reading SQL databases Tag: 206819
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: Connecting and reading SQL databases Tag: 206814
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: