That is a good suggestion. I wonder what the speed is like... I went to the link but I couldn't see any sample scripts. Can you email me some of them? I would like to take a look. Thanks for the info
I am writing a VB form that is called from a vb script to display login info for our domain login script. I am able to pass variables to the VB app from my vbscript, but I want to pass the values to my vbscript from the VB. Basically I have a check box on the VB app that I want to read from the...
Is there a way to create a nice GUI window to gather data input from a user when a Perl script is running? From what I can see a DOS like window is generated. I would like to have something that looks a like better. Any ideas?
I have a Perl script that I would like to install as a Windows service and have it run every x minutes. I know this can be done with PerlSvc. Could someone give me a little sample script on how I should accomplish this?
This is what I ended up with after cleaning it up some:
foreach my $PRINFO ( in( $WMIServices->InstancesOf( $WIN32_PR ) ) )
{
$PRNUM = ++$PRNUMCount;
$sth=$db->prepare("UPDATE win32_product set
Caption=?,
Description=?,
IdentifyingNumber=...
Thanks for all your help guys. This is what I finally did and all your input helped greatly.
$Caption=$PRINFO->{caption};
$Vendor=$PRINFO->{vendor};
$sth=$db->prepare("UPDATE win32_product set
Caption=?,
Vendor=?
WHERE PCID = $PCID AND PRNUM =...
Here is my code:
my $Caption=param('PRINFO->{caption}');
my $Vendor=param('PRINFO->{vendor}');
my $insert=$db->prepare("UPDATE win32_product(Caption,Vendor) values(?,?)");
$sth->execute($Caption,$Vendor);
$sth->finish();
Do I need to setup a subroutine for param? I am getting an error when I run the code:
Undefined subroutine &main::param called at C:\Perl\scripts\client.pl line 178.
Maybe should have explained a little better. When I query
WMI I get "Daemon's House" back as the result. This result could change depending on what record is returned from WMI. I will never know the result up front. Is there a way to take a string and tell PERL to ignore it? Hopefully I...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.