Install MSI
Hi!
I have the following code to install an app:
Set objInstaller = CreateObject("WindowsInstaller.Installer")
objInstaller.UILevel = 3 + 32
objInstaller.InstallProduct "app.msi"
In some machines the user do not have install privileges.
Is there any form to install the app in these machines?
Thanks. Tag: Assign serial Number to Thumb Drive (USB) Tag: 207056
Urgent!!! VB Developers for UAE
VAM SYSTEMS is a Business Consulting, IT Technology Solutions and
Services company with operations in UAE, Qatar, USA, Singapore,
Australia and India.
We are currently looking for a team (4 to 8 developers) VB Developers
for our UAE operations with the following Skill Set and Terms &
Conditions
Skill Set required:
Skills:
1. Strong Development experience VB, VB Scripting, SQL and Delphi.
2. Experience on banking will be an added advantage.
Domain: Banking.
Experience Required: 3-5yrs
Terms and conditions:
Joining time frame : 2 weeks (Maximum 4 weeks)
The selected candidates shall join VAMSYSTEMS-UAE and deputed to one
of the leading banks in UAE.
Should you be interested in this opportunity, please send your latest
resume in MS Word format at the earliest at
nishanthini.suda@vamsystems.com or If there is any queries you can
chat me on nishanthini_28@hotmail.com,
nishanthini_81@yahoo.co.in,vinirma@gmail.com, Skype ID is nishanthini2
or call us +91 471-3015245 or 2311320. Tag: Assign serial Number to Thumb Drive (USB) Tag: 207053
Urgent!!! VB Developers for UAE
VAM SYSTEMS is a Business Consulting, IT Technology Solutions and
Services company with operations in UAE, Qatar, USA, Singapore,
Australia and India.
We are currently looking for a team (4 to 8 developers) VB Developers
for our UAE operations with the following Skill Set and Terms &
Conditions
Skill Set required:
Skills:
1. Strong Development experience VB, VB Scripting, SQL and Delphi.
2. Experience on banking will be an added advantage.
Domain: Banking.
Experience Required: 3-5yrs
Terms and conditions:
Joining time frame : 2 weeks (Maximum 4 weeks)
The selected candidates shall join VAMSYSTEMS-UAE and deputed to one
of the leading banks in UAE.
Should you be interested in this opportunity, please send your latest
resume in MS Word format at the earliest at
nishanthini.suda@vamsystems.com or If there is any queries you can
chat me on nishanthini_28@hotmail.com,
nishanthini_81@yahoo.co.in,vinirma@gmail.com, Skype ID is nishanthini2
or call us +91 471-3015245 or 2311320. Tag: Assign serial Number to Thumb Drive (USB) Tag: 207052
IsDate()
I am working with an HTA, having the user enter a numeric value for the
MONTH / DAY / YEAR. I then concatenate them into the format shown and then
do an IsDate(). If the user enters something like 14 / 2 / 2007, IsDate
returns True; it is reading the date as DAY / MONTH / YEAR.
Any idea how I can get around this without using DropDowns?
Thanks.
Bart Tag: Assign serial Number to Thumb Drive (USB) Tag: 207051
Bug in Win32_LogonSession?
Hello everyebody,
It seems that Win32_LogonSession class has an undocumented bug or
feature related to the RunAs service.
Here is a simple script:
*******************************************************************************************
Set objWmiSvc = GetObject("winmgmts://")
Set colUsers = objWmiSvc.execQuery("Select * from
Win32_LoggedOnUser")
For Each objUser In colUsers
set objUser = objWmiSvc.Get(objUser.antecedent)
set objSess = objWmiSvc.Get(objUser.dependent)
WScript.Echo objUser.name & " - " & objSess.logontype
Next
*******************************************************************************************
I run it under a regular user account and it displays:
MyUser - 2
where
MyUser - the user currently logged on
2 - means that is an interactive session.
Then, from the same session spawn a command prompt windows using Run
As with another username and rerun the script from the initial user
context (not the new run as window).
Now it displays:
MyUser - 0
where
MyUser - the user currently logged on
0 - means this is SYSTEM session !!!
Is this a bug in WMI?
Has anyone seen this before? Tag: Assign serial Number to Thumb Drive (USB) Tag: 207050
Using the DiskQuota object returns many names unresolved in Windows 2000 - any way to get all?
I am attempting to gather the disk quota information on a number of
volumes on a Windows 2000 server. I am using the script from TechNet
at http://www.microsoft.com/technet/scriptcenter/scripts/storage/quotas/default.mspx?mfr=true.
The entries are returned but many of them return a blank LogonName and
an AccountStatus value of 5 (Account information is unresolved). I
note that if I display the quota entries from the volume properties
many of the entries display [Retrieving Name] for some period of time.
I am guessing that the use of the shell object from the script does
not get refreshed. Is there any way to get the information refreshed
in Windows 2000?
Thanks! Tag: Assign serial Number to Thumb Drive (USB) Tag: 207048
Locale and CDate issue
When I am using setlocale to a western locale like en-gb or en-us, the
CDate function is sensitive to the field sequence defined in the
locale. So if I CDate a string like 25/12/2007 using en-gb the date is
Christmas, if I do the same in a en-us locale, 12/25/2007 is
Christmas.
If I setlocale to ar-sa (Arabia Saudi Arabia) and use the
formatdattime function, I get the Gregorian date converted to a Hijri
date automatically.
However, if I use CDate while in the ar-sa locale setting, the
datevalue that is created seems like the middle ages (1428/12/16). How
can I get a correct datetime value from a Hijri date using the locale
features in vbscript?
tia Tag: Assign serial Number to Thumb Drive (USB) Tag: 207045
ADO stored proc
I am new to vbscript and need to learn it but more importantly I need to know
how to access a SQL Server stored procedure using vbscript and ADO. I've
looked at vbscript books and sql server books on Amazon and don't know what
to get that would discuss vbscript for a stored procedure. Could you please
direct me to a website or recommend a book or books that explain it.
thanks - nick Tag: Assign serial Number to Thumb Drive (USB) Tag: 207038
Get filetype of files without extension
Hi,
When you have activated the explorer option "hide known file
extensions" and you mail an attachment, on the receiving computer, the
extension has been lost.
With MS Word documents, this is no problem, the file will
automatically be opened with MS Word.
With pdf documents, this isn't the same... you get a dialog to choose
the right program (but when you open this, you can see PDF1.2).
Is it possible to programmatically get the file-type or extension from
those files?
Thanks in advance,
Netfreaky Tag: Assign serial Number to Thumb Drive (USB) Tag: 207027
error accessing property of an object
I'm tyring to access an object created by using a method from a third
party API. The documentation tells me what object should be return,
and the properties of that object, but when I try and access one of
those properties I've shown an error message saying that the Object
doesn't support this property or method. Here's the code I'm using
(edited to protect the third party NDA)
[script]
1: <%
2: dim siteApi, userApi
3: dim userObj
4: dim session, user_date_created
5:
6: set siteApi = createobject("MSSoap.SoapClient30")
7: siteApi.mssoapinit("http://thirdparty.domain/site/api?wsdl")
8:
9: set userApi = createobject("MSSoap.SoapClient30")
10: userApi.mssoapinit("http://thirdparty.domain/user/api?wsdl")
11:
12: session = siteApi.login("username","p@ssw0rd")
13:
14: set userObj = userApi.getUser(session,"webadmins")
15:
16: user_date_created = userObj.date_created
17: %>
[/script]
In the above code, the session variable is populated with the correct
info (a HEX string), suggesting that my siteApi object is being
created and used correctly. However, I get the following error when I
run it without line 16 commented out:
[error]
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'date_created'
/soapTest/index.asp, line 16
[/error]
The documentation for the user API does show that 'date_created' is a
property of the UserStruct object, returned by the 'getUser' method,
so I'm readlly confused why this won't work.
Is there anything fundamentally wrong with my script? If not, is there
any ASP I can use to see what properties are available with the
userObj?
Thanks for any help you can offer
Kevin Tag: Assign serial Number to Thumb Drive (USB) Tag: 207019
Connecting and reading SQL databases
Hello,
So far I have the following:
Set VAR = CreateObject("ADODB.Connection")
VAR.Open("DSN=temp")
Suppose my SQL database is:
A B
C D
corolla 2
BLAH BLAH
camry 4
BLAH BLAH
accord 5
BLAH BLAH
miata 2
BLAH BLAH
WHERE A,B,C,D are column names.
Now,
Dealing with only columns A and B,
I want to assign a variable in my VBScript program the value of column
B of the row containing accord, how do I go about?
NOTE: database owner is cadb and name of database is cars.
I would really appreciate any help.
Thanks a lot. Tag: Assign serial Number to Thumb Drive (USB) Tag: 207012
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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) Tag: 206928
VBScript Working Progress
Hi
Does anyone know how to make to IE progress bar to display the VBScript
running progress?
Kururu Tag: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) 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: Assign serial Number to Thumb Drive (USB) Tag: 206839
Is there a way to process a VB Script to put a serial number in for a USB
Thumb Drive?