Vbscript issue on Windows Server 2008

-

we have a vbscript runs on windows server 2003 machine. moved windows 2008 machine , can't run properly. can connect to active directory, believe our database connection faulty. has changed in wscript or database connection string cause problem??

thanks.

script is listed below:

description: script sends email appropriate manager of submitting matrix analyst.
'             script identifies budget transfers have not bee approved manager ,
'             sends manager email each day transfers have not been approved.


on error resume next

'  setup oracle connection
  set dbsession = createobject("oracleinprocserver.xorasession")
  set oradatabase = dbsession.opendatabase("fcsdev","fcs/redpuppy1", 0)

'get matrix employee number

sqlstr = "select distinct(matrix_nbr)as empnum "_
 & "from budget_xfers_mo "_
 & "where fin_mgmt_appr <> 1 "_
 & "or fin_mgmt_appr null"

wscript.echo(sqlstr)

set oradata = oradatabase.createdynaset(sqlstr,0)

if oradata.recordcount > 0 then
adataarray = oradata.getrows()


wscript.echo(adataarray(0,row))


row = 0 ubound(adataarray,2)

wscript.echo(adataarray(0,0))

'  managers empnm , matrix name
errtype = ""
strsub = "uid=" & clng(adataarray(0,row)) & ",ou=people,o=fcx,c=us"
adspath = "ldap://directory.fcx.com:389/" & strsub

set oobjsec = getobject(adspath)

empnum = oobjsec.get("uid")
realname = oobjsec.get("givenname") & " " & oobjsec.get("sn")
mgrenbr = parsemgr(oobjsec.get("manager"))

wscript.echo(empnum & " " & mgrenbr)

'  managers email address
errtype = ""
strsub = "uid=" & clng(mgrenbr) & ",ou=people,o=fcx,c=us"
adspath = "ldap://directory.fcx.com:389/" & strsub

wscript.echo(strsub)

set oobjsec = getobject(adspath)

mgremailaddr = oobjsec.get("mail")


'wscript.echo(mgremailaddr)

'send email notification finance manager
   set objemail = createobject("cdo.message")
   objemail.to = sample@email.com 'matemail
   objemail.cc = "boss@email.com"  'matemail
   objemail.from = "server@email.com"
   objemail.subject = "budget transfer submitted , ready review/approval"
   strbody = "<html><head><body>"
   strbody = strbody & "a budget transfer has been submitted " & realname & " approval.<br><br>"
   strbody = strbody & "</body></head></html>"
   objemail.htmlbody = strbody
   objemail.send
   set objemail = nothing

'objemail.to = sample@email.com 'matemail

next

end if

 

'  close , destroy objects created script
'
oradata.close
oradatabase.close
'
'  reset oracle objects
'
set oradata = nothing
set oradatabase = nothing
set dbsession = nothing

function parsemgr(instr)
  outstr = ""
  start = 5
  incr = 0
  while mid(instr,start+incr,1) >= "0" , mid(instr,start+incr,1) <= "9"
    outstr = outstr & mid(instr,start+incr,1)
    incr = incr + 1
  wend

  parsemgr = outstr


end function

 

hi chris,

regarding script issue, can seek our script forum: 

http://social.technet.microsoft.com/forums/en-us/itcg/

regards

kevin

technet community support



Windows Server  >  Windows Server General Forum



Comments

Post a Comment

Popular posts from this blog

2008 Windows Deployment Server Properties Error

-
currently wading through setup , configuration of wds on 2008 server. have captured xp sp2 image , purposes of testing not prestaging. pxe response settings have been set "respond (known & unknown) client computers" leaving "for unknown clients, notify administrator etc" unchecked when ok properties sheet error "server properties error" "the system cannot find file specified" when attempting use command "wdsutil /approve-autoadddevices /requestid:1" in response pending devices within gui "an error occurred while trying execute command. error code: 0x6 error description: access denied" surely if not attempting add workstations domain (no prestaging) there shouldn't problem. any appreciated  answering part of own question although if can explain reason appreciated. server properties error occurs when launching windows deployment services using start>all programs>administrative tools. if access via server manager...
Read more

Can no longer user MS Update - Files required to use Microsoft Update are no longer registered

-
hi, i'm new server 2003.  installed it.  removed enhanced ie security.  proceed download , install windows server 2003 sp1, of dot net (1.1, 2.0, 3.0, 3.5, , updates), , sp2. after downloaded , installed of above, tried windows update menu option in ie.  (ie 8 windows server 2003) , sits there "done" in lower left hand corner.  never brings in window. so try www.microsoft.com -> download , trails -> update.  received error message "files required use microsoft update no longer registered or installed on computer".  click on register or reinstall files me now.  window changes , "check latest version of windows updating software .... ".   sits there (last time sat there on hour). i went on internet , found instructions: regsvr32 wuapi.dll regsvr32 wups.dll regsvr32 wuaueng.dll regsvr32 wucltui.dll regsvr32 atl.dll regsvr32 msxml3.dll did not work either.  have other suggestions?...
Read more

How do a find data in one file, search for it in another file and if not found, write a custom message to another file

-
in file if.txt, starting on 2nd line of file, data formatted follows: ah10551,a10551,cn=a10551,a10551@qts.com ah10600,a10600,cn=a10600,a10600@qts.com ah10608,a10608,cn=a10608,a10608@qts.com in file sf.txt, data formatted follows: 2011-02-16 17:26:44 sid acme\ah10551 added sid history of qts\a10551 2011-02-16 17:26:44 sid acme\ah10244 added sid history of qts\a10244 2011-02-16 17:26:45 sid acme\ah10425 added sid history of qts\a10425 please provide suggestions on how following: 1. in if.txt file, read first field first ',' , store in variable called $if1 2. in sf.txt file, search for the value stored in $if1 , if found, ignore.  if not found, write custom message in another file such as: $if1 sidhistory not migrated. these files wont large.  im trying build 'exception file' of items in if.txt file not occurring in sf.txt file. thanks in advance ideas. mtv99 many ways that... here's one... (using example data) [array]$if1=@() gc d:\if.txt...
Read more